Sub test()
Dim myFso As Object, fichierSource As String, fichierDestination As String
Set myFso = CreateObject("Scripting.FileSystemObject")
fichierSource = "C:\test.txt"
fichierDestination = "D:\test.txt"
myFso.MoveFile fichierSource, fichierDestination
Set myFso = Nothing
End Sub
Sub DEPLACERfichiers()
Dim myFso As Object, fichierSource As String, fichierDestination As String
Set myFso = CreateObject("Scripting.FileSystemObject")
fichierSource = "H:\Mes Documents 3\doc1\*.*"
fichierDestination = "H:\Mes Documents 3\doc2\*.*"
myFso.MoveFile fichierSource, fichierDestination
End Sub
Sub DEPLACERfichiers()
Dim myFso As Object, dossierSource As Object, curFichier As Object
Set myFso = CreateObject("Scripting.FileSystemObject")
Set dossierSource = myFso.GetFolder("H:\Mes Documents 3\doc1")
For Each curFichier In dossierSource.Files
myFso.MoveFile curFichier.Path, "H:\Mes Documents 3\doc2\" & curFichier.Name
Next curFichier
Set myFso = Nothing: Set dossierSource = Nothing: Set curFichier = Nothing
End Sub
Sub DEPLACERfichiers()
Dim myFso As Object, fichierSource As String, fichierDestination As String
Set myFso = CreateObject("Scripting.FileSystemObject")
fichierSource = "H:\Mes Documents 3\doc1\*.*"
fichierDestination = "H:\Mes Documents 3\doc2\*.*"
myFso.MoveFile fichierSource, fichierDestination
End Sub