Öffnen Sie eine Datei mit Editor und speichern Sie sie mit VBScript

Question

Mein Problem ist, dass ich eine Datei im Editor öffnen und dann im Editor speichern möchte, nicht manuell, sondern mit VBScript (der Grund, warum ich dies einige Codierungsprobleme überwinden will)). Bis jetzt habe ich eine relevante article gefunden, die mein Problem lösen sollte, aber es funktioniert nicht. Es hat diesen Code:

Dim notepad, wndNotepad, strDesktop 

Set notepad = Sys.Process("notepad") 
Set wndNotepad = notepad.Window("Notepad") 

' Open a file in Notepad 
wndNotepad.MainMenu.Click("File|Open...") 
notepad.Window("#32770", "Open").OpenFile "C:\Program Files\SmartBear\TestComplete 12\install.txt" 

' Save the file to the desktop 
strDesktop = WshShell.SpecialFolders("Desktop") 
wndNotepad.MainMenu.Click "File|Save as..." 
notepad.Window("#32770", "Save As").SaveFile strDesktop & "\install.txt" 

Das Problem ist, dass Vbscript nicht das Sys in der zweiten Zeile erkennen kann (Sys.Process). Ich nehme an, dass in dieser Zeile ein Prozess für Notepad erstellt werden soll (like here) und dann etwas wie ein Objekt dieses Prozesses an den Variablenblock zurückgegeben werden soll (etwas, das ich nicht weiß, ob und wie man es erreichen kann) in der dritten Zeile verwendet (notepad.Window("Notepad")).

Wenn jemand irgendeine Idee hat, wie der Code sein sollte, um zu arbeiten, würde ich wirklich die Hilfe schätzen. Auch andere Vorschläge, wie dieses Problem zu lösen ist (oder Ideen, ob es tatsächlich gelöst werden kann) sind sehr willkommen. Vielen Dank für Ihre Zeit.

EDIT

Wie ich unten in den Kommentaren gesagt, muss der obige Code die Software Testcomplete was teuer ist. Wenn also jemand eine Idee hat, mein Problem auf andere Weise zu lösen (andere Software, anderer Code, andere Programmiersprache), würde ich mich freuen, es zu lernen.

Answer 1

Ich denke, Sie müssen eine Datei von einem Pfad zum anderen kopieren. Bitte beachten Sie den Code unten für das Kopieren von Dateien,

Funktion Copyfile()

strSourceFile = "c:\.....\source.txt" 
strDestFile = "c:\.....\dest.txt" 

Set fso = CreateObject("Scripting.FileSystemObject") 
'Check to see if the file is read-only 
If Not fso.GetFile(DestinationFile).Attributes And 1 Then 
    'The file exists and is not read-only. Safe to replace the file. 
    fso.CopyFile strSourceFile, strDestFile, strOverWrite 
Else 
    'The file exists and is read-only. 
    'Remove the read-only attribute 
    fso.GetFile(DestinationFile).Attributes = fso.GetFile(DestinationFile).Attributes - 1 
    'Replace the file 
    fso.CopyFile strSourceFile, strDestFile, strOverWrite 
    'Reapply the read-only attribute 
    fso.GetFile(DestinationFile).Attributes = fso.GetFile(DestinationFile).Attributes + 1 
End If 

End Function