Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 237 fois - Téléchargée 29 fois
1 > Trouver la présence d'un Répertoire _____________________________________ Créez dans une form, un bouton et nommez-le "repertoire" puis collez les lignes suivantes: Private Sub repertoire_Click() 'on declare la variable Dim chemin As String chemin = "c:\windows" 'on fouille si le dossier existe If Dir(chemin, vbDirectory) <> "" Then MsgBox " Le répertoire " & " "" " & chemin & " "" " & " existe bien !", 64, "Existe-t-il?" Else MsgBox " Le répertoire " & " "" " & chemin & " "" " & " L'existe pas ton répertoire !", 32, "Existe-t-il?" End If End End Sub 1 > Trouver la présence d'un Fichier _________________________________ Créez dans une form, un bouton et nommez-le "fichier" puis collez les lignes suivantes: Private Sub fichier_Click() 'on declare la variable Dim chemin As String chemin = "c:\autoexec.bat" 'on fouille si le fichier existe If Dir(chemin, vbNormal Or vbReadOnly Or vbHidden Or vbSystem Or vbArchive) <> "" Then MsgBox " Le fichier " & " "" " & chemin & " "" " & " existe bien !", 64, "Existe-t-il?" Else MsgBox " Le fichier " & " "" " & chemin & " "" " & " L'existe pas ton fichier !", 32, "Existe-t-il?" End If End End Sub __________________________________ Voilou voilou Bien à vous - Angie
Encore merci !!!!
Avant, VB plantait quand je voulais créer un dossier déjà existant.
Bonne continuation.
Sinon meme s'il était caché, je pense que t'as methode le trouverais enfin je dis ca comme ca
PS : Merci quand meme pour la source simple et efficace ;)
bah la tu voit t'ouvre une porte j'avé pa fé gaffe pour les fichiers cachés :( mais merci
Bien a toi - Angie
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.