Messaggio errore ScriptVBA
Posted: 13/05/2024, 14:38
Salve,
ho scritto questo script per salvare un file dal pannello ad una pennetta USB collegata alla presa anteriore:
Dim FileScelto, FileDaCopiare As String
Dim Destinazione As String
Dim Indice, temp As Integer
Sub Main()
On Error GoTo GestioneErrore
FileScelto = GetFilePath$("*.csv",,,"Scegli File",0)
temp = InStrRev(FileScelto,"\")
Indice = Len(FileScelto) - temp
FileDaCopiare = Right(FileScelto,Indice)
'MsgBox (FileScelto,vbOkOnly,"file da copiare")
ChDrive "HardDisk2"
'MkDir "HardDisk2:\log"
ChDir "HardDisk2:\"
Destinazione = CurDir$() + "\" + FileDaCopiare
'MsgBox(Destinazione,vbInformation,"Stringa Destinazione")
FileCopy (FileScelto,Destinazione)
Exit Sub
GestioneErrore:
MsgBox(Err.Description,vbExclamation,"Errore")
Exit Sub
End sub
Con il simulatore di Movicon funziona bene, ma quando lo carico nel pannello all'esecuzione dello script mi segnala il seguente errore, del quale non riesco a capire il motivo e neppure la linea e l'offset a cui si riferisce.
Ringrazo in anticipo per la cortesia e cordialmente saluto
ho scritto questo script per salvare un file dal pannello ad una pennetta USB collegata alla presa anteriore:
Dim FileScelto, FileDaCopiare As String
Dim Destinazione As String
Dim Indice, temp As Integer
Sub Main()
On Error GoTo GestioneErrore
FileScelto = GetFilePath$("*.csv",,,"Scegli File",0)
temp = InStrRev(FileScelto,"\")
Indice = Len(FileScelto) - temp
FileDaCopiare = Right(FileScelto,Indice)
'MsgBox (FileScelto,vbOkOnly,"file da copiare")
ChDrive "HardDisk2"
'MkDir "HardDisk2:\log"
ChDir "HardDisk2:\"
Destinazione = CurDir$() + "\" + FileDaCopiare
'MsgBox(Destinazione,vbInformation,"Stringa Destinazione")
FileCopy (FileScelto,Destinazione)
Exit Sub
GestioneErrore:
MsgBox(Err.Description,vbExclamation,"Errore")
Exit Sub
End sub
Con il simulatore di Movicon funziona bene, ma quando lo carico nel pannello all'esecuzione dello script mi segnala il seguente errore, del quale non riesco a capire il motivo e neppure la linea e l'offset a cui si riferisce.
Ringrazo in anticipo per la cortesia e cordialmente saluto