Trouver un dossier caché

[havopti]

Salut

j'avais déjà déterré un topic pour tester l'existence d'un dossier ou fichier mais la probleme ne venait pas de la.

Donc j'ai reussi a coder pour détecter mon fichier non cacher sur le disque dur C ca donne

'test fichier pour le C
Sub Testeee()
MsgBox FichierExiste("C:\fichiertoto.txt")
End Sub

Function FichierExiste(NomFichier As String) As Boolean
FichierExiste = Dir(NomFichier, vbDirectory) <> ""
End Function

reste le test sur le dossier caché du disque commun P qui ne fonctionne pas

Sub Testee()

'test Dossier pour le P
MsgBox DossierExiste("P:\dossiertoto")
End Sub

Function DossierExiste(NomDossier As String) As Boolean
DossierExiste = Dir(NomDossier, vbDirectory, ) <> ""
End Function

je pense qu'il ne reste pas grand chose à modifier mais je bloque

 

[jmps]

Re : Trouver un dossier caché

Bonjour havopti,

Essaye comme ça :

Sub Testee()

'test Dossier pour le P
MsgBox DossierExiste("P:\dossiertoto")
End Sub

Function DossierExiste(NomDossier As String) As Boolean
DossierExiste = Dir(NomDossier, vbDirectory + vbHidden) <> ""
End Function

 

[havopti]

Re : Trouver un dossier caché

merci beaucoup c’était bien juste se foutu vbHidden ca fonctionne maintenant