H havopti XLDnaute Nouveau 4 Avril 2013 #1 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 Cliquez pour agrandir... 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 Cliquez pour agrandir... je pense qu'il ne reste pas grand chose à modifier mais je bloque
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 Cliquez pour agrandir... 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 Cliquez pour agrandir... je pense qu'il ne reste pas grand chose à modifier mais je bloque
jmps Nous a quitté Repose en paix 4 Avril 2013 #2 Re : Trouver un dossier caché Bonjour havopti, Essaye comme ça : Code: 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 Vote positif 0 Vote négatif
Re : Trouver un dossier caché Bonjour havopti, Essaye comme ça : Code: 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
H havopti XLDnaute Nouveau 4 Avril 2013 #3 Re : Trouver un dossier caché merci beaucoup c’était bien juste se foutu vbHidden ca fonctionne maintenant Vote positif 0 Vote négatif
Re : Trouver un dossier caché merci beaucoup c’était bien juste se foutu vbHidden ca fonctionne maintenant