Convertion VB6 en VB.net [Résolu]

Messages postés
42
Date d'inscription
lundi 24 octobre 2005
Statut
Membre
Dernière intervention
1 février 2007
- - Dernière réponse : Kuni59
Messages postés
42
Date d'inscription
lundi 24 octobre 2005
Statut
Membre
Dernière intervention
1 février 2007
- 21 août 2006 à 11:41
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
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
10
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 130 internautes nous ont dit merci ce mois-ci

Commenter la réponse de BasicInstinct
Messages postés
42
Date d'inscription
lundi 24 octobre 2005
Statut
Membre
Dernière intervention
1 février 2007
0
Merci
Merci ca fonctionne très bien. esque tu sais si on peut afficher que le nom du dossier sans le chemin complet ?
Commenter la réponse de Kuni59