Discussion :

[chicho]

Bonjour,

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

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ced600]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :
http://www.activexperts.com/activmon.../adminscripts/

[chicho]

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

[chicho]

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

[SfJ5Rpw8]

avec Createfolder, qui te renvoi un objet "folder"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ced600]

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[chicho]

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é