Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

pattern trifft nicht
Autor: sign
Datum: 13.08.08 07:06
Hallo, mein script soll die Unterverzeichnisse von Temp auf Dateien prüffen. Wenn es dort welche findet sollen die Dateinamen nach log_file.txt geschrieben werden. Nach dem nächsten Script Start soll es die gefundenen Dateien mit den Dateinamein in der log_file.txt vergleichen und die gefunden ausgeben. Leider funktioniert mein pattern nicht. Kann mir jemand sagen was ich falsch gemacht habe. Danke wie immer für Eure Hilfe. ' Const Const ForWriting = 2 Const ForAppending = 8 Const ForReading = 1 ' EndConst ' Variable ' -------- strVerzeichnisbaum = "\\rechner\c$\temp\" strLogFile = "log_file.txt" strLogFile = strVerzeichnisbaum & strLogFile i_count = 0 ' Objects ' ------- Set objFs = CreateObject("Scripting.FileSystemObject") Set oOApp = CreateObject("Outlook.Application") Set objRegAusdr = New RegExp objRegAusdr.IgnoreCase = vbTrue Set oFile = objFs.OpenTextFile(strLogFile, ForReading, vbTrue) lines = Split(oFile.ReadAll, VbCrLf) oFile.Close Set oLogFile = objFs.OpenTextFile(strLogfile, ForWriting, vbTrue) For Each folder In objFs.GetFolder(strVerzeichnisbaum).SubFolders If objFs.GetFolder(folder).files.Count > 0 Then For Each file In objFs.GetFolder(folder).Files objRegAusdr.Pattern = file For Each line In lines Set Matches = objRegAusdr.Execute(line) If Matches.Count = 1 Then WScript.Echo file End If Next oLogFile.WriteLine(file) Next End If Next oLogFile.Close Beitrag wurde zuletzt am 13.08.08 um 07:23:37 editiert.

pattern trifft nicht	2.503	sign	13.08.08 07:06
Re: pattern trifft nicht	1.460	sign	13.08.08 08:43
Re: pattern trifft nicht	1.667	~~~dexter~~~	13.08.08 14:07
Re: pattern trifft nicht	1.454	sign	19.08.08 14:02

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen