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 AsString
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
EndTry
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 AsInteger
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 AsInteger
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)
EndIf
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)
EndIf
Ch = Chr(Asc(Ch) + 1)
EndWhile
'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....