Pagina 1 di 1

VBS errore 800A000D

Inviato: ven 15 apr 2011, 8:43
da Franciosi
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

Re: VBS errore 800A000D

Inviato: sab 16 apr 2011, 18:01
da Lazza
Lanciano il seguente script
Non mi è chiaro: questo script dove l'hai trovato? Che funzione dovrebbe fare in Gimp? Perché è in VBS? Non mi risulta Gimp lo supporti...

Re: VBS errore 800A000D

Inviato: dom 17 apr 2011, 12:28
da vincenzojrs
E' windows? VBS è un formato per i messaggi di sistema

Re: VBS errore 800A000D

Inviato: dom 17 apr 2011, 13:16
da Lazza
Veramente Visual Basic è un linguaggio di "programmazione" (con le dovute virgolette, visto che chi programma in Visual Basic viene preso in giro da chi programma in qualsiasi altro linguaggio). Solo che non capisco cosa c'entri con Gimp... :roll:

Re: VBS errore 800A000D

Inviato: dom 17 apr 2011, 13:21
da vincenzojrs
Sorry