Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

creare uno script che conta i file

8 views
Skip to first unread message

Anselmo

unread,
May 14, 2010, 6:23:56 AM5/14/10
to
dentro una cartella ci sono alcuni file (in numero variabile da zero a N )
, di nome "UtenteN.txt" : si pu� fare uno script che quando lo lancio
legge i file presenti e mi mostra in una msgbox il testo : " sono presenti
gli utenti : utente1 , utente2,utente3 " ?

grazie e saluti

Emanuele Cerlini

unread,
May 14, 2010, 7:27:05 AM5/14/10
to
La funzione ADIR() fa al caso tuo.

Ciao,
Emanuele C.

Anselmo ha scritto:


> dentro una cartella ci sono alcuni file (in numero variabile da zero a N )

> , di nome "UtenteN.txt" : si puￜ fare uno script che quando lo lancio

Anselmo

unread,
May 15, 2010, 4:10:58 AM5/15/10
to

"Emanuele Cerlini" <ecer...@libero.it> ha scritto nel messaggio
news:Ovuljh18...@TK2MSFTNGP02.phx.gbl...

> La funzione ADIR() fa al caso tuo.
>

non so proprio scrivere la routine per contare e mostrare i nomi dei file
che trova dentro alla directory...
Siccome ho VFP installato sul pc , pernsavo di creare un piccolo eseguibile
che facesse questo compito..

grazie


Emanuele Cerlini

unread,
May 15, 2010, 7:40:08 AM5/15/10
to
#Define CRLF Chr(13)+Chr(10) && invio a capo

Public Array aFile[1, 5]

Public nFile As Number, ;
cElenco As String

nFile=Adir(aFile, "C:\Windows\*.ini", "", 1)

cElenco=""

For i=1 To nFile
cElenco=m.cElenco+aFile[m.i, 1]+CRLF

Next

=Messagebox("Files di configurazione in C:\Windows:"+CRLF+m.cElenco, ;
0, "Titolo finestra")


Anselmo ha scritto:

Anselmo

unread,
May 15, 2010, 5:57:03 PM5/15/10
to
> =Messagebox("Files di configurazione in C:\Windows:"+CRLF+m.cElenco, ;
> 0, "Titolo finestra")

grazie !

( PS : si pu� eliminare l'estensione del file quando mi visualizza l'elenco
con i nomi dei files ? )

ciao


Emanuele Cerlini

unread,
May 16, 2010, 2:52:33 PM5/16/10
to
Sostituisci questo pezzo:

For i=1 To nFile
cElenco=m.cElenco+JustStem(aFile[m.i, 1])+CRLF

Next


ciao


Anselmo ha scritto:


>> =Messagebox("Files di configurazione in C:\Windows:"+CRLF+m.cElenco, ;
>> 0, "Titolo finestra")
>
> grazie !
>

> ( PS : si puￜ eliminare l'estensione del file quando mi visualizza l'elenco

Anselmo

unread,
May 17, 2010, 11:15:46 AM5/17/10
to

"Emanuele Cerlini" <ecer...@libero.it> ha scritto nel messaggio
news:ujRk0jS9...@TK2MSFTNGP04.phx.gbl...

> Sostituisci questo pezzo:
>
> For i=1 To nFile
> cElenco=m.cElenco+JustStem(aFile[m.i, 1])+CRLF
>
> Next
>

grazie


0 new messages