11/09/09 12:27
r0gerblack
Prova così:
Private Sub CopyWithProgress(ByVal ParamArray filenames As String())
pBar1.Minimum = 1
pBar1.Maximum = filenames.Length
pBar1.Value = 1
pBar1.Step = 1
Dim x As Integer
for x = 1 To filenames.Length - 1
If CopyFile(filenames(x - 1)) = True Then
pBar1.PerformStep()
End If
Next x
End Sub
Ultima modifica effettuata da r0gerblack 11/09/09 12:31
aaa
11/09/09 12:38
TheEngi
Scusa non ho capito:
1) Funziona anche con le cartelle????
2) Io devo copiare diverse cartelle per una dimensione totale di 800 mb nn credo che funzioni queto codice per quello che ho bisogno????
cmq lo provo
Ultima modifica effettuata da TheEngi 11/09/09 12:39
aaa
11/09/09 12:40
r0gerblack
con le cartelle non so, comunque prova
aaa
11/09/09 12:42
TheEngi
allora una cosa mi dice che copyfile non è dichiarato!!!!
aaa
11/09/09 12:52
r0gerblack
Prova a sostituirlo con My.Computer.FileSystem.CopyFile
aaa