Recherche la présence d'un dossier "XXX"

Question

J'ai développé une application VBA sur Excel 2003; mon problème est que je ne parviens pas à ellaborer le code me permettant de vérifier l'existance d'un dossier quelconque ("2006", par exemple): si celui-ci n'existe pas alors faire appel à une procédure qui le créera en conséquence.
Merci, d'avance à tous ceux qui m'aideront.

cs_JMO · Answer

Bonjour à tous....

Bonjour devloukili,
Ci-dessous un lien répondant à ta question.
http://www.vbfrance.com/recherche.aspx?r=Pr%e9sence+fichier&tr=source

N'hésite pas à utiliser le moteur de recherche de ce forum ou 
de codyx.
Bon courage et bonne programmation.

jean-marc

hamster man · Answer

voila quelque chose que tu pourrais utiliser :

Global G_StrNomDossier
Global G_StrNomCompletDossier

dim L_BoolRet
dim L_ObjFs

G_StrNomDossier = "2006"
G_StrNomCompletDossier = C:\ + G_StrNomDossier

'verifie si ton dossier existe
Set L_ObjFs = createObject("Scripting.FileSystemObject")
L_BoolRet = L_ObjFs.FileExists(G_StrNomCompletDossier)

'si il existe pas, on le céer
if not L_BoolRet then
   CreerDossier       'ta fonction pour le creer
end if

voila maintenan je pense kil doi manquer quelque chose mai bon je ne vai pa non plu fair ton programme lol aler bon prog tcho gar

cs_JMO · Answer

Bonjour à tous....


Bonsoir 633192  hamster man ,


 =883303 devloukili étant tout nouveau sur ce Forum, j'ai préféré l'orienter


vers le moteur de recherche où il est obligé de trouver une réponse en VB6,


puisqu'elles (les réponses) s'y trouvent. (avec ou sans fso).


jean-marc

mortalino · Answer

salut,

voici trois bons snippets en vb6 :

http://www.codyx.org/snippet_savoir-si-fichier-existe_65.aspx

@++ 

<hr width="100%" size="2" />( Nouveau forum : Exclusivement Office & VBA/STRONG>

Recherche la présence d'un dossier "XXX"

4 réponses

Votre réponse

Discussions similaires