Tester s'il s'agit d'un dossier

Question

Salut &#224; tous !!!



Voila mon probleme : en fait je
suis en train de me faire un petit log pour r&#233;cup&#233;rer le contenu de mes
cd-mp3 sans avoir &#224; tout me retaper &#224; la main... donc en fait j'ai cr&#233;&#233;
un petit exe sous VB qui est sens&#233; parcourir au moins la racine du cd,
compter le nombre de r&#233;pertoires (c&#224;d le nombre d'albums pr&#233;sents sur
le cd) et les afficher... 



Seulement j'ai un probleme avec mon code, au niveau du test pour savoir s'il s'agit d'un dossier ou d'un fichier : 






=============================================

Private Sub Lister_Click()

Dim strLecteur As String

Dim strFichier As String

    

    'on r&#233;cup&#232;re le nom du lecteur s&#233;lectionn&#233;

    strLecteur = drvLecteur.Drive

    

    'on r&#233;cup&#232;re les dossiers &#224; la racine

    strFichier = Dir(strLecteur, vbDirectory)

    While Len(strFichier) > 0

        If (GetAttr(strLecteur & "" & strFichier)) = vbDirectory Then

            MsgBox "Dossier: " & strFichier

        End If

        strFichier = Dir

    Wend

        

End Sub


=============================================





J'ai une erreur 52 (nom ou num&#233;ro
de fichier incorrect) au niveau du test if(getattr.....), lorsque le
test se fait sur un dossier (lorsqu'il se fait sur un fichier, pas de
probl&#232;me).... 



Voil&#224;, j'esp&#232;re que vous pourrez m'aider....

Merci d'avance &#224; tous ceux qui prendront le temps de jeter un coup d'oeil &#224; mon probleme 




Ciao @ tous 





PierreAd

horko · Answer

si tu connais le num&#233;ro de l'erreur tu peux toujours utiliser on error resume next pour catcher l'erreur et la traiter. Au moins tu ne planteras plus en utilsant cette option.

cs_rene38 · Answer

Bonjour
essaie ceci :
Dim strLecteur As String * 2

(sinon, strLecteur contient, en plus de la letre et des 2 points, le nom du disque, par exemple C:[Windows XP])

cs_rene38 · Answer

Bonjour
essaie ceci :
Dim strLecteur As String * 2

(sinon, strLecteur contient, en plus de la lettre et des 2 points, le nom du disque, par exemple C:[Windows XP])

PierreAd · Answer

@horko
: j'y ai pens&#233; mais bon, &#231;a m'&#233;nerve en fait de ne pas savoir d'o&#249;
vient l'erreur... je pense que pour le moment je vais m'orienter vers
cette solution m&#234;me si je ne trouve pas cela tr&#232;s "propre"




@rene38 : oui c'est
vrai, j'avais bien vu cela, mais le lecteur sur lequel je testais cela
est un lecteur cd et (chez moi en tout cas), il ne comprenait que la
lettre du lecteur et les deux points, "f:" dans le cas pr&#233;sent... sinon
ta remarque est tout &#224; fait juste






Merci de votre aide...


si quelqu'un trouve la cause de mon probl&#232;me, qu'il n'h&#233;site pas






PierreAd

PierreAd · Answer

Salut &#224; tous, me revoila pour un approfondissement de ma question, 



En fait je me sers toujours de cette fonction getAttr pour d&#233;terminer
s'il s'agit d'un fichier ou d'un dossier, le prob&#232;me vient du fait que
certains fichiers ne renvoient pas une valeur de 32 via getAttr (33 par
exemple) et certains dossiers ne renvoient pas 16 via ce m&#234;me getAttr
(exemple : 48, ...)



donc voila, c'est assez g&#233;nant, que me conseillez vous de faire pour
diff&#233;rencier a coup sur (et sans oublier de possibilit&#233;) un fichier
d'un dossier ?????





Cordialement, 





PierreAd

PierreAd · Answer

Up !!!

Please aidez moi je trouve pas de solutions &#224; mon probl&#232;me alors que c'est surement pas tr&#232;s compliqu&#233;....

Tester s'il s'agit d'un dossier

6 réponses

Discussions similaires