Public Class SelettoreURL
Public URL As String
Public ModalitàImmagine As Boolean = False
Sub ApriCartella(ByVal Cartella As String, ByVal Nodo As TreeNode)
For Each CartellaCorr As String In My.Computer.FileSystem.GetDirectories(Cartella)
If Object.Equals(Nodo, Nothing) Then
GestioneFiles.Nodes.Add(CartellaCorr, New IO.DirectoryInfo(CartellaCorr).Name, 0)
Me.ApriCartella(CartellaCorr, GestioneFiles.Nodes(GestioneFiles.Nodes.Count - 1))
Else
Nodo.Nodes.Add(CartellaCorr, New IO.DirectoryInfo(CartellaCorr).Name, 0)
Me.ApriCartella(CartellaCorr, Nodo.LastNode)
End If
Next
Dim Lista As ObjectModel.ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles(Cartella, FileIO.SearchOption.SearchTopLevelOnly)
If ModalitàImmagine = True Then
Dim Estensioni() As String = {"*.bmp", "*.gif", "*.jpg", "*.jpeg", "*.jpe", "*.wmf", "*.emf", "*.ico"}
Lista = My.Computer.FileSystem.GetFiles(Cartella, FileIO.SearchOption.SearchTopLevelOnly, Estensioni)
End If
For Each FileCorr As String In Lista
Dim imgId As Integer = 1
Select Case New IO.FileInfo(FileCorr).Extension.ToLower()
Case ".htm", ".html"
imgId = 2
Case ".css", ".txt", ".js"
imgId = 3
Case ".bmp", ".gif", ".jpg", ".jpeg", ".jpe", ".wmf", ".emf", ".ico"
imgId = 4
End Select
If Object.Equals(Nodo, Nothing) Then
GestioneFiles.Nodes.Add(FileCorr, New IO.FileInfo(FileCorr).Name, imgId)
Else
Nodo.Nodes.Add(FileCorr, New IO.FileInfo(FileCorr).Name, imgId)
End If
Next
End Sub
Private Sub SelettoreURL_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ApriCartella(My.Computer.FileSystem.GetParentPath(MainForm.FileCorr), Nothing)
End Sub
Private Sub Tipo_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FileSito.CheckedChanged, AltroURL.CheckedChanged
GestioneFiles.Enabled = FileSito.Checked
txtAltroURL.Enabled = AltroURL.Checked
End Sub
Private Sub GestioneFiles_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles GestioneFiles.AfterSelect
GestioneFiles.SelectedImageIndex = GestioneFiles.SelectedNode.ImageIndex
URL = GestioneFiles.SelectedNode.FullPath
End Sub
Private Sub txtAltroURL_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAltroURL.TextChanged
URL = txtAltroURL.Text
End Sub
End Class