Automized run of FreefileSync Batchfile with VBScripting

[je22]

Hi,
on the webpage of Freefilesync it is said, that FFS supports commandline.
Is there a possibility to run a FFS-Batch-file with VBScripting?
Do I have to integrate a commandlinebatchfile in my VBScript to run the FFSbatchfile - how is it done?
I'm a beginner in VBScripting and I want an automized running of FFS-Batchfile.

Please be so kind an help me...

Here is my try:

on Error resume Next
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
C:\Program Files\FreeFileSync\FreefileSync.exe D:\Daten\aufbewahren\PC\FreeFileSync\NWL_X-Sync-PC\NWL_X-Sync-PC.ffs_batch
If Err.Number = 0 then
msgbox("NWL_X-Sync-PC erfolgreich durchgeführt.")
else
msgbox ("Fehler bei Sync aufgetreten.")
end if


[je22]

Here my attempt to integrate a commandline-Batchfile in my VBScript code:

on Error resume Next
Dim f,fso
Set fso = CreateObject("Scripting.FileSystemObject")
Shell.run "D:\Daten\aufbewahren\PC\FreeFileSync\NWL_X-Sync-PC\runbat_NWL_X-Sync-PC.bat"
If Err.Number = 0 then
msgbox("NWL_X-Sync-PC erfolgreich durchgeführt.")
else
msgbox ("Fehler bei Sync aufgetreten.")
end if


the runbat_NWL_X-Sync-PC.bat contains:
"C:\Program Files\FreeFileSync\FreefileSync.exe" "D:\Daten\aufbewahren\PC\FreeFileSync\NWL_X-Sync-PC\NWL_X-Sync-PC.ffs_batch"

Please be so kind and help me...

[je22]

hi, the solution is:

on Error resume Next
Dim f,fso,letztdat,datdiff
Set fso = CreateObject("Scripting.FileSystemObject")
Set wss = CreateObject("Wscript.Shell")
wss.run "D:\Daten\aufbewahren\PC\FreeFileSync\NWL_X-Sync-PC\runbat_NWL_X-Sync-PC.bat"
'Shell.run "D:\Daten\aufbewahren\PC\FreeFileSync\NWL_X-Sync-PC\runbat_NWL_X-Sync-PC.bat"
If Err.Number = 0 then
msgbox("NWL_X-Sync-PC erfolgreich durchgeführt.")
else
msgbox ("Fehler bei Sync aufgetreten.")
end if