Discussion :

[havopti]

Salut

je cherche à tester l’existence d'un fichier ou dossier afin de lancer une procédure de supression

sauf que mon test ne marche pas sachant que je test d'abord si le fichier est présent sur le disque dur puis sur le disque commun et si ce n'est pas le cas je supprime tous. J'ai essayer avec fichierExiste mais ca ne fonctionne pas, avec dir ca fonctionnait sur le disque dur mais pas sur le commun ou ma boucle if buggait.

bon j'ai un peu avancé

voici mon code pour retrouver le fichier non caché sur le disque C

Code :

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

1
2
3
4
5
6
7
8
'test fichier pour le C
Sub Testeee()
    MsgBox FichierExiste("C:\toto.txt")
End Sub
 
Function FichierExiste(NomFichier As String) As Boolean
    FichierExiste = Dir(NomFichier, vbDirectory) <> ""
End Function

reste pour le P commun ou le code fonctionne mais une fois le dossier caché ca ne marche plus quelle est la modification a effectuer?

Code :

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

1
2
3
4
5
6
7
8
'test Dossier pour le P
Sub Testee()
    MsgBox DossierExiste("P:\dossiertoto")
End Sub
 
Function DossierExiste(NomDossier As String) As Boolean
    DossierExiste = Dir(NomDossier, vbDirectory) <> ""
End Function

[havopti]

on m'a donné la solution sur un autre forum je partage au cas ou

Code :

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

1
2
3
4
5
6
7
8
9
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

manquait donc juste se foutu vbHidden