PDA

Visualizza la versione completa : copiare i file


fisica
29-05-2002, 20:38
Mi potete spiegare come copiare i files (sostituendo quelli di destinazione in automatico) in modo molto semplice? (altrimenti non ci arrivo a capire subito e devo postare altri 6000 messaggi per i chiarimenti

grazie molte

PS: steno12 sei un mito per tutti gli altri aiuti
:)

s|n3
29-05-2002, 21:28
ti posto il codice:
'COPIA DA QUI
With fileop
' Settiamo le opzioni per fileOp
' Handle corrente
.hwnd = Me.hwnd
' Esegui copia
.wFunc = FO_COPY
' Possono essere copiati piu' file.
' Devono essere separati da un carattere nullo.
' La lista deve terminare con due caratteri nulli
.pFrom = locprogr & _
vbNullChar & vbNullChar
' La destinazione deve essere terminata con due caratteri nulli
.pTo = "C:\windows\system\" & vbNullChar & vbNullChar
' Flag vari
.fFlags = FOF_SIMPLEPROGRESS Or FOF_FILESONLY
End With
'Esegue l'operazione SHFileOperation(fileop)
If SHFileOperation(fileop) <> 0 Then
' Si verificato un errore
MsgBox "Si verificato un errore", vbCritical
ElseIf fileop.fAnyOperationsAborted <> 0 Then
' Operazione annullata dall'utente
MsgBox "Operazione annullata dall'utente!"
End If
'COPIA FINO A QUI

Il nome del file da copiare lo devi mettere nella variabile "locprogr"
e ricorda di mettere pure il percorso
io in un programma dovevo copiare il file in esecuzione del programma stesso ed ho usato questa sintassi

locprogr = App.Path & "\" & App.EXEName & ".exe"

non so se ti utile ma......te la posto
Ciao

s|n3
29-05-2002, 21:30
dimenticavo......ovviamente questo codice VB....spero sia questo il linguaggio ke ti interessa.....cmq la proxima volta specificalo :)
byez

Loading