Ordnerinhalt anzeigen, doc anklicken Wordöffnen
09.03.2004 09:33:11
ray
hab mir mit F1 folgendes gebastelt. Ist ok, aber nicht genau, was ich wollte.
Möchte mir Ordnerinhalt anzeigen lassen
dat auswählen,
die dann mit Word geöffnet wird.
Wie könnte das wohl gehen? Viele Grüße aus dem viel zu kalten Hamburg. Ray
Sub ssss()
Set fs = Application.FileSearch
inp1 = "0002 - A A Sportplatz 1-31"
inp2 = "0001 - Dreier"
With fs
.LookIn = "F:\MV\" & inp1 & "\" & inp2
.Filename = "*.doc"
If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no Doc-files found."
End If
End With
End Sub