UN FILE/FOLDER EXISTS TRÈS UTILE, COMPLET ET SANS AUTES CHOSES QUE LES DLLS VB
ebe_tic
Messages postés
15
Date d'inscription
jeudi 4 décembre 2003
Statut
Membre
Dernière intervention
14 mars 2006
-
13 oct. 2004 à 08:38
szwr Messages postés 6 Date d'inscription jeudi 11 avril 2002 Statut Membre Dernière intervention 21 décembre 2006 - 26 mars 2007 à 14:57
szwr Messages postés 6 Date d'inscription jeudi 11 avril 2002 Statut Membre Dernière intervention 21 décembre 2006 - 26 mars 2007 à 14:57
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/26789-un-file-folder-exists-tres-utile-complet-et-sans-autes-choses-que-les-dlls-vb
https://codes-sources.commentcamarche.net/source/26789-un-file-folder-exists-tres-utile-complet-et-sans-autes-choses-que-les-dlls-vb
26 mars 2007 à 14:57
********************************************
.NET :
Declarations:
Imports System.IO
Code:
Public Function FileExists(ByVal FileFullPath As String) As Boolean
Dim f As New IO.FileInfo(FileFullPath)
Return f.Exists
End Function
Public Function FolderExists(ByVal FolderPath As String) As Boolean
Dim f As New IO.DirectoryInfo(FolderPath)
Return f.Exists
End Function
ASP3 vbscript :
Function FileExist(filename)
Dim fs, exist
Set fs = Server.CreateObject("Scripting.FileSystemObject")
exist = fs.FileExists(filename)
Set fs = Nothing
Return exist
End Function
'Utilisation :
If FileExist("c:\test.txt") Then
'...
End If
12 févr. 2007 à 15:59
10 févr. 2007 à 13:19
http://msdn2.microsoft.com/en-us/library/aa364944.aspx
on peut y lire :
If the function fails, the return value is INVALID_FILE_ATTRIBUTES. To get extended error information, call GetLastError.
en VB, pas besoin de GetLastError : Err.LastDllError est là pour cela...
9 févr. 2007 à 10:52
Je m'explique : si je fais un DIR("Monfichier.txt") et que mon fichier n'existe pas, Windows me dit "File not found". Si le fichier existe bel et bien mais que je n'ai pas de droits en lecture (ACL de Windows), Windows dit aussi "File not found".
J'aimerais pouvoir faire la différence à savoir guider mon utilisateur en affichant "Désolé, nom de fichier mal orthographié" et "Désolé, vous n'avez pas les droits suffisants pour ouvrir le fichier".
Merci.
Christophe
19 janv. 2007 à 08:08
Toujours aussi compétent et rapide
Bonne journée
18 janv. 2007 à 10:55
http://www.codyx.org/snippet_savoir-si-fichier-existe_65.aspx
18 janv. 2007 à 10:48
Private Const INVALID_FILE_ATTRIBUTES As Long = &HFFFFFFFF
Public Function DoesExist(ByRef vsPath As String) As Boolean
DoesExist = (GetFileAttributes(vsPath) <> INVALID_FILE_ATTRIBUTES)
End Function
If DoesExist ( "C:\Output.txt") Then
'# Present
Else
'# Absent
End If
18 janv. 2007 à 10:28
Super ce code de BruNews corrigé par renField
GetFileAttributes(szfile) And &H80000000& Then ABSENT
Et pour savoir si il est présent on peut évidement taper :
If GetFileAttributes("c:\config.sy") And &H80000000 Then
MsgBox "ABSENT"
Else
MsgBox "PRESENT"
End If
MAis si pour des raisons de lisibilité du code ou bien pratique on aimerais savoir directement si il est présent que faudrait il taper a la place des croix ?
If XXXXXXXXX Then
MsgBox "PRESENT"
Else
MsgBox "ABSENT"
End If
Merci
14 oct. 2004 à 08:51
If GetFileAttributes(szfile) And &H80000000& Then ABSENT
13 oct. 2004 à 18:53
J'essaie de traduire en VB, vous corrigerez la syntaxe au besoin:
If GetFileAttributes(szfile) And 0x80000000 Then ABSENT
13 oct. 2004 à 18:44
Brunews > Je ne suis pas sûre du nom de l'API, peut-être shFileExist... ce que je me souvient c'est que cette API allait mal
moustachu > Probablement pas puisque si l'explorateur de Windows lui même ne peut pas...
Renfield > C'est une idée. Ça sera aux utilisateurs de changer ça car je ne suis pas dans leur tête moi.
13 oct. 2004 à 10:40
13 oct. 2004 à 09:10
Public Function ThingExist(Path As String, Optional ThingType As VbFileAttribute = VbNormal) As Boolean
On Error Resume Next
ThingExist ((GetAttr(Path) And ThingType) ThingType)
Err.Clear
End Function
13 oct. 2004 à 09:00
13 oct. 2004 à 08:38
Private Sub toto()
Dim myFile As String, myPath As String
myPath = "c:\textes"
myFile = Dir(myPath & "\*.doc", vbNormal + vbHidden)
'le 2e paramètre est facultatif, il permet de dire ce que l'on cherche
Do While myFile <> ""
'faire qq chose
myFile = Dir 'pour prendre le fichier suivant
Loop
End Sub
Je fais çà depuis des années ds des processus pro et je n'ai jamais eu de pb.