- Visual Basic / VB.NET : Vérifier si une clé existe dans la base de registre - CodeS So
- C83address() version courte (8.3) de l'adresse d'un fichier/dossier existant
- Visual Basic / VB.NET : [vb6] vérifier qu'un fichier existe par son url - CodeS SourceS
- Delphi / Pascal : Vérifier si un dossier est vide - CodeS SourceS
- Visual Basic / VB.NET : Vérifier si un dossier est vide - CodeS SourceS
Savoir si un repertoire existe
Signaler
jeje
-
walangel
walangel
- Messages postés
- 10
- Date d'inscription
- samedi 8 septembre 2007
- Statut
- Membre
- Dernière intervention
- 27 avril 2015
A voir également:
- Vba vérifier si un dossier existe
- Tester si un REPERTOIRE existe. ✓ - Forum - Visual Basic
- Verifier si une valeur existe dans une base de donnée ✓ - Forum - PHP
- Sql vérifier si une valeur existe - Forum - SQL
- Verifier si un fichier existe - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Vérifier si un fichier existe - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
6 réponses
Eric
Il y a une méthode disponible dans la section Fichier/Disque à la page 3 pour tester la présence d'un répertoire sur le disque, voici une copie de ce qui est disponible, je l'ai moi-même testé avec succès!
Sub VerIf()
Dim MyPath As String 'Définition des variables
Dim myName As String
MyPath = "c:\windows" ' On initialise la variable
If (myName Dir(MyPath, vbDirectory)) vbEmpty Then 'On teste
l'existence du répertoire...
MsgBox " Le répertoire " & Chr(34) _
& MyPath & Chr(34) & " existe bien !", _
vbInformation
Else
MsgBox " Le répertoire " & Chr(34) _
& MyPath & Chr(34) & " n'existe pas !", _
vbExclamation
End If
End Sub
Sub VerIf()
Dim MyPath As String 'Définition des variables
Dim myName As String
MyPath = "c:\windows" ' On initialise la variable
If (myName Dir(MyPath, vbDirectory)) vbEmpty Then 'On teste
l'existence du répertoire...
MsgBox " Le répertoire " & Chr(34) _
& MyPath & Chr(34) & " existe bien !", _
vbInformation
Else
MsgBox " Le répertoire " & Chr(34) _
& MyPath & Chr(34) & " n'existe pas !", _
vbExclamation
End If
End Sub
cs_ravachol
- Messages postés
- 86
- Date d'inscription
- vendredi 28 décembre 2001
- Statut
- Membre
- Dernière intervention
- 10 juillet 2008
je vais tester ca (j'en ait besoin aussi)
mais quand j'ai tester avec dir
s'il existe des fichiers dedant ca ùarche mais sinon il revoit
une string vide comme si le repertoire n'existait pas !!!
mais quand j'ai tester avec dir
s'il existe des fichiers dedant ca ùarche mais sinon il revoit
une string vide comme si le repertoire n'existait pas !!!
walangel
- Messages postés
- 10
- Date d'inscription
- samedi 8 septembre 2007
- Statut
- Membre
- Dernière intervention
- 27 avril 2015
M = "C:\Gestion\Audit"
If Dir(M, vbNormal) = "" Then
MsgBox "Dossier n'existe pas"
End If
If Dir(M, vbNormal) = "" Then
MsgBox "Dossier n'existe pas"
End If
walangel
- Messages postés
- 10
- Date d'inscription
- samedi 8 septembre 2007
- Statut
- Membre
- Dernière intervention
- 27 avril 2015
M = "C:\Gestion\Audit"
If Dir(M, vbNormal) = "" Then
MsgBox "Dossier n'existe pas"
End If
If Dir(M, vbNormal) = "" Then
MsgBox "Dossier n'existe pas"
End If