1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET
Sujet Précédent Sujet Suivant

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
A voir également:

2 réponses

Réponse 1 / 2
Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
 12
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
Réponse 2 / 2
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 ?
Répondre Posez votre question