[austin12456]

Dim FDB As New FolderBrowserDialog
        FDB.ShowDialog()
        Dim ID
        Dim Parent As TreeListNode
        For Each FilePath As String In Directory.GetFiles(fdb.SelectedPath, "*.gpd")
            ID = Path.GetFileNameWithoutExtension(FilePath);

            Dim Node1 As TreeListNode = TreeList1.AppendNode(New Object(), Parent)
            Node1.SetValue(TreeListColumn1, Path.GetFullPath(FilePath))
            Node1.SetValue(TreeListColumn2, ID)
        Next

That doesn't fix anything, just a cleaner method.