Saper utilizzare un controllo TreeView per navigare tra le cartelle e aprire i file di Microsoft Excel consente di risparmiare tempo quando si sta cercando specificamente per le cartelle di lavoro. È possibile creare un progetto di Microsoft Visual Basic.NET (VB.NET) per eseguire questa operazione. VB.NET è un linguaggio di programmazione orientato agli oggetti utilizzati per creare applicazioni Windows. Un controllo TreeView è spesso usato per navigare attraverso una struttura di cartelle. In pochi passaggi, è possibile creare un progetto VB.NET per cercare i file di Excel e aprire utilizzando il controllo TreeView.

istruzione

1 Avviare Microsoft Visual Basic Express, fai clic su "Nuovo progetto ..." nel riquadro a sinistra dello schermo e selezionare "Applicazione Windows Form." Fai clic su "OK".

2 Fare doppio clic su "TreeView" nel riquadro "Toolbox" per aggiungere un nuovo controllo TreeView. Fare doppio clic su "Form1" per aprire il modulo "Form1.vb".

3 Digitare il seguente sotto "Form1_Load" per definire il percorso di origine per avviare la ricerca e per aggiungere il primo nodo:

Dim frstNode come nuovo System.Windows.Forms.TreeNode ()

frstNode.ImageIndex = 0

frstNode.SelectedImageIndex = 0

frstNode.Text = "G: \"

TreeView1.Nodes.Add (frstNode)

4 Fai clic su "Form1.vb [Design]" e fare doppio clic sul controllo "TreeView". Digitare la seguente per aggiungere le directory ei file al controllo:

Dim obj come nuovo processo

Text = e.Node.Text

Se Directory.Exists (e.Node.Text) = True Then

GetFiles (e.Node, e.Node.Text)

Finisci se

Se File.Exists (e.Node.Text) = True Then

obj.Start (e.Node.Text, AppWinStyle.MaximizedFocus)

Finisci se

5 Digitare quanto segue in "Public Class Form1" per creare una nuova subroutine che la ricerca di directory e file:

GetFiles Private Sub (ByVal pNode Come TreeNode, ByVal dirStr come stringa)

Dim myDir As Directory

Dim iCnt As Integer

Per iCnt = 0 Per (myDir.GetDirectories (dirStr) .Length) - 1

Dim childNode come nuovo _

TreeNode (myDir.GetDirectories (dirStr) (iCnt) .ToString, 1, 0)

iCnt = pNode.Nodes.Add (childNode)

Successivo iCnt

Per iCnt = 0 A (myDir.GetFiles (dirStr, "* .xls") Lunghezza.) - 1

Dim childNode come nuovo _

TreeNode (myDir.GetFiles (dirStr, "* .xls") (iCnt) .ToString, 2, 2)

iCnt = pNode.Nodes.Add (childNode)

Successivo iCnt

pNode.Expand ()

End Sub

6 Premere il tasto "F5" per eseguire la subroutine quindi fare clic su un file di Excel per aprirlo.