copier tous les fichiers sauf les dossiers

Bonjour,

Voila mon premier poste sur ce forum qui m'a l'air extraordinaire et rempli de mille et une informations :D

Je commence à programmer en vbs depuis 1semaine dans ma boîte la et je voudrais savoir si quelqu'un saurait comment faire :
Que je puisse copier tous les fichiers dans un dossier, sans prendre les dossiers se trouvant dans ce dossier ( vous me suivez ? 8O ) et une fois copié, tout coller dans un autre dossier.

J'ai déjà réussi à copier tous les fichiers d'un dossier en fesant la commande suivante :

Code:

---

1 2 3 4

Const OverWriteFiles = TRUE   Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFolder Source_Path , Destination_Path , OverWriteFiles

---

Source_Path et Destination_Path sont des variables qui montre le chemin.

Je voudrais juste pouvoir copier tous les fichiers de Source_Path, sans les dossiers se trouvant dedans.


Merci pour ceux qui comprendront :)

Il fallait allez juste un peu plus loin, si une fonction CopyFolder existe, alors une fonction CopyFile doit exister. :)
Voici un exemple de code qui pourrait te servir :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Copying a File Demonstration script that uses the FileSystemObject to copy a file. Script must be run on the local computer. Const OverwriteExisting = TrueSet objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "C:\FSO\ScriptLog.txt" , "D:\Archive\", OverwriteExisting Copying a Set of Files Demonstration script that uses the FileSystemObject to copy all the .txt files in a folder to a new location. Const OverwriteExisting = TrueSet objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "C:\FSO\*.txt" , "D:\Archive\" , OverwriteExisting

---

Voici un lien vers un site qui donne plein d'exemples de vbs pour faire plein de choses sous windows :D :
http://www.activexperts.com/activmon.../adminscripts/

merci pour tous les renseignements ! Je devrais pouvoir continuer avec cela :)

Petite question idiote... Comment on fait pour créer un dossier en VBS ??
Personne pourrait me donner la ligne me permettant de faire cela svp :oops:

avec Createfolder, qui te renvoi un objet "folder"

Code:

---

1 2 3

Dim MonRep Set FSO = CreateObject("Scripting.FileSystemObject") Set MonRep = fso.CreateFolder("c:\temp\toto")

---

Voici le code :

Code:

---

1 2	Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.CreateFolder("C:\FSO")

---

Je l'ai eu sur le site que je t'ai passe en lien dans "Files and folders > Folders"

alalla j'suis nul, je venais de le trouver sur le site et pas eu le temps de venir que vous aviez deja posté ^^

Merci quand même les gens ! J'ADOOORE CE FORUM héhé