Verifier si un dossier existe

Question

Je voudrait verifier si un dossier existe de facon a le creer si il n'existe pas.
J'utilise ce code pour verifier si un fichier existe, est-il possible de le remanier pour ki verifie si un dossier existe ?

Set fs = CreateObject("Scripting.FileSystemObject")

If fs.FileExists("X:\chemin\fichier.ext") = False Then
FileCopy "fichier.ext", "X:\chemin\fichier.ext"
Kill "fichier.ext"
End if

Merci de votre aide

Le killeur de l'enfer

keopsk · Answer

ça doit résoudre ton pb 

If fs.FolderExists("votre_dossier_avec_chemin") = False 
Then
   fs.CreateFolder ("votre_dossier_avec_chemin")

@+

lolokill666 · Answer

Ah ! Merci !!
Je suis trop con, g pas penser a remplacer file par folder !!!
J'ore du y penser.
Sinon, moi j'utilise mkdir pour creer le repertoir

mkdir " X:\chemin"

et ca marche bien, apperemment les commandes dos fonctionnent en VB.

Encore merci pour ton aide, bonne prog et @+++

Le killeur de l'enfer

keopsk · Answer

si vous penser mettre votre programme sur d'autre machines dont vous ne connaissez pas la conf, il vaut mieux eviter .... car la commande mkdir n'est pas forcement présente sur tt les machines

lolokill666 · Answer

Ah oki, je n'avait pas penser a ca, donc je v utiliser ta commande. Encore merci.
(Ps: Tu peux me tutoyer, je deteste kon me vouvois  sur internet, je trouve ca "con")

Le killeur de l'enfer

Verifier si un dossier existe

4 réponses

Discussions similaires