VBS errore 800A000D
Inviato: ven 15 apr 2011, 8:43
Lanciano il seguente script in corrispondenza di questa riga mi da l'errore in oggetto , grazie
File = dir("z:\manbil.dat")
Script
Dim Fso
Dim File
set Fso = CreateObject("SCRIPTING.FileSystemObject")
set wshShell = CreateObject("WScript.Shell")
File = dir("z:\manbil.dat")
'Pulizia files e creazione directory di salvataggio
wshshell.Run "%comspec% /c if exist c:\bizerba\gds\import\manbil.dat del c:\bizerba\gds\import\manbil.dat"
WScript.Sleep 1000
wshshell.Run "%comspec% /c if not exist c:\s3_exec\savmanbil md c:\s3_exec\savmanbil"
WScript.Sleep 1000
wshshell.Run "%comspec% /c net use z: \\vspdvlab\s3_exec$"
If dir("z:\manbil.dat") <> "" then
'If Fso.FileExists("z:\manbil.dat") Then
WScript.Sleep 100
'Fso.MoveFile "z:\manbil.dat" , "c:\s3_exec\savmanbil"
wshshell.Run "%comspec% /c move z:\manbil.dat c:\s3_exec\savmanbil"
WScript.Sleep 1000
wshshell.Run "%comspec% /c copy /b c:\s3_exec\savmanbil\manbil.dat /a c:\bizerba\gds\import\manbil.dat /b"
WScript.Sleep 1000
wshshell.Run "%comspec% /c net use z: /delete /yes"
WScript.Sleep 1000
'Imposto le variabili da utilizzare nella procedura e rinomino il file
strDate = Day(Date()) & month(date()) & Year(Date())
strTime = Hour(Time()) & Minute(Time()) & Second(Time())
'Lancio l'invio alle bilance
wshshell.Run "%comspec% /c copy /b c:\s3_exec\savmanbil\manbil.dat /a c:\bizerba\gds\import\manbil.dat /b"
WScript.Sleep 1000
wshshell.Run "%comspec% /c c:\bizerba\GDS\IMPMANBIL.EXE 2"
WScript.Sleep 1000
wshshell.Run "%comspec% /c c:\bizerba\gds\gdsauto.exe 0"
WScript.Sleep 1000
wshshell.Run "%comspec% /c c:\bizerba\gds\gdsauto.exe 1"
WScript.Sleep 1000
fso.MoveFile "C:\s3_exec\savmanbil\MANBIL.DAT", "C:\s3_exec\savmanbil\manbil" & strDate & "-" & strTime & ".dat"
WScript.Sleep 1000
Else
MsgBox "Il file non esiste"
End If
File = dir("z:\manbil.dat")
Script
Dim Fso
Dim File
set Fso = CreateObject("SCRIPTING.FileSystemObject")
set wshShell = CreateObject("WScript.Shell")
File = dir("z:\manbil.dat")
'Pulizia files e creazione directory di salvataggio
wshshell.Run "%comspec% /c if exist c:\bizerba\gds\import\manbil.dat del c:\bizerba\gds\import\manbil.dat"
WScript.Sleep 1000
wshshell.Run "%comspec% /c if not exist c:\s3_exec\savmanbil md c:\s3_exec\savmanbil"
WScript.Sleep 1000
wshshell.Run "%comspec% /c net use z: \\vspdvlab\s3_exec$"
If dir("z:\manbil.dat") <> "" then
'If Fso.FileExists("z:\manbil.dat") Then
WScript.Sleep 100
'Fso.MoveFile "z:\manbil.dat" , "c:\s3_exec\savmanbil"
wshshell.Run "%comspec% /c move z:\manbil.dat c:\s3_exec\savmanbil"
WScript.Sleep 1000
wshshell.Run "%comspec% /c copy /b c:\s3_exec\savmanbil\manbil.dat /a c:\bizerba\gds\import\manbil.dat /b"
WScript.Sleep 1000
wshshell.Run "%comspec% /c net use z: /delete /yes"
WScript.Sleep 1000
'Imposto le variabili da utilizzare nella procedura e rinomino il file
strDate = Day(Date()) & month(date()) & Year(Date())
strTime = Hour(Time()) & Minute(Time()) & Second(Time())
'Lancio l'invio alle bilance
wshshell.Run "%comspec% /c copy /b c:\s3_exec\savmanbil\manbil.dat /a c:\bizerba\gds\import\manbil.dat /b"
WScript.Sleep 1000
wshshell.Run "%comspec% /c c:\bizerba\GDS\IMPMANBIL.EXE 2"
WScript.Sleep 1000
wshshell.Run "%comspec% /c c:\bizerba\gds\gdsauto.exe 0"
WScript.Sleep 1000
wshshell.Run "%comspec% /c c:\bizerba\gds\gdsauto.exe 1"
WScript.Sleep 1000
fso.MoveFile "C:\s3_exec\savmanbil\MANBIL.DAT", "C:\s3_exec\savmanbil\manbil" & strDate & "-" & strTime & ".dat"
WScript.Sleep 1000
Else
MsgBox "Il file non esiste"
End If