Mahlzeit,
;.)
so, meine Inhalts-Suche hab ich nun soweit hinbekommen.
Bei zwei drei Sachen bräuchte ich aber doch eure Hilfe.
Erstmal der Code -->
Private Sub cmdRechnungSuchen\_Click()
Dim strDirDate As String
Dim strKunde As String
Dim strVerzeichnis As String
Dim pfad1 As String
Dim pfad2 As String
Dim pfad As String
Dim nDate As Date
Dim strSuchBox As String
Dim fso As Variant
Dim Suchbegriff As String
Dim Ziel As String
Dim Quelle As String
Dim Typ As Variant
Dim File As Variant
Dim inhalt As String
Dim WScript As Variant
Dim sFilePath As String
Dim sFilename As String
Dim SearchSubFolders As String
If OptionButton1.Value = True Then
strVerzeichnis = "Z:\test1"
End If
If OptionButton2.Value = True Then
strVerzeichnis = "Z:\test2"
End If
If OptionButton3.Value = True Then
strVerzeichnis = "Z:\test3"
txtSenderID = ""
End If
ListBox2.Clear
strDirDate = nDate
strKunde= txtKundeID
strDirDate = Format(DTPicker3.Value, "yymmdd")
pfad = strVerzeichnis & "\" & strDirDate & "\" & strKunde & "\"
ListBox2.Clear
Set fso = CreateObject("Scripting.FileSystemObject")
Quelle = pfad
**Typ = LCase("txt")**
Suchbegriff = txtSuchBox
txtSuchBox = Suchbegriff
ListBox2.Clear
**SearchSubFolders = True**
For Each File In fso.GetFolder(Quelle).Files
If LCase(fso.GetExtensionName(File.Name)) = Typ Then
inhalt = fso.OpenTextFile(File).ReadAll
If InStr(1, inhalt, Suchbegriff, vbTextCompare) Then
ListBox2.AddItem Quelle & File.Name
End If
End If
Next
End Sub
-
SearchSubFlder = True funktioniert nicht
wie weisse ich ihn an, auch die Unterverzeichnise mit zu durchsuchen? -
er soll nicht nur txt-Files durchsuchen, wie weise ich ihn an, alle Dateiarten zu durchsuchen?
-
Ich möchte die „gefundenen“ Files in ein Verzeichnis kopieren, welches ich vorher angelegt habe, dazu habe ich folgenden Code -->
Private Sub cmdKopieren_Click()
Dim strDirDate As String
Dim strDirPath As String
Dim strCopyVon As String
Dim strKunde As String
Dim pfad As String
Dim I As Long
Dim nDate As Date
Dim InStrRev As String
Dim strCopyVonPath As String
Dim strCopyVonFolder As StringnDate = Format(DTPicker3.Value, „yymmdd“)
strDirDate = nDate
strKunde= txtKundenID
strDirPath = txtSpeicherPfadFor I = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(I) = True Then
strCopyVon = ListBox2.List(I)
strCopyVonPath = Left(strCopyVon, InStrRev(strCopyVon, „“) - 1)
strCopyVonFolder = Mid(strCopyVonPath, InStrRev(strCopyVonPath, „“) + 1)CreateObject(„Scripting.FileSystemObject“).CopyFolder strCopyVonPath, strDirPath & „“ & strCopyVonFolder
End If
Next I
End Sub
Leider klappt das nicht, da er bei InStrRev einen „Compile error - expected array“-Fehler bringt.
Wie schaffe ich es dennoch das markierte, bzw. ausgewählten (werde ich noch ein Multiselect machen) File in mein Verzeichnis zu kopieren?
Puhhhhhhhhhhhhhhhh
Also, wenn jemand Zeit und Lust hat, über ein paar Tipps wäre ich total happy 
Gruß Rolf
