von wega » Mo, 04.10.2010 13:05
Hallo zusammen,
der nachfolgende code funktioniert nur halbwegs richtig.
Er gibt nur die Hauptverzeichnisse zurück und nicht die Unterverzeichnisse.
Ebenfalls werden dann auch nur die Dateien gefunden, nach denen gesucht wird, die in den Hauptveruzeichnissen stehen.
Dateien in den unterverzeichnissen werden ignoriert.
Code: Alles auswählen
Sub ShowDir
dim NextDir as string
dim AllDirs as string
dim i as integer
i=1
AllDirs =""
NextDir = Dir("C:\*",16)
While NextDir <>""
Liste(i) = NextDir
AllDirs = AllDirs & chr(13) & NextDir
NextDir = Dir
i=i+1
Wend
MsgBox AllDirs
'liste_zeigen liste(),i
ShowFile liste(),i
end sub
Sub ShowFile (liste(),i)
dim NextFile as string
dim AllFiles as string
dim pfad as string
dim spfad as string
dim n as integer
AllFiles =""
'NextFile = Dir("C:\*",0)
for n = 1 to i
pfad = "C:\" & liste(n) & "\"
spfad = pfad & "*.igs"
'msgbox spfad
Nextfile = Dir(spfad,0)
'msgbox Dir(spfad,0)
'msgbox "durchsucht wird: " & Nextfile
While NextFile <>""
'msgbox pfad & "\" & Nextfile
on error resume next
DocFileDateTime = Split(FileDateTime(pfad & "\" & NextFile)," ")
'msgbox DocFileDateTime(0) Jahreszahl
'msgbox DocFileDateTime(1) 'Uhrzeit
Allfiles = AllFiles & chr(13) & pfad & "\" & NextFile & "\" & DocFileDateTime(0) & "\" & DocFileDateTime(1)
NextFile = Dir
Wend
next n
MsgBox AllFiles
end sub
sub liste_zeigen (liste(),i)
dim n as integer
for n=1 to i
print liste(n)
next n
end sub
Was muß ich abändern, was mache ich da nicht richtig?
mit Gruß
Werner
Hallo zusammen,
der nachfolgende code funktioniert nur halbwegs richtig.
Er gibt nur die Hauptverzeichnisse zurück und nicht die Unterverzeichnisse.
Ebenfalls werden dann auch nur die Dateien gefunden, nach denen gesucht wird, die in den Hauptveruzeichnissen stehen.
Dateien in den unterverzeichnissen werden ignoriert.
[code]
Sub ShowDir
dim NextDir as string
dim AllDirs as string
dim i as integer
i=1
AllDirs =""
NextDir = Dir("C:\*",16)
While NextDir <>""
Liste(i) = NextDir
AllDirs = AllDirs & chr(13) & NextDir
NextDir = Dir
i=i+1
Wend
MsgBox AllDirs
'liste_zeigen liste(),i
ShowFile liste(),i
end sub
Sub ShowFile (liste(),i)
dim NextFile as string
dim AllFiles as string
dim pfad as string
dim spfad as string
dim n as integer
AllFiles =""
'NextFile = Dir("C:\*",0)
for n = 1 to i
pfad = "C:\" & liste(n) & "\"
spfad = pfad & "*.igs"
'msgbox spfad
Nextfile = Dir(spfad,0)
'msgbox Dir(spfad,0)
'msgbox "durchsucht wird: " & Nextfile
While NextFile <>""
'msgbox pfad & "\" & Nextfile
on error resume next
DocFileDateTime = Split(FileDateTime(pfad & "\" & NextFile)," ")
'msgbox DocFileDateTime(0) Jahreszahl
'msgbox DocFileDateTime(1) 'Uhrzeit
Allfiles = AllFiles & chr(13) & pfad & "\" & NextFile & "\" & DocFileDateTime(0) & "\" & DocFileDateTime(1)
NextFile = Dir
Wend
next n
MsgBox AllFiles
end sub
sub liste_zeigen (liste(),i)
dim n as integer
for n=1 to i
print liste(n)
next n
end sub
[/code]
Was muß ich abändern, was mache ich da nicht richtig?
mit Gruß
Werner