VBS errore 800A000D

Domandate qui se non riuscite ad installare i filtri o gli script, oppure se avete problemi legati alla creazione e modifica dei filtri. Qui si pongono le domande più tecniche.
Rispondi
Franciosi
Principiante
Principiante
Messaggi:1
Iscritto il:ven 15 apr 2011, 8:36
VBS errore 800A000D

Messaggio da Franciosi » 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

Avatar utente
Lazza
Amministratore
Amministratore
Messaggi:5254
Iscritto il:dom 5 set 2004, 13:06
Località:Italia
Contatta:

Re: VBS errore 800A000D

Messaggio da Lazza » sab 16 apr 2011, 18:01

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...

vincenzojrs
Moderatore
Moderatore
Messaggi:883
Iscritto il:ven 12 nov 2010, 18:56
Contatta:

Re: VBS errore 800A000D

Messaggio da vincenzojrs » dom 17 apr 2011, 12:28

E' windows? VBS è un formato per i messaggi di sistema

Avatar utente
Lazza
Amministratore
Amministratore
Messaggi:5254
Iscritto il:dom 5 set 2004, 13:06
Località:Italia
Contatta:

Re: VBS errore 800A000D

Messaggio da Lazza » dom 17 apr 2011, 13:16

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:

vincenzojrs
Moderatore
Moderatore
Messaggi:883
Iscritto il:ven 12 nov 2010, 18:56
Contatta:

Re: VBS errore 800A000D

Messaggio da vincenzojrs » dom 17 apr 2011, 13:21

Sorry

Rispondi