For I=0 To FLB.ListCount-1
?FLB.List(I)
Next
работа с директорией
Подскажите. мне необходимо просмотреть директорию и распечатать только название файлов лежащих в ней.
Как это сделать!!!!!!!
Код:
Где FLB-имя FileListBox'а,I-целая переменная
Код:
Dim myPath As String, myFile
myPath = "C:\"
myFile = Dir(myPath & "*.*")
Do While myFile <> ""
Debug.Print myFile
myFile = Dir
Loop
myPath = "C:\"
myFile = Dir(myPath & "*.*")
Do While myFile <> ""
Debug.Print myFile
myFile = Dir
Loop