Convertion VB6 en VB.netRésolu

Question

salut est-ce-que quelqun pourrait convertir un code vb6 en vb.net 2005 svp.


Function enumere(repertoire As String)

   Set fso = CreateObject("Scripting.FileSystemObject")

   Set f = fso.GetFolder(repertoire)

   Set fc = f.subfolders

   For Each rep In fc

        enumere CStr(rep)

        frm_liste.liste.Refresh

   Next

End Function


Merci d'avance pour votre aide

BasicInstinct · Accepted Answer

ca doit rendre un truc comme ca :

Imports system.IO
Private



Sub
 Enumere(

ByVal
 X 

As



String
)


For



Each
 foundDirectory 

As



String



In



My
.Computer.FileSystem.GetDirectories(X)Enumere(foundDirectory)

ListBox1.Items.Add(foundDirectory)


Next


End



Sub




 BasicInstinct

Kuni59 · Answer

Merci ca fonctionne très bien. esque tu sais si on peut afficher que le nom du dossier sans le chemin complet ?

Convertion VB6 en VB.net

2 réponses

Votre réponse