Problèm de Directions ...

Question

En fait, je crée un shell qui n'en est pas un en fait mais seulement un "subsystem" en ligne de commande. J'ai crée une fonction Dir qui est censsé montré tous les répertoires et autres fichiers du chemin entré en paramètre. Seulement il me m'affiche que les dossiers. Voici mon code : Private Sub cDir(iPos As Integer) Dim S1, S2 As String iPos = iPos + 1 While Mid(Text1.Text, iPos, 1) <> "" sDir = sDir & Mid(Text1.Text, iPos, 1) iPos = iPos + 1 Wend S1 = Dir(sDir, vbDirectory) While S1 > "" If (S1 <> ".") And (S1 <> "..") Then S2 = sDir + S1 If Mid(Right(S2, 4), 1, 1) <> "." Then Text2.Text = Text2.Text & S2 & "" & vbNewLine Else Text2.Text = Text2.Text & S2 & " " & FileLen(file) & vbNewLine End If End If S1 = Dir Wend Text2.Text = Text2.Text & vbNewLine end sub -=Ar$£nik=-

cs_ITALIA · Answer

tu y passe quoi comme paramétre à ta procedure ??

donnes un exemple de Text1,2 et iPos

It@li@

MaxSoldier · Answer

Ben par exemple, ma commande se compose comme sa :
Dir C:\
Elle est décomposé en 2 fois. 1, Identification de la commande(Dans une autre procédure ).
J'incrémente iPos de 1 pour sauter l'espace, puis je trouve la direction.

-=Ar$£nik=-

Problèm de Directions ...

2 réponses

Discussions similaires