Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1599 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°802858
finality18​2
Posté le 22-07-2004 à 11:01:02  profilanswer
 

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 .. :)
 

mood
Publicité
Posté le 22-07-2004 à 11:01:02  profilanswer
 

n°802974
JihemAir
Je sais pas
Posté le 22-07-2004 à 12:10:08  profilanswer
 

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

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
VB6, ajout de clé registre[JS][RESOLU] Accès d'1 elt a partir du nom contenu dans une var
récupérer les noms et url d'un dossierScript pour zipper un dossier
[JAVA] Imprimer le contenu d'un TextAreal'api AnimateWindow en vb6
Dossier d'un site protéger???Changer le contenu de la page après une certaine heure.
Comment miniaturiser toutes les images d'un dossier ?effacer un dossier
Plus de sujets relatifs à : [VB6] Copier le contenu d'un dossier, dans un autre dossier


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR