[VB6] Copier le contenu d'un dossier, dans un autre dossier

Copier le contenu d'un dossier, dans un autre dossier [VB6] - VB/VBA/VBS - Programmation

Marsh Posté le 22-07-2004 à 11:01:02    

salut,
comme dis dans le titre, j'aimerais copier le CONTENU d'un dossier (quel qu'il soit), dans un autre dossier.
 
Private Sub Command1_Click()
Set fso = CreateObject("Scripting.FileSystemObject" )
a = fso.CopyFolder("C:\te", "C:\to", True)
End Sub
 
j'aimerai mettre C:\te\* mais bon .. :)
 

Reply

Marsh Posté le 22-07-2004 à 11:01:02   

Reply

Marsh Posté le 22-07-2004 à 12:10:08    

Code :
  1. Dim fso As FileSystemObject
  2. Dim objFile As File
  3. Dim objDir As Folder
  6.     Set fso = CreateObject("Scripting.FileSystemObject" )
  7.     For Each objDir In fso.GetFolder("d:\mes documents" ).SubFolders
  8.         Debug.Print objDir.Name
  9.     Next
  10.    
  11.     For Each objFile In fso.GetFolder("d:\mes documents" ).Files
  12.         Debug.Print objFile.Name
  13.     Next

Adapte ce bout de programme. Ca devrait faire l'affaire.

Reply

Sujets relatifs:

Leave a Replay

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