Savoir si un répertoire existe
Apophis
-
1 juin 2001 à 20:00
yoghisan Messages postés 204 Date d'inscription samedi 10 mai 2003 Statut Membre Dernière intervention 2 juin 2005 - 29 août 2003 à 22:27
yoghisan Messages postés 204 Date d'inscription samedi 10 mai 2003 Statut Membre Dernière intervention 2 juin 2005 - 29 août 2003 à 22:27
A voir également:
- Savoir si un répertoire existe
- Vba supprimer une feuille si elle existe - Forum Visual Basic 6
- Vba vérifier si un fichier existe ✓ - Forum Visual Basic
- Vba vérifier si un dossier existe sinon le créer - Forum Visual Basic
- Répertoire installation - Forum VB.NET
- Application repertoire ✓ - Forum C# / .NET
3 réponses
Voici la méthode que j'utilise :-p :
Public Function FolderExists(ByVal FullPath As String) As Boolean
On Error Resume Next
FolderExists = (Len(Dir$(FullPath, vbDirectory)) And (GetAttr(FullPath) And vbDirectory))
End Function
If FolderExists("C:\Mes documents") = True Then
' Le dossier existe
Else
..............
Public Function FolderExists(ByVal FullPath As String) As Boolean
On Error Resume Next
FolderExists = (Len(Dir$(FullPath, vbDirectory)) And (GetAttr(FullPath) And vbDirectory))
End Function
If FolderExists("C:\Mes documents") = True Then
' Le dossier existe
Else
..............
Salut,
ben moi j'utilise tout simplement la commande dir de vb. genre :
dossier="c:\Mondossier"
fichier="*.*"
recherche=dossier+fichier
rep=dir(recherche)
if rep="" then
' A PRIORIS LE DOSSIER N'EXISTE PAS
ELSE
' LE DOSSIER EXISTE
ENDIF
Ca me semble simple comme methode. Si tu trovue mieux, n'hesite pas à me la signaler, stp.
MARC
ben moi j'utilise tout simplement la commande dir de vb. genre :
dossier="c:\Mondossier"
fichier="*.*"
recherche=dossier+fichier
rep=dir(recherche)
if rep="" then
' A PRIORIS LE DOSSIER N'EXISTE PAS
ELSE
' LE DOSSIER EXISTE
ENDIF
Ca me semble simple comme methode. Si tu trovue mieux, n'hesite pas à me la signaler, stp.
MARC
yoghisan
Messages postés
204
Date d'inscription
samedi 10 mai 2003
Statut
Membre
Dernière intervention
2 juin 2005
1
29 août 2003 à 22:27
29 août 2003 à 22:27
Ha oui excuse, j'ai mal lu. c'est apparaitre et non disparaitre.
Ben, tu mets ton bouton sur ta form et tu changes sa valeur par defaut de visible en passant de true a false et dans procedure tu ecris button1.Visible:= true;
Mille excuses...
Ben, tu mets ton bouton sur ta form et tu changes sa valeur par defaut de visible en passant de true a false et dans procedure tu ecris button1.Visible:= true;
Mille excuses...
