losmac
"profesorek"
Typ:
neutral
Postów: 758
Zarejestrowany: May 2003
|
|
Można też tak...
Sub EnumFilesInDir1() Dim sFile As String Dim i As Long
sFile = Dir("C:\Moje dokumenty\moje obrazy\*.jpg" Do While sFile <> "" MsgBox sFile, vbInformation, i i = i + 1 sFile = Dir() Loop
End Sub
_____________________________________________ POSTULATY STARUSZKA: 1) Ludzie, dbajcie o polszczyznę!!! 2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!! Powodzenia Maciej Łoś
|