Option Explicit
function sposta()
dim oa
dim fs
dim filename
set oa = WScript.Arguments
set fs = createObject("Scripting.FileSystemObject")
filename = oa(0)
fs.MoveFile filename, "C:\Users\francesco.bosetti\Dropbox\Download\"
set fs = nothing
set oa = nothing
end function
call sposta
BosoTrigger.bat:
"C:\WINDOWS\SYSTEM32\wscript.exe" "C:\Users\francesco.bosetti\Batch\BosoTrigger.vbs" %1
