Déplacer des fichiers

Déplacer des fichiers - VB/VBA/VBS - Programmation

Marsh Posté le 18-03-2008 à 18:42:47    

Bonjour,
 
Je cherche à déplacer l'ensemble des fichiers présents dans un répertoire vers un autre.
 
Illustration:
 
Folder TEST            Folder TEST2
-----------             ------------
 
test.txt      >>>>>
Test2.doc   >>>>>
 
 
Je pense que le Fso avec un boucle est le moyen le plus simple, mais je n'arrive pas à trouver la bonne syntaxe.
 
Je pensais à un truc du genre:
 

Code :
  1. Dim PATH, NPATH as String
  3. Dim oFSO As Scripting.FileSystemObject
  4. Set oFSO = New Scripting.FileSystemObject
  6. PATH= "C:\TEST\"
  7. NPATH = "C:\TEST2\
  9. For each Files in PATH
  11. oFSO.MoveFile PATH & Files, NPATH & Files
  13. Next Files
  16. Set oFSO = nothing


 
Mais ça marche po !


Message édité par krhyme78 le 18-03-2008 à 18:44:08
Reply

Marsh Posté le 18-03-2008 à 18:42:47   

Reply

Marsh Posté le 18-03-2008 à 19:59:54    

Soir Bon, cela ne m'étonne po


Option Explicit
 
Sub Tst()
Dim PATH As String, NPATH As String
Dim oFSO As Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder
Dim DossierDestination As Scripting.Folder
Dim File As Scripting.File
 
    Set oFSO = New Scripting.FileSystemObject
 
    PATH = "C:\TEST\"
    NPATH = "C:\TEST2\"
 
    Set DossierSource = oFSO.GetFolder(PATH)
    Set DossierDestination = oFSO.GetFolder(NPATH)
     
    For Each File In DossierSource.Files
        oFSO.MoveFile File, DossierDestination & "\" & File.Name
    Next File
 
    Set DossierDestination = Nothing
    Set DossierSource = Nothing
    Set oFSO = Nothing
End Sub


Message édité par kiki29 le 18-03-2008 à 20:12:48
Reply

Marsh Posté le 19-03-2008 à 10:00:38    

Ci-mer bien mon kiki, lo ca marche bieng ! impek !! ;)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed