Copier un fichier

Question

Voila le problem, kan jessaye de copier le fichier la boucle ne sarrete jamais, et la taille du fichier ne fais qu'augmenter

Dim Chemin1 As String, NomFichier As String, Chemin2 As String
Dim A1 As Byte, A2 As Byte
Dim Donnée As String

Cd1.ShowOpen
Chemin1 = Cd1.FileName
NomFichier = Right(Chemin1, Len(Chemin1) - InStrRev(Chemin1, ""))
Chemin2 = "C:" & NomFichier

A1 = FreeFile
Open Chemin1 For Binary Lock Write As A1
A2 = FreeFile
Open Chemin2 For Binary As A2

Do
 Donnée = String(FileLen(Chemin), " ")
   Get A1, , Donnée
     Put A2, , Donnée
Loop until Filelen(Chemin) = Filelen(Chemin2)

Msgbox "Le fichier a ete copié"

Close A1
Close A2

please help
merci

ElDoktor · Answer

A mon avis y'a p'tetre un petit prob au niveau de "Chemin" , c'est pas Chemin1?
Sinon essaye plutot le test de fin de boucle suivant:

Do Until EOF(A1)
Donnée = String(FileLen(Chemin), " ")
Get A1, , Donnée
Put A2, , Donnée
Loop

zefri · Answer

Pas la peine de réinventer l'eau tiède !
Y'a tout ce qui faut en librairies Windows pour faire le boulot !
Suffit de référencer "Microsoft Scripting Runtime" dans ton projet, et puis après ça tient en quelques lignes...

Sub CopyFile( SourcePath as string, DestinationPath as string)

On Error GoTo Error
Dim fso As New FileSystemObject
Dim oFile As File

        Set oFile = fso.GetFile(SourcePath)
        oFile.Copy DestinationPath
        
        MsgBox "Fichier copié"
        
        Exit Sub
        
Error:

    MsgBox "Erreur de copie ! ( " & Err.Description & ")"

End Sub

Et c'est tout !

Copier un fichier

2 réponses

Discussions similaires