Convertion VB6 en VB.net [Résolu]

Signaler
Messages postés
42
Date d'inscription
lundi 24 octobre 2005
Statut
Membre
Dernière intervention
1 février 2007
-
Messages postés
42
Date d'inscription
lundi 24 octobre 2005
Statut
Membre
Dernière intervention
1 février 2007
-
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

2 réponses

Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
10
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
Messages postés
42
Date d'inscription
lundi 24 octobre 2005
Statut
Membre
Dernière intervention
1 février 2007

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