Hi NichtVBSProfi,
mal als Beispiel, wie man das mit VB6 machen würde. Der Code etwas an VBS angepasst müsste dort aber auch laufen (ich gehe davon aus, da ich VBS nicht so gut kenne).
Option Explicit
Dim ObjFileSystemObject As Object
Dim objAnzDateien As Object
Dim objDurchläufe As Object
Dim objDateityp As Object
Const strPath As String = "H:\"
Const strNameAuswertdatei As String = "Auswertung.txt"
Sub Main()
'Auswertdatei löschen
On Error Resume Next
Kill strPath & strNameAuswertdatei
On Error GoTo 0
'Verweise zuweisen
Set ObjFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set objAnzDateien = ObjFileSystemObject.getfolder(strPath)
'Makro starten
Call Auslesen
End Sub
Sub Auslesen()
On Error Resume Next
'Pfad auslesen
For Each objDateityp In objAnzDateien.Files
If Right(objDateityp.Name, 4) = ".txt" Then
Open strPath & strNameAuswertdatei For Append As #1
Print #1, objDateityp.Path
Close
End If
Next
For Each objDurchläufe In objAnzDateien.subfolders
Set objAnzDateien = objDurchläufe
Auslesen
Next objDurchläufe
On Error GoTo 0
End Sub@bebi2000: Er stellt seine Frage in der Gruppe "Skripte(PHP,ASP,Perl...) " und fragt in seiner Überschrift nach "VBS - Dateisuche (Dateiname unbekannt)" da wird er wohl nicht eine Lösung mit einem Programm und dessen Suchenfunkion suchen. Da hätte er auch den Windows eigenen Explorer nehmen können.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
