[VB]gestire i file presenti in una cartella

[Laufer]

Potete aiutarmi?

Dovrei leggere sotto una particolare directory tutti i file presenti in quella cartella.


E possibile via vb rendere un file che e' non modificabile, in modificabile, poi una volta modificato (via codice) salvarlo in modalita nn modificabile?

Tnk


Laufer

[Johnny_Depp]

lo rendi modificabile

SetAttr "c:\documenti\testo.txt", vbNormal

poi lo riporti non modificabili

SetAttr "c:\documenti\testo.txt", vbReadOnly

[Laufer]

Grazie Jonny

Sai anke dirmi come posso vedere i file presenti nella cartella?

Tnk

Laufer

[Johnny_Depp]

dim ptrFILE as String
dim arrFILE(2000) as String
dim i as Integer
i=0
ptrFILE = Dir$("C:\Documenti\*.*")
While ptrFILE <> ""
    arrFILE(i) = ptrFILE
    i = i + 1
    ptrFILE = Dir$
Wend

Ora in arrFILE hai tutti i file presenti in C:\Documeni

P.S. L'ho scritto senza provarlo, dimmi se funziona!!!

[Laufer]

OK