AW: Worddatei öffnen
20.09.2013 10:19:47
Manuel
So sollte es funktionieren. ich habe das alles jetzt über einen Button programmiert. Du kannst das aber natürlich auch ändern. am Ende wird das Ergebnis in einer MsgBox ausgegeben. Ist aber auch Variabel. Bei mir funktioniert das soweit.
Dim GloStrFolder As String
Private Sub CommandButton1_Click()
GloStrFolder = "M:\S0018_NcArchiv"
SearchFolder GloStrFolder
SearchInFolder GloStrFolder
End Sub
Private Sub SearchFolder(ByVal Folder As String)
Dim StName As String
Dim FSO As Object
Dim SearchFolder As Object
Dim FD As Object, FI As Object
Dim EachFil As Object, EachFold As Object
Dim LoI As Long
Dim StFolder As String
Set FSO = CreateObject("Scripting.Filesystemobject")
StName = "Beispiel" 'Hier kommt der Ordneranfang rein!
Set SearchFolder = FSO.GetFolder(Folder)
Set EachFil = SearchFolder.subfolders
For Each FI In EachFil
StFolder = FI.Name
If InStr(StFolder, StName) Then
GloStrFolder = GloStrFolder & "\" & StFolder
End If
Next FI
End Sub
Private Sub SearchInFolder(ByVal File As String)
Dim StName As String
Dim StTyp As String
Dim FSO As Object
Dim SearchFolder As Object
Dim FD As Object, FI As Object
Dim EachFil As Object, EachFold As Object
Dim LoI As Long
Dim StFile As String
Set FSO = CreateObject("Scripting.Filesystemobject")
StName = "Beispiel" 'Hier den Anfang deiner Datei eintragen
StTyp = ".docx" 'Endung der Datei, wenn es eine .doc Datei ist nur .doc
Set SearchFolder = FSO.GetFolder(File)
Set EachFil = SearchFolder.Files
For Each FI In EachFil
StFile = FI.Name
If InStr(StFile, StName) And InStr(StFile, StTyp) Then
GloStrFolder = GloStrFolder & "\" & StFile
MsgBox GloStrFolder
End If
Next FI
End Sub