Tags:
visual-basic
Hej,
jeg er helt ny i VBA verden og har brug for hjælp.
Jeg er i gang med et lille eksampel hvor jeg gerne vil løber igennem mappen Dokumenter (den har mange undermappe) og vil gerne fange alle filer som har ord Plan i sit navn og så vil gerne vise dem som messages.
Dim file
Dim folder
Dim subfolders
folder = Dir$("C:/Documents and Settings/alex/Dokumenter/")
For Each subfolders In folder
If InStr(file, "plan.doc") Then
MsgBox file.name
Exit For
End If
Next
Exit Sub
1 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma
0
du skal vel ikke skrive "plan.doc", men istedet blot "plan", da det ellers kun vil finde dem som slutter på "plan.doc" (medmindre det står midt i navnet, men det er usandsynligt.
så kan du evt. bagefter sortere på filetype, hvis du kun vil have *.doc filer med.