Saber usar um controle TreeView para navegar pelas pastas e abrir arquivos do Microsoft Excel pasta de trabalho pode lhe poupar tempo quando você estiver procurando especificamente para pastas de trabalho. Você pode criar um Microsoft Visual Basic.NET projeto ( VB.NET ) para realizar essa tarefa . VB.NET é uma linguagem de programação de computadores orientada a objeto usado para criar aplicativos do Windows. Um controle TreeView é muitas vezes usado para navegar por uma estrutura de pastas . Em poucos passos, você pode criar um projeto VB.NET para procurar arquivos do Excel e abri-los usando o controle TreeView. Coisas que você precisa
Microsoft Visual Basic Express
Visualizar Mais instruções
1
Inicie o Microsoft Visual Basic Express , clique em " New Project ... " no painel esquerdo da tela e selecione " Windows Forms Application ". Clique em " OK".
2
duplo clique em " TreeView " no painel "Toolbox " para adicionar um novo controle TreeView. Clique duas vezes em " Form1 " para abrir o módulo " Form1.vb " .
3
Digite o seguinte em " Form1_Load " para definir o caminho de origem para iniciar a pesquisa e para adicionar o primeiro nó :
Dim frstNode As New System.Windows.Forms.TreeNode ()
frstNode.ImageIndex = 0
frstNode.SelectedImageIndex = 0
frstNode . text = " G: \\ "
TreeView1.Nodes.Add ( frstNode )
4
Clique em " Form1.vb [Design ]" e dê um duplo clique no controle " TreeView " . Digite o seguinte para adicionar diretórios e arquivos para o controle:
Dim obj As New Processo
Text = e.Node.Text
Se Directory.Exists ( e.Node . texto) = True Then
getfiles ( e.Node , e.Node.Text )
End If
Se File.Exists ( e.Node.Text ) = True Then
obj.Start ( e.Node.Text , AppWinStyle.MaximizedFocus )
End If
5
Digite o seguinte em " Public Class Form1 " para criar uma nova sub-rotina que irá procurar por diretórios e arquivos :
getfiles Private Sub ( ByVal pNode Como TreeNode , ByVal dirStr As String )
Dim myDir Como Diretório
Dim iCnt As Integer
Para iCnt = 0 To ( myDir.GetDirectories ( dirStr ) de comprimento. ) - 1
Dim childNode As New _
TreeNode ( myDir.GetDirectories ( dirStr ) ( iCnt ) . ToString , 1, 0)
iCnt = pNode.Nodes.Add ( childNode )
Próxima iCnt
Para iCnt = 0 To ( myDir.GetFiles ( . dirStr " . * xls ") Comprimento ) - . 1
Dim childNode As New _
TreeNode ( myDir.GetFiles ( dirStr " . * xls " ) ( iCnt ) ToString , 2, 2)
iCnt = pNode.Nodes.Add ( childNode )
Próxima iCnt
pNode.Expand ()
End Sub
6
Pressione " F5" para executar o seu sub-rotina , em seguida, clique em um arquivo do Excel para abri-lo .
