Oppure

Loading
11/09/09 12:06
TheEngi
:d qualcuno potrebbe aiutarmi non capisco più niente ve lo giuro please!:hail:
aaa
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:49
ruggy94
Postato originariamente da TheEngi:

allora una cosa mi dice che copyfile non è dichiarato!!!!

E' normalissimo. Non so da dove abbia preso questa funzione...comunque in ogni caso utilizzando la procedure di r0gerblack dovresti passare come parametri tutti i percorsi dei file da copiare in un array...
Francamente ti consiglio di semplificarti la vita e di utilizzare un BackgroundWorker.
Ti ho già detto come fare...
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        'procedura che copia i file
    End Sub

    Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
    End Sub

Per avviare la copia dei file, basta
BackgroundWorker1.RunWorkerAsync()
aaa
11/09/09 12:51
TheEngi
Grazie mille ora ho capito al 100% come utilizzare il background worker anke perchè era la prima volta che lo usavo:rotfl: grazie mille :hail::hail:
aaa
11/09/09 12:52
r0gerblack
Prova a sostituirlo con My.Computer.FileSystem.CopyFile
aaa