VB2008 : GetFolder équivalent de VB6 ? Help

Fermé
ginger4957 Messages postés 37 Date d'inscription jeudi 12 juin 2008 Statut Membre Dernière intervention 3 mars 2009 - 3 mars 2009 à 11:49
Bonjour,

Je réalise l'optimisation d'un programme à l'origine écrit en VB6, et j'enlève les éléments FSO. A la place j'utilise les classes du Framework 3.5 puisqu'elles intègrent les éléments gérés par FSO.
J'ai un problème de conversion ; à l'origine cette ligne est écrite en VB6 :

---
'Déclarations
Dim ma_variable_darchivage As Folder
Dim ma_variable_darchivage_Sub As Folders

'J'ouvre mon fichier
'...

'Récupération du nom du répertoire
Set ma_variable_darchivage = fso.GetFolder(mon_repertoire_darchivage)

'Récupération des sous-dossiers de ce répertoire
Set ma_variable_darchivage_Sub = ma_variable_darchivage.SubFolders
---

J'ai essayé beaucoup de choses, dont ceci dernièrement :
---
'Déclarations
Dim ma_variable_darchivage As String
Dim ma_variable_darchivage_Sub As Folders

'Récupération du nom du répertoire
ma_variable_darchivage = FileSystem.Dir.Substring(mon_repertoire_darchivage)

'Récupération des sous-dossiers de ce répertoire
ma_variable_darchivage_Sub = System.IO.Directory.GetDirectories
(ma_variable_darchivage)
---

Ca génère une exception : InvalidCastException n'est pas gérée, mais cette fois il s'agit de l'invalidité de la conversion de la chaîne "C:\monChemin\...\nomDeMonRepertoireDarchivage" en type Integer.

Autrement, j'avais essayé ceci :

---
Dim ma_variable_darchivage As Folder
Dim ma_variable_darchivage_Sub As Folders

'Récupération du nom du répertoire
ma_variable_darchivage =FileIO.FileSystem.GetDirectories(mon_repertoire_darchivage)

'Récupération des sous-dossiers de ce répertoire
ma_variable_darchivage_Sub = ma_variable_darchivage.SubFolders
'Jai aussi essayé ceci pour cette ligne de récup :
'ma_variable_darchivage_Sub = FileIO.FileSystem.GetDirectories(ma_variable_darchivage)
---

Cette fois ça me génère une exception : InvalidCastExcpetion non générée ; impossible de convertir un string en folder...

De plus GetDirectories retourne le chemin des dossiers du répertoire... Je voudrais récupérer le nom des dossiers du répertoire. Comment faire ?

Existe-t-il un équivalent de SubFolder en vb 2008 ?? J'ai comme l'impression qu'il n'est pas possible deconvertir un string en un folder... Existe-t-il une fonction qui le permet ?

Merci d'avance de vos réponses,
Cordialement,
Ginger