txt-Datei Inhalt mit VBS bearbeiten

[Kuhhirn]

Hallo zusammen
Ich habe einen Ordner mit Playlisten. Da der Pfad der Musikdateien, welche in diesen Playlisten erfasst sind, teilweise wieder ändern, will ich ein VBS, welches mir diese Arbeit übernimmt. Ich habe schon Teile ausm internet kopiert, doch an einem Punkt bleibe ich stehen. (Bitte nur auf diesen Punkt eingehen!, mit Smiley markiert)

Option Explicit
dim fso, oShell, oSource, strPath

Set fso = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Shell.Application")
Set oSource = oShell.BrowseForFolder(0, "Verzeichnis auswählen:", 22, 12)

strPath = oSource.Items().Item().Path

If strPath <> "" Then
RenameFiles strPath
End If

WScript.Echo "Vorgang beendet"

Sub RenameFiles(strFolder)
Dim oFolder, oFiles, item, file, strNewText, strText
Set oFolder = fso.GetFolder(strFolder)
Set oFiles = oFolder.Files

For each item in oFiles
Set file = fso.OpenTextFile(item, 1) ## wenn ich statt item den Pfad angebe ists i.o, wie kann ich den Pfad der aktuellen Datei also herausfinden?? ##

strText = file.ReadAll
file.Close
strNewText = Replace(strText, "\sort", "")

Set file = fso.OpenTextFile("C:\Text.txt", 2)
file.WriteLine strNewText
file.Close
Next
End Sub

 

[miac]

Der Fehler sagt was von Zeile 25.
Ist das denn Zeile 25?

 

[Backslash]

Bitte verwende Code-Tags zum posten, das erhöht die Lesbarkeit erheblich.

Ich persönlich würde im Allgemeinen für Textverarbeitung zu einer anderen Sprache greifen, wie z.B. AWK, Perl oder evtl. Python, entschuldige bitte dass ich dir bei deinem Problem nicht direkt helfen kann.