Leggere cartelle e file

[a.prenz]

Due domande da persona che vorrebbe approfondire il discorso Visual Basic:

1)Con VB è possibile aprire una cartella e leggere i files che contiene ??

2) In un file o una cartella posso estrarre il nome e salvarlo in una variabile ?? (pippo.doc)

Grazie e ciao

[quartutek]

Con VB si può fare quasi tutto basta saperlo.

Ci sono due metodi, almeno io conosco questi due e mi stanno bene:

per sapere la lista dei file in una cartella ci sono due modi:

uno usi FileSistemObject

dim fso,fs,f1,s
Set Fso = CreateObject("Scripting.FileSystemObject")
Set f = Fso.getfolder(Folder)
Set fs = f.Files
k = 0
For Each f1 In fs
s = f1.Name
k = k + 1
list1.addnew s
Next

Due

usi FileListBox

File1.path = (percorso)
e ti appaiono subito la lista dei file

[a.prenz]

Grazie sei stato gentilissimo.

[Mabi]

Un terzo modo è quello di utilizzare la funzione Dir:

Dim NomeFile As String
Dim NomeCartella As String

NomeCartella = "C:\"

NomeFile = Dir(NomeCartella)
Do Until NomeFile = ""
  MsgBox NomeFile
  NomeFile = Dir
Loop

[Berello]

Mabi, anche io avrei usato il tuo stesso codice, ma qualche giorno fa' provando mi sono accorto che non restituisce tutti i files, ma solo quelli con attributo vbNormal.
Ho due domande:
1.Per vedere tutti i files e le sottocartelle di una cartella (es.: unità C come si fa'?
2.La costante vbAlias (valore: 64) cosa rappresenta? Quali sono i files Alias?
Ciao e grazie!

[Mabi]

Non vengono restituiti tutti i file perchè non vengono cercati tutti.

NomeFile = Dir(NomeCartella)

Non inserendo nessun attributo vbNormal credo rimanga quello di default. Quindi ti basta modificare il criterio di ricerca :

NomeFile = Dir(NomeCartella, vbArchive + vbHidden + vbNormal + vbReadOnly + vbSystem)

Per quanto riguarda i file con attributo vbAlias non so che caratteristiche hanno. Sul sito del MSDN online vengono accennati appena. Un ulteriore informazione si trova nella pagina in cui c'è il confronto fra .NET e VB6.

Ciao