Accueil > > > TEST EXISTANCE FICHIER
 TEST EXISTANCE FICHIER
 Information sur la source
 Description
Petite fonctions rapides qui montrent comment verifier l'existance d'un fichier ou d'un dossier Utilisation : if (DossierExiste ( "c:\Winnt\" ) ) then ... if (fichierExiste ("Para.ini")) then ... ou if (FichierExiste ("c:\config.sys")) then ...
 Source
- Public Function FichierExiste(ByVal Nom As String) As Boolean
- On Error Resume Next
- Dim attrib As Integer
-
- attrib = GetAttr(Nom)
- If (Err <> 0) Then
- FichierExiste = False
- Else
- If ((attrib And vbDirectory) = vbDirectory) Then
- FichierExiste = False
- Else
- FichierExiste = True
- End If
- End If
- End Function
-
- Public Function DossierExiste(ByVal Nom As String) As Boolean
- On Error Resume Next
- Dim Tmp As String
- If (Right$(Nom, 1) = "\") Then
- Tmp = Mid$(Nom, 1, Len(Nom) - 1)
- Else
- Tmp = Nom
- End If
-
- attrib = GetAttr(Nom)
- If (Err <> 0) Then
- DossierExiste = False
- Else
- If ((attrib And vbDirectory) = vbDirectory) Then
- DossierExiste = True
- Else
- DossierExiste = False
- End If
- End If
- End Function
-
Public Function FichierExiste(ByVal Nom As String) As Boolean
On Error Resume Next
Dim attrib As Integer
attrib = GetAttr(Nom)
If (Err <> 0) Then
FichierExiste = False
Else
If ((attrib And vbDirectory) = vbDirectory) Then
FichierExiste = False
Else
FichierExiste = True
End If
End If
End Function
Public Function DossierExiste(ByVal Nom As String) As Boolean
On Error Resume Next
Dim Tmp As String
If (Right$(Nom, 1) = "\") Then
Tmp = Mid$(Nom, 1, Len(Nom) - 1)
Else
Tmp = Nom
End If
attrib = GetAttr(Nom)
If (Err <> 0) Then
DossierExiste = False
Else
If ((attrib And vbDirectory) = vbDirectory) Then
DossierExiste = True
Else
DossierExiste = False
End If
End If
End Function
 Conclusion
Une classe de gestion des fichier (Droits NTFS, Existance , copie, ...) est en cours de développement.
En attendant Bon Code...
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Obtenir tous les nom "court" des fichier d'un dossier et les écrire dans un fichier texte. [ par M4ndrax ]
Bonjours tout le monde,Voila j'éssaye depuis quelque jours d'avoir les nom ddes fichiers d'un dossier et de les noter dans un fichier texte mais je sa
Ecrire dans un fichier texte existant quand mon programme ce lance [ par Triboutmatthieu ]
Bonjour, j'ai crée un programme et ce programme se lance dés que Windows s'ouvre.Je voudrais savoir si mon programme pourrait introduire dans un fichi
création programme gestion, classement et récupération d'information de fichier [ par robinou5913 ]
bonjour,voilà, dans le cadre de mes études, j'apprends à utiliser le Visual Basic 6 et j'ai soudain eu une idée. j'ai beaucoup de films et j'aimerais
Comment créé un dossier en vbs a partir d'un fichier texte et y ajouter des droits d'accès [ par Sojiro49 ]
Bonjour, J'ai un script qui créé une arborescence de dossier à partir d'une liste dans un fichier texte, mais le problème c que je voudrais associé au
Trier et renommer un fichier txt [ par vtsbem33 ]
Bonjour,Je souhaiterai trier sytématiquement (tous les jours) les dernières lignes d'un fichier texte et renommer le nouveau fichier ainsi crée (toujo
Recherche dans fichier texte. [ par DeWaRs ]
Bonjour a tous.Je souhaite faire une recherche dans un txt par ligne. Je m'explique. J'ai un fichier txt de plusieur milier de ligne de ce genre Dupon
Questions sur les types record lecture fichier textes [ par aforpien ]
Bonjour à tous,J'utilise l'utilitaire WMIC afin de récupérer un fichier texte rempli de différentes informations sur les lecteurs DAT (de bandes) des
Format TEXTE en HTML [ par harelde ]
Bonjour à tous,Dans mon projet VB6, je dois écrire un fichier en HTML que j'ouvre sous EXCEL (un .XLS, donc).Ce fichier contient un tableau, mis en fo
lecture fichier texte [ par Guigar ]
Bonjour a tousj'essai de faire un petit programme qui me permettrait de lire un fichier texte.Mon fichier est le suivant : d:/config.ini.Voila le code
|
Derniers Blogs
 TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOSSESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article par Groc
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|