ginger4957
Messages postés37Date d'inscriptionjeudi 12 juin 2008StatutMembreDerniè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