Copier un fichier

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

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



-------------------------------
Réponse au message :
-------------------------------

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

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 !


-------------------------------
Réponse au message :
-------------------------------

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



-------------------------------
Réponse au message :
-------------------------------

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