Aliase werden nicht erkannt
Verfasst: 10. Jan 2022 19:24
Hallo Listlinge,
da ich jetzt eine ganze Reihe simpler Textdateien zusammenführen muss, wollte ich dazu den folgenden Code verwenden.
Den hatte ich irgendwann einmal aus dem alten Forum kopiert, weiss aber nicht mehr, ob er damals funktionierte.
Jetzt jedenfalls bekomme ich es nicht hin, wenn ich die Aliasdefinition verwende. Mit der festen Adresse funktioniert es.
Am liebsten wäre mir ein neuer Name, bestehend aus den ursprünglichen Namen im Quellordner, sodass sich die neue, zusammengesetzte Datei unter der ersten, ursprünglichen Datei einsortiert.
Datei1.txt
Datei2.txt
wird zu
Datei1_Datei2.txt.
Liebe Grüße
josinoro
da ich jetzt eine ganze Reihe simpler Textdateien zusammenführen muss, wollte ich dazu den folgenden Code verwenden.
Den hatte ich irgendwann einmal aus dem alten Forum kopiert, weiss aber nicht mehr, ob er damals funktionierte.
Jetzt jedenfalls bekomme ich es nicht hin, wenn ich die Aliasdefinition verwende. Mit der festen Adresse funktioniert es.
Code: Alles auswählen
Function OnClick(ByRef ClickData)
Set objFSO = CreateObject("Scripting.FileSystemObject")
rem Set objOutputFile = objFSO.CreateTextFile("{alias|desktop}\output.txt")
Set objOutputFile = objFSO.CreateTextFile("E:\\output.txt")
For each file in ClickData.Func.Command.files
strFilePath = file
Set objTextFile = objFSO.OpenTextFile(strFilePath)
strText = objTextFile.ReadAll
objTextFile.Close
objOutputFile.WriteLine strText
Next
objOutputFile.Close
End Function
Datei1.txt
Datei2.txt
wird zu
Datei1_Datei2.txt.
Liebe Grüße
josinoro