Vbscript Mp277

[genan]

Ciao a tutti

vorrei creare un semplice script che copia una cartella e relative sottocartelle dalla storage card USB alla storage card USB2 di un pannello MP277

ho usato questo script:

Dim fso

Dim folder

Set fso = CreateObject("FileCtl.FileSystem")

Set folder = fso.FileCopy ("\Storage Card USB\Save\" , "\Storage Card USB2\Backup_archivi")

Set folder=Nothing

Set fso=Nothing

ma mi dice Acces denied

Ho provato anche con il MoveFile ma mi dice "the system cannot move file to another disk drive

Qualcuno ha avuto lo stesso mio problema?

[pigroplc]

non ho modo fi provare, ma non dovrebbe essere: \\Storage Card USB\Save al posto di \Storage Card USB\Save\

(doppio back slash per intenderci)??

pigroplc

[genan]

Guarda ho provato ma se metto il doppio backslash mi da "invalid path"

[genan]

Ho letto che il motivo di "accesso negato" possa essere che il file e' gia' in uso.

la cartella che devo copiare e' stata creata tramite un altro script..

In sintesi e' la cartella che contiene le sottocartelle con nome del lotto di produzione e data

Anche se e' di sola lettura dovrei spostarla tranquillamente credo..

Nessuno ha uno script gia' funzionante per testarlo?

[pigroplc]

guarda , io ho ruspato in un vecchio mio progetto:

sotto trovi il codice. è un pannello MP370 ma c'è WINCE che mi sembra il punto cruciale della anomalia, visto cha ha limitazioni rispetto agli altri sistemi operativi.

Prova.....

pigroplc

Dim fs, a, f, operatore, blank, trigger 'dichiara le variabili

trigger=0

archivio=trigger 'azzera il trigger di memorizzazione report

operatore = nome_login 'aggiorna il nome dell'operatore

'costruzione dell'header se il file non esiste

Set fs = CreateObject("FileCtl.File")'dichiara le proprietà del file

Dim esiste 'variabile booleana

'verifica lunghezza file, se=0 manca il file, quindi prepara header

fs.Open "\storage card\produzione.xls",8

f = fs.lof

fs.Close

If (f = 0) Then Call PtScp.Header()'prepara header

fs.Open "\storage card\produzione.xls",8 'apre il file e scrive alla fine file (comando=8) ascii default

blank=" "

fs.WriteFields( CStr(Date)+ ";" + CStr(Time) + ";" + operatore + ";" + CStr(PtVar."280_000") + ";" + CStr(PtVar.NOME_PROG)+ ";" + CStr(PtVar."280_002") + ";"+ CStr(PtVar."280_004") + ";" + CStr(PtVar."280_006") + ";" + CStr(PtVar."280_100") + ";" + CStr(PtVar."280_088") + ";" + CStr(PtVar."280_090")+ ";" + CStr(PtVar."280_094") ):

fs.Close 'chiudi il file

Call PtFct.Visualizza_testo_segnalaz_sistema("L'esportazione di valori di processo in produzione.xls è stata eseguita con successo.")

Call PtScp.GetFileSize1() 'controlla la dimensione del file con lo script

[genan]

Grazie pigroPLC dell'aiuto..

Ho provato altre strade usando il comando dir ma dice "Out of memory"

Si e' il Windows CE ad avere problemi.. se poi metti un MP277 meno performante del 377..

Provero' comunque il tuo codice e ti faro' sapere

Ciao ciao