Public Class splash
    Dim path As String = My.Computer.FileSystem.SpecialDirectories.MyPictures + "\Photo Deluxe"
    Private Sub splash_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        TraverseFolder(path)
    End Sub

    Private Sub TraverseFolder(ByVal root As String)
        If My.Computer.FileSystem.DirectoryExists(path) Then
            start(root)
        Else
            My.Computer.FileSystem.CreateDirectory(path)
            My.Computer.FileSystem.CreateDirectory(path + "\Persone")
            My.Computer.FileSystem.CreateDirectory(path + "\Data")
            My.Computer.FileSystem.CreateDirectory(path + "\Fotocamera")
            My.Computer.FileSystem.CreateDirectory(path + "\Album")
            Form1.Show()
            Me.Close()
        End If
    End Sub

    Private Sub start(ByVal root As String)
        root = path
        Dim checkFile As System.IO.DirectoryInfo
        Dim MyDir As New IO.DirectoryInfo(path)
        Dim n As Integer = MyDir.GetFiles("*.*", IO.SearchOption.AllDirectories).Count
        ProgressBar1.Maximum = n

        If n = 0 Then
            Form1.Show()
            Me.Close()
        Else
            root = path + "\Persone"
            checkFile = My.Computer.FileSystem.GetDirectoryInfo(root)
            For Each recursiveDir As String In My.Computer.FileSystem.GetDirectories(root)
                Dim g As String = IO.Path.GetFileName(recursiveDir)
                Form1.TreeView1.Nodes.Item(0).Nodes.Item(0).Nodes.Add(g, g)
                ChDir(recursiveDir)
                Call TraverseFolder(recursiveDir)
            Next
            For Each foundFile As String In My.Computer.FileSystem.GetFiles(root, FileIO.SearchOption.SearchTopLevelOnly)
                Dim g As String = IO.Path.GetFileName(foundFile)
                Dim fg As String = IO.Path.GetDirectoryName(foundFile)
                Dim f As String = IO.Path.GetFileName(fg)
                If g.Contains("Thumbs") Then
                    ProgressBar1.Increment(1)
                    If ProgressBar1.Value = ProgressBar1.Maximum Then
                        Form1.Show()
                        Me.Close()
                    End If
                Else
                    Form1.TreeView1.Nodes.Item(0).Nodes.Item(0).Nodes.Item(f).Nodes.Add(foundFile, g)
                    ProgressBar1.Increment(1)
                    If ProgressBar1.Value = ProgressBar1.Maximum Then
                        Form1.Show()
                        Me.Close()
                    End If
                End If
            Next
            root = path + "\Data"
            checkFile = My.Computer.FileSystem.GetDirectoryInfo(root)
            For Each recursiveDir As String In My.Computer.FileSystem.GetDirectories(root)
                Dim g As String = IO.Path.GetFileName(recursiveDir)
                Form1.TreeView1.Nodes.Item(0).Nodes.Item(1).Nodes.Add(g, g)
                ChDir(recursiveDir)
                Call TraverseFolder(recursiveDir)
            Next
            For Each foundFile As String In My.Computer.FileSystem.GetFiles(root, FileIO.SearchOption.SearchTopLevelOnly)
                Dim g As String = IO.Path.GetFileName(foundFile)
                Dim fg As String = IO.Path.GetDirectoryName(foundFile)
                Dim f As String = IO.Path.GetFileName(fg)
                If g.Contains("Thumbs") Then
                    ProgressBar1.Increment(1)
                    If ProgressBar1.Value = ProgressBar1.Maximum Then
                        Form1.Show()
                        Me.Close()
                    End If
                Else
                    Form1.TreeView1.Nodes.Item(0).Nodes.Item(1).Nodes.Item(f).Nodes.Add(foundFile, g)
                    ProgressBar1.Increment(1)
                    If ProgressBar1.Value = ProgressBar1.Maximum Then
                        Form1.Show()
                        Me.Close()
                    End If
                End If
            Next
            root = path + "\Fotocamera"
            checkFile = My.Computer.FileSystem.GetDirectoryInfo(root)
            For Each recursiveDir As String In My.Computer.FileSystem.GetDirectories(root)
                Dim g As String = IO.Path.GetFileName(recursiveDir)
                Form1.TreeView1.Nodes.Item(0).Nodes.Item(2).Nodes.Add(g, g)
                ChDir(recursiveDir)
                Call TraverseFolder(recursiveDir)
            Next
            For Each foundFile As String In My.Computer.FileSystem.GetFiles(root, FileIO.SearchOption.SearchTopLevelOnly)
                Dim g As String = IO.Path.GetFileName(foundFile)
                Dim fg As String = IO.Path.GetDirectoryName(foundFile)
                Dim f As String = IO.Path.GetFileName(fg)
                If g.Contains("Thumbs") Then
                    ProgressBar1.Increment(1)
                    If ProgressBar1.Value = ProgressBar1.Maximum Then
                        Form1.Show()
                        Me.Close()
                    End If
                Else
                    Form1.TreeView1.Nodes.Item(0).Nodes.Item(2).Nodes.Item(f).Nodes.Add(foundFile, g)
                    ProgressBar1.Increment(1)
                    If ProgressBar1.Value = ProgressBar1.Maximum Then
                        Form1.Show()
                        Me.Close()
                    End If
                End If
            Next
            root = path + "\Album"
            checkFile = My.Computer.FileSystem.GetDirectoryInfo(root)
            For Each recursiveDir As String In My.Computer.FileSystem.GetDirectories(root)
                Dim g As String = IO.Path.GetFileName(recursiveDir)
                Form1.TreeView1.Nodes.Item(1).Nodes.Add(g, g)
                ChDir(recursiveDir)
                Call TraverseFolder(recursiveDir)
            Next
            For Each foundFile As String In My.Computer.FileSystem.GetFiles(root, FileIO.SearchOption.SearchTopLevelOnly)
                Dim g As String = IO.Path.GetFileName(foundFile)
                Dim fg As String = IO.Path.GetDirectoryName(foundFile)
                Dim f As String = IO.Path.GetFileName(fg)
                If g.Contains("Thumbs") Then
                    ProgressBar1.Increment(1)
                    If ProgressBar1.Value = ProgressBar1.Maximum Then
                        Form1.Show()
                        Me.Close()
                    End If
                Else
                    Form1.TreeView1.Nodes.Item(1).Nodes.Item(f).Nodes.Add(foundFile, g)
                    ProgressBar1.Increment(1)
                    If ProgressBar1.Value = ProgressBar1.Maximum Then
                        Form1.Show()
                        Me.Close()
                    End If
                End If
            Next
        End If
    End Sub
End Class