Discussion :

[Jean-Philippe André]

j'ai pu constater que toutes les solutions disponibles dans mes recherches generent le meme faux positif lorsqu'on chercher a tester un dossier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Function FileFolderExists(strFullPath As String) As Boolean
'Author       : Ken Puls (www.excelguru.ca)
'Macro Purpose: Check if a file or folder exists
    On Error GoTo EarlyExit
    If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True
 
EarlyExit:
    On Error GoTo 0
End Function
 
 
Function FolderExists(strPath As String) As Boolean
    On Error Resume Next
    FolderExists = ((GetAttr(strPath) And vbDirectory) = vbDirectory)
End Function
 
 
Public Function ExistFolder(Folder$) As Boolean
    Dim oFSO As Scripting.FileSystemObject
    On Error GoTo ERROR_TRAP
    Set oFSO = New Scripting.FileSystemObject
    ExistFolder = oFSO.FolderExists(Folder)
    Set oFSO = Nothing
    Exit Function
ERROR_TRAP:
    Set oFSO = Nothing
    DebugPrint "ERROR : was unable to check existance of directory : " & Folder
End Function

Les fausx positifs arrivant pour les valeurs (entres autres je suppose)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
' ExistFolder(".")=true
 ' ExistFolder("\")=true
 ' ExistFolder("/")=true

Est-ce que certains parmi vous ont deja constate et resolu ce probleme ?

Merci d'avance.

[Marc-L]

Bonjour,

c'est normal pour les deux premiers et vérifiable en commande DOS,
pour remonter soit d'un cran dans l'arborescence soit à la racine du disque dur …

Jusqu'à présent je n'ai eu besoin de vérifier que le point comme par exemple dans la ligne #24 de ce code …


_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[Jean-Philippe André]

OK,

et j'ai trouve la raison du 3e faux ici :
http://blogs.msdn.com/b/larryosterma...24/432386.aspx

Merci.