copier

Question

bonjour je voudrai savoir si c possible de copier un fichier avec cette commende Name "c:\d" As "c:\c\d"
samarche mes sa coupe pui colle le dossier moi je ve qui copi
merci
                     ==drpsico==

Renfield · Answer

utilises FileCopy 

Amusez-vous !  ;) 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS

drpsico · Answer

oui mes c trop compliqué quand on ve deplacer un dossier avec des fichier ou autre dedan
moi je voulai savoir si en remplacen as par quelque chose sa puisse copier o lieu de deplacer
                     ==drpsico==

Renfield · Answer

Private Sub Form_Load() CopyFolder "C:\a", "C:\b" End Sub Public Function CopyFolder(ByVal Folder_From As String, ByVal Folder_To As String, Optional Pattern As String = "*.*") As Boolean '# on s'assure que le repertoire A existe. Sinon, on quitte If LenB(Dir$(Folder_From, vbDirectory)) = 0 Then Exit Function '# on s'assure que le repertoire B existe. Sinon, on le crée If LenB(Dir$(Folder_To, vbDirectory)) = 0 Then MkDir Folder_To If Right$(Folder_From, 1) <> "" Then Folder_From = Folder_From & "" If Right$(Folder_To, 1) <> "" Then Folder_To = Folder_To & "" Dim FileName As String: FileName = Dir(Folder_From & FileName) While LenB(FileName) <> 0 FileCopy Folder_From & FileName, Folder_To & FileName FileName = Dir Wend CopyFolder = True End Function Amusez-vous ! ;) Renfield - thomas_reynald@msn.com Admin CodeS-SourceS

Copier

3 réponses

Discussions similaires