Å vite hvordan man bruker en Utforsker for å navigere gjennom mapper og åpne Microsoft Excel-arbeidsbok filer kan spare deg for tid når du søker spesielt for arbeidsbøker . Du kan opprette en Microsoft Visual Basic.NET ( VB.NET ) prosjekt for å utføre denne oppgaven. VB.NET er et objektorientert programmeringsspråk som brukes til å lage Windows-programmer . En Utforsker kontroll brukes ofte til å navigere gjennom en mappestruktur . I noen få skritt , kan du opprette en VB.NET prosjekt for å søke etter Excel-filer og åpne dem ved hjelp av Utforsker -kontroll . Du trenger
Microsoft Visual Basic Express
Vis flere instruksjoner
en

start Microsoft Visual Basic Express , klikker du "New Project ... " på den venstre ruten på skjermen og velg "Windows Forms Application ". Klikk "OK".
2

Dobbeltklikk på " Utforsker " på " Toolbox" -ruten for å legge til en ny Utforsker kontroll. Dobbeltklikk på " Form1 " for å åpne " Form1.vb " modulen.
3

Skriv inn følgende under " Form1_Load " for å definere kilden banen for å begynne å søke og å legge til den første noden : en

Dim frstNode som ny System.Windows.Forms.TreeNode ( )

frstNode.ImageIndex = 0

frstNode.SelectedImageIndex = 0

frstNode . text = " G: \\"

TreeView1.Nodes.Add ( frstNode )
4

klikk " Form1.vb [Design ] " og dobbeltklikk på " Utforsker " kontroll. Skriv inn følgende for å legge til kataloger og filer til kontroll : en

Dim obj som ny Process

Text = e.Node.Text
p Hvis Directory.Exists ( e.Node . Text ) = sant da

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

End If
p Hvis File.Exists ( e.Node.Text ) = sant Deretter

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

End If
5

Skriv inn følgende under " Public Class Form1 " til opprette en ny subrutine som vil søke etter kataloger og filer :

Private Sub GetFiles ( ByVal pNode som TreeNode , ByVal dirStr As String )

Dim mydir som Directory

Dim ICNT As Integer

For ICNT = 0 To ( myDir.GetDirectories ( dirStr ) Lengde . ) - en

Dim childNode som New _

TreeNode ( myDir.GetDirectories ( dirStr ) ( ICNT ) . toString , 1, 0 )

ICNT = pNode.Nodes.Add ( childNode )

Neste ICNT

For ICNT = 0 To ( myDir.GetFiles ( dirStr , ". * xls ") Lengde ) - . en

Dim childNode Som New _

TreeNode ( myDir.GetFiles ( dirStr , " * xls . ") ( ICNT ) toString , . 2 , 2)

ICNT = pNode.Nodes.Add ( childNode )

Neste ICNT

pNode.Expand ( )

End Sub

6

Trykk " F5 " for å kjøre subrutine deretter en Excel-fil for å åpne den.