gestion de fichiers

Question

bonjour à tous c'est encore l'1coni je suis tout nouveau sur ce forum (hier). je suis stagiaire et je dois développer un logiciel de sauvegarde sous visual studio 2005 express édition (que je ne connait que depuis 2 semaines donc je pense que vous voyez le niveau). Mes seules connaissances en programmation se résume en un peut de C++. alors je vous explique mon problème: j'ai un petit explorateur avec d'un coté un treeviw et une listbox (le truc classique: treeview=>répertoire ; listbox=>fichiers) mais seulement je n'arrive pas pas à afficher les fichiers des répertoires sélectionnés => PrivateSub Explorer(ByVal node As TreeNode, ByVal bExit AsBoolean) Dim tempNode As TreeNode Try Dim s As String node.Nodes.Clear() ForEach s In System.IO.Directory.GetDirectories(node.FullPath) tempNode = node.Nodes.Add(Path.GetFileName(s)) IfNot bExit Then Explorer(tempNode, True) Next Catch End Try EndSub PrivateSub TV_AfterExpand(ByVal sender AsObject, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TV.AfterExpand Explorer(e.Node, False) CLB.Items.Clear() Dim i As Integer For i = 0 ToMy.Computer.FileSystem.GetFiles("C:").Count - 1 CLB.Items.Add(My.Computer.FileSystem.GetFiles("C:").Item(i)) Next i EndSub PrivateSub CLB_Validated(ByVal sender AsObject, ByVal e As System.EventArgs) Handles CLB.Validated If CLB.CheckedItems.Count <> 0 Then 'S’il y a des éléments cochés une boucle balaye les éléments cochés Dim x As Integer Dim s AsString = "" For x = 0 To CLB.CheckedItems.Count - 1 s = s & " Dans la liste : " & CLB.CheckedItems(x).ToString & ControlChars.CrLf Next x MessageBox.Show(s) 'LB.Show(s) End If EndSub PrivateSub DiskListBox_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles DiskListBox.Click TV.Nodes.Add("C:") Explorer(TV.Nodes.Item(0), False) EndSub PrivateSub DiskListBox_DropDown(ByVal sender AsObject, ByVal e As System.EventArgs) Handles DiskListBox.DropDown Dim Ch AsChar = "A"c While Ch <= "Z"c Dim Dir AsString = Ch + ":" If Directory.Exists(Dir) Then DiskListBox.Items.Add(Dir) End If Ch = Chr(Asc(Ch) + 1) End While 'Items.clear() EndSub je sais que c'est ds My.Computer.FileSystem.GetFiles("C:") du Sub TV_AfterExpand que sa couille mais je sais pas qu'elle argument il faut passer dans le getfile et je voudrait aussi savoir si c'est possible d'exécuter ntBackup de Windows (qui gère sauvegarde totale, différentielle, et incrémentale) à partir de VB.net merci d'avance j'espère que le post n'est pas trop long....

cs_coni1 · Answer

oups g due me tromper de forum je modifie sa tout de suite

Gestion de fichiers

1 réponse

Votre réponse

Discussions similaires