Teste un repertoire (Urgent et surement simple ^^)

Question

Voila en faite je desire tester si c:\a existe et s il n existe pas le creer cependant je n arrive pas a faire un fonction qui teste l existence...
je fait cela moi
if not Fichierexiste("c:\a")then
mkdir("c:\a)
end if

ma fonction fichierexiste me renvoie tj faux comment en creer une qui sacche bien si le rep existe ou pas (Si sa se trouve il ya mile fois plus simple)
Merci^_^

borntoclimb · Answer

"C:\a" c'est un repertoire ou un fichier?
Sinon tu peux chercher du coter des FSO (File System Object), quelqu'un a deja du deposer une source. 
Si tu ne trouves pas je peux te dire comment faire (fo que je cherche dans mes sources), c'est pas complique.

Borntoclimb

Rastacana · Answer

oui c est des dossier ke je veut verife mais je connais pas vb comment puis je faire^_^

cs_JMO · Answer

Bonjour,

Ci-dessus, je teste si 1 répertoire existe:
1) oui, je copie x fichiers
2) non, je crée le reprtoire + copie de fichiers

Dim wRepSrce1
Dim wRepDest1
wRepSrce1 = "c:\CSSI\Ales"
wRepDest1 = "c:\Archive-Ales" 
wSrce1 = "c:\CSSI\Ales\*.txt"
If Not fso.FolderExists(wRepDest1) Then
   Set f = fso.CreateFolder(wRepDest1)
       msgBox "Création du dossier "&f&" effectuée.",vbInformation
       fso.MoveFile wSrce1, wRepDest1
   Else
       msgBox "Attention:"&vbCrLf&"Le répertoire "&wRepDest1&" existe déjà.",vbCritical
End if

Ecriture en VBScript.

borntoclimb · Answer

Je repete probablement le message de JMO:

'Verifie l'existence d'un repertoire
Public Function ExistPath(path) As Boolean
   Set fso = CreateObject("Scripting.FileSystemObject")
   ExistPath = fso.FolderExists(path)
End Function

'creation d'un repertoire
Public Sub Createdir(EntireDir As String, alert As Boolean)
If ExistPath(EntireDir) = False Then
    MkDir (EntireDir)
Else
    If alert = True Then
        MsgBox "le repertoire " + EntireDir + " existe deja."
    End If
End If
End Sub

borntoclimb

Rastacana · Answer

Merci je vasi regardé se ke j arrive a faire de tt sa^_^

yiott · Answer

mais arretez avec vos composant ActivX... 

VB integre des fonction basique (les meme que Windows a peu de choses pr&#232;s!!!)

voila le code pour tester si un fichier existe et si non le creer:

  If (Dir(chemin/dossier_a_tester)) <> "dossier_a_tester" Then'la fonction dir renvoi le nom du dossier si il existe et rien si non
     MkDir (chemin/dossier_a_tester) 'Mkdir creer un dossier a l'emplacement specifi&#233;!
  End If

c'est quand meme beaucoup plus propre!!! et portable!!!

@++

Yiott

mstaub · Answer

Salut 
pourquoi  ne pas tout simplement IGNORER l'erreur lors de la cr&#233;ation du r&#233;pertoire !

on error resume next
mkdir "c:\a"

javascript:AjoutSmiley('');

yiott · Answer

Ca...c'est de la programmation a la Microsoft!!
 

On error resume next... Je suis d'accord parfois c indispensable mais faut quand meme eviter de le placer!! ca revien a dire, si ta une erreure, tu passe a l'action d'apr&#232;s et on ignore l'erreure... 

si le dossier existe pas il &#233; creer et si il y a une erreure apr&#232;s 3 ou 4 ligne plus bas on "resume next" et hop ion risque joyeusement une petite boucle infinie ou un erreure dites "bleue"... 

Non pour creer un dossier jpense qu'il vo mieu evier les on error resume next tout comme les on error goto error c du bug assur&#233;!

sylvain2b · Answer

Bonjour

Cette solution marche et me semble simple et claire


'Verifie l'existence d'un dosiier puis d'un fichier et le créent au besoin








Dim
 dossier 

As



New
 System.IO.DirectoryInfo (

"mon dossier"
)


If
 dossier.Exists = 

False



Then

dossier.Create()







End



If






Dim
 fichier 

As



New
 System.IO.FileInfo(

"nom_fichier"
)


If
 fichier.Exists = 

False



Then

fichier.Create()







End



If

jmfmarques · Answer

Ouais....
Il est pourtant tellement simple d'utiliser une simple gestion d'erreur et des messages d'erreurs éventuellement reçus !

puis-je timidement rappeler que VB ne fait jamais rien d'autre que d'utiliser les fonctions de l'API de Windows et que, pour ce sujet, ce sera la fonction  CreateDirectory de la librairie kernel32, laquelle retournera tout bêtement une valeur 0 d'insuccès ou <> 0 en cas de succès, et qu'enfin,  si l'on souhaire avoir des précisions (si la valeur retournée est différente de 0), la fonction GerLastError les retournera à la demande ?

Il est bien évidemment bien inutile d'appeler CreateDirectory (ce que fait déjà VB) et GetLastError (ce que sait traiter VB en gestioçn d'erreurs)... encore que... l'on y gagnerait en vitesse d'exécution.

Je trouve que l'on veut trop souvent réinventer la roue....

jmfmarques · Answer

Excuses et correction:

GerlastError est à utiliser en cas de 0 retourné par CreateDirectory, bien sur... (gros doigts)

Teste un repertoire (Urgent et surement simple ^^)

11 réponses

Discussions similaires