diff --git a/VECTOAux/VectoAuxiliaries/UI/FB_Dialog.vb b/VECTOAux/VectoAuxiliaries/UI/FB_Dialog.vb
index af1415d8e8ed4926e0ee39cdb7e839e8aee0b159..b9aa300d86719f989cc34295b34b58043f35cd11 100644
--- a/VECTOAux/VectoAuxiliaries/UI/FB_Dialog.vb
+++ b/VECTOAux/VectoAuxiliaries/UI/FB_Dialog.vb
@@ -17,995 +17,1012 @@ Imports System.Windows.Forms
''' </summary>
''' <remarks></remarks>
Public Class FB_Dialog
-
- Private MyFolder As String
- Private MyFiles() As String
- Private MyDrive As String
- Private UpdateLock As Boolean
- Private Initialized As Boolean
- Private MyID As String
- Private MyExt() As String
- Private LastFile As String
- Private bFileMustExist As Boolean
- Private bOverwriteCheck As Boolean
- Private bMultiFiles As Boolean
- Private NoExt As Boolean
- Private bBrowseFolder As Boolean
- Private bForceExt As Boolean
- Private ExtListSingle As ArrayList
- Private ExtListMulti As ArrayList
- Private LastExt As String
- Private bLightMode As Boolean
-
- Private Const FavText As String = "Edit Favorites..."
- Private Const EmptyText As String = " "
- Private Const NoFavString As String = "<undefined>"
-
- 'New
- Public Sub New(ByVal LightMode As Boolean)
- ' This call is required by the Windows Form Designer.
- InitializeComponent()
- ' Append any initialization after the InitializeComponent() call.
- MyID = "Default"
- UpdateLock = False
- Initialized = False
- MyFolder = ""
- MyDrive = ""
- LastFile = ""
- bOverwriteCheck = False
- bFileMustExist = False
- bMultiFiles = False
- NoExt = True
- bBrowseFolder = False
- bLightMode = LightMode
- Me.ButtonHisFile.Enabled = Not bLightMode
- End Sub
-
- 'Resize
- Private Sub FB_Dialog_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
- Resized()
- End Sub
-
- 'Shown
- Private Sub FileBrowser_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
- Resized()
- Me.TextBoxPath.Focus()
- Me.TextBoxPath.SelectAll()
- End Sub
-
- 'Resized ListView Format
- Private Sub Resized()
- Me.ListViewFolder.Columns(0).Width = -2
- Me.ListViewFiles.Columns(0).Width = -2
- End Sub
-
- 'SplitterMoved
- Private Sub SplitContainer1_SplitterMoved(ByVal sender As System.Object, ByVal e As System.Windows.Forms.SplitterEventArgs) Handles SplitContainer1.SplitterMoved
- If Initialized Then Resized()
- End Sub
-
- 'Closing (Overwrite-Check etc)
- Private Sub FileBrowser_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
- Dim x As Int32
- Dim path As String
- Dim Ext As String
- Dim HasExt As Boolean
- HasExt = False
- If Me.DialogResult = Windows.Forms.DialogResult.OK Then
- If bBrowseFolder Then
- path = Trim(Me.TextBoxPath.Text)
- 'If empty path: use the Current-folder(MyFolder)
- If path = "" Then
- path = MyFolder
- Else
- If Microsoft.VisualBasic.Mid(path, 2, 1) <> ":" Then path = MyFolder & path
- End If
- If Not IO.Directory.Exists(path) Then
- MsgBox("Directory " & path & " does not exist!", MsgBoxStyle.Critical)
- e.Cancel = True
- Exit Sub
- End If
- If Microsoft.VisualBasic.Right(path, 1) <> "\" Then path &= "\"
- ReDim MyFiles(0)
- MyFiles(0) = path
- Else
- 'Stop if empty path
- If Trim(Me.TextBoxPath.Text) = "" Then
- e.Cancel = True
- Exit Sub
- End If
- LastExt = Trim(Me.ComboBoxExt.Text)
- 'Assume Files in array
- If Microsoft.VisualBasic.Left(Me.TextBoxPath.Text, 1) = "<" And Me.ListViewFiles.SelectedItems.Count > 0 Then
- 'Multiple files selected
- ReDim MyFiles(Me.ListViewFiles.SelectedItems.Count - 1)
- x = -1
- For Each lv0 As ListViewItem In Me.ListViewFiles.Items
- If lv0.Selected Then
- x += 1
- MyFiles(x) = MyFolder & lv0.SubItems(0).Text
- End If
- Next
- bMultiFiles = True
- Else
- 'Single File
- path = Trim(Me.TextBoxPath.Text)
- 'Primary extension (eg for bForceExt)
- Ext = Trim(Me.ComboBoxExt.Text.Split(",")(0))
- 'If file without path then append path
- If Microsoft.VisualBasic.Mid(path, 2, 1) <> ":" Then path = MyFolder & path
- 'If instead of File a Folder is entered: Switch to Folder and Abort
- If IO.Directory.Exists(path) Then
- SetFolder(path)
- e.Cancel = True
- Exit Sub
- End If
- 'Force Extension
- If bForceExt Then
- If UCase(IO.Path.GetExtension(path)) <> "." & UCase(Ext) Then path &= "." & Ext
- HasExt = True
- Else
- 'Check whether specified a File with Ext
- HasExt = (Microsoft.VisualBasic.Len(IO.Path.GetExtension(path)) > 1)
- End If
- 'If File without Extension (after bForceExt question) and it does not exist, then add primary Extension
- If Not HasExt Then
- If Ext <> "*" And Ext <> "" Then
- If Not IO.File.Exists(path) Then path &= "." & Ext
- End If
- End If
- 'Check that File exists
- If IO.File.Exists(path) Then
- 'Yes: when bOverwriteCheck, check for Overwrite
- If bOverwriteCheck Then
- If MsgBox("Overwrite " & path & " ?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
- e.Cancel = True
- Exit Sub
- End If
- End If
- Else
- 'No: abort if bFileMustExist
- If bFileMustExist Then
- MsgBox("The file " & path & " does not exist!", MsgBoxStyle.Critical)
- e.Cancel = True
- Exit Sub
- End If
- End If
- 'Define MyFiles
- ReDim MyFiles(0)
- MyFiles(0) = path
- bMultiFiles = False
- End If
- End If
- End If
- End Sub
-
- 'Browse - Custom Dialog
- Public Function Browse(ByVal path As String, ByVal FileMustExist As Boolean, ByVal OverwriteCheck As Boolean, ByVal ExtMode As tFbExtMode, ByVal MultiFile As Boolean, ByVal Ext As String, ByVal Title As String) As Boolean
- Dim x As Int16
-
- If Not Initialized Then Init()
-
- 'Load Folder History ContextMenu
- For x = 0 To 9
- Me.ContextMenuHisFolder.Items(x).Text = FB_FolderHistory(x)
- Next
- For x = 10 To 19
- Me.ContextMenuHisFolder.Items(x + 1).Text = FB_FolderHistory(x)
- Next
-
- 'Options
- bOverwriteCheck = OverwriteCheck
- bFileMustExist = FileMustExist
- bForceExt = (ExtMode = tFbExtMode.ForceExt)
-
- 'Form Config
- Me.ListViewFiles.MultiSelect = MultiFile
- Me.ButtonAll.Visible = MultiFile
- Me.Text = Title
-
- 'Ext-Combobox
- Me.ComboBoxExt.Items.Clear()
- If NoExt Then
- Me.ComboBoxExt.Items.Add("*")
- Me.ComboBoxExt.SelectedIndex = 0
- Else
- Select Case ExtMode
- Case tFbExtMode.ForceExt
- If Ext = "" Then Ext = ExtListSingle(0).ToString
- Me.ComboBoxExt.Items.AddRange(ExtListSingle.ToArray)
- Me.ComboBoxExt.Text = Ext
- Me.ComboBoxExt.Enabled = False
- Case tFbExtMode.MultiExt, tFbExtMode.SingleExt
- If ExtMode = tFbExtMode.MultiExt Then
- Me.ComboBoxExt.Items.AddRange(ExtListMulti.ToArray)
- Else
- Me.ComboBoxExt.Items.AddRange(ExtListSingle.ToArray)
- End If
- If Ext <> "" Then
- Me.ComboBoxExt.Text = Ext
- Else
- Me.ComboBoxExt.Text = LastExt
- End If
- Me.ComboBoxExt.Enabled = True
- End Select
- End If
-
-
- 'Define Path
- ' If no path is specified: Last folder, no file name
- If path = "" Then path = FB_FolderHistory(0)
-
- ' If path-length too small (Path is invalid): Last File
- If path.Length < 2 Then path = LastFile
-
- 'Open Folder - If no folder in the path: Last folder
- If fPATH(path) = "" Then
- 'If given a file without path
- If Trim(FB_FolderHistory(0)) = "" Then
- SetFolder("C:\")
- Else
- SetFolder(FB_FolderHistory(0))
- End If
- Else
- '...Otherwise:
- SetFolder(fPATH(path))
- End If
- If bBrowseFolder Then
- FolderUp()
- Me.TextBoxPath.Text = path
- Else
- Me.TextBoxPath.Text = IO.Path.GetFileName(path)
- End If
-
- 'Show form ------------------------------------------------ ----
- Me.ShowDialog()
- If Me.DialogResult = Windows.Forms.DialogResult.OK Then
- 'File / Folder History
- If bMultiFiles Then
- LastFile = MyFolder
- UpdateHisFolder(MyFolder)
- Else
- LastFile = MyFiles(0)
- UpdateHisFolder(fPATH(LastFile))
- If Not bBrowseFolder Then UpdateHisFile(LastFile)
- End If
- 'Update Global History Folder
- For x = 0 To 9
- FB_FolderHistory(x) = Me.ContextMenuHisFolder.Items(x).Text
- Next
- For x = 10 To 19
- FB_FolderHistory(x) = Me.ContextMenuHisFolder.Items(x + 1).Text
- Next
- Return True
- Else
- Return False
- End If
- End Function
-
- 'Close and save File / Folder History
- Public Sub SaveAndClose()
- Dim f As System.IO.StreamWriter
- Dim x As Int16
- 'Folder History
- If FB_Init Then
- Try
- f = My.Computer.FileSystem.OpenTextFileWriter(FB_FilHisDir & "Directories.txt", False, System.Text.Encoding.UTF8)
- For x = 0 To 19
- f.WriteLine(FB_FolderHistory(x))
- Next
- f.Close()
- f.Dispose()
- Catch ex As Exception
- End Try
- FB_Init = False
- End If
- 'File History
- If Initialized And Not bLightMode Then
- If Not bBrowseFolder Then
- Try
- f = My.Computer.FileSystem.OpenTextFileWriter(FB_FilHisDir & MyID & ".txt", False, System.Text.Encoding.UTF8)
- For x = 0 To 9
- f.WriteLine(Me.ContextMenuHisFile.Items(x).Text)
- Next
- f.Close()
- f.Dispose()
- Catch ex As Exception
- End Try
- End If
- Initialized = False
- End If
- f = Nothing
- 'Close
- Me.Close()
- End Sub
-
- 'Switching to FolderBrowser
- Public Sub SetFolderBrowser()
- If Initialized Then Exit Sub
- bBrowseFolder = True
- Me.Width = 500
- Me.ListViewFiles.Enabled = False
- Me.ButtonHisFile.Enabled = False
- Me.TextBoxSearchFile.Enabled = False
- Me.SplitContainer1.Panel2Collapsed = True
- Me.Text = "Directory Browser"
- End Sub
-
- 'Initialize
- Private Sub Init()
- Dim x As Int16
- Dim line As String
- Dim f As System.IO.StreamReader
-
- UpdateLock = True
-
- 'Initialization for Global File Browser
- If Not FB_Init Then GlobalInit()
-
- 'Load Drive ComboBox
- For x = 0 To UBound(FB_Drives)
- Me.ComboBoxDrive.Items.Add(FB_Drives(x))
- Next
-
- 'FolderHistory ContextMenu
- Me.ContextMenuHisFolder.Items.Clear()
- For x = 0 To 9
- Me.ContextMenuHisFolder.Items.Add("")
- Next
- Me.ContextMenuHisFolder.Items.Add("-")
- For x = 10 To 19
- Me.ContextMenuHisFolder.Items.Add("")
- Next
- Me.ContextMenuHisFolder.Items.Add("-")
- Me.ContextMenuHisFolder.Items.Add(FavText)
-
- 'FileHistory ContextMenu
- If bBrowseFolder Then
- LastFile = FB_FolderHistory(0)
- ElseIf Not bLightMode Then
- For x = 0 To 9
- Me.ContextMenuHisFile.Items.Add("")
- Next
- If IO.File.Exists(FB_FilHisDir & MyID & ".txt") Then
- f = New System.IO.StreamReader(FB_FilHisDir & MyID & ".txt")
- x = -1
- Do While Not f.EndOfStream And x < 9
- x += 1
- line = f.ReadLine
- Me.ContextMenuHisFile.Items(x).Text = line
- If x = 0 Then LastFile = line
- Loop
- f.Close()
- f.Dispose()
- End If
- End If
-
- 'Extension-ComboBox
- If Not NoExt Then
- ExtListSingle = New ArrayList
- ExtListMulti = New ArrayList
- For x = 0 To UBound(MyExt)
- ExtListMulti.Add(MyExt(x))
- For Each line In MyExt(x).Split(",")
- ExtListSingle.Add(Trim(line))
- Next
- Next
- ExtListMulti.Add("*")
- ExtListSingle.Add("*")
- End If
-
- Initialized = True
- f = Nothing
- UpdateLock = False
- End Sub
-
- Private Sub GlobalInit()
- Dim drive As String
- Dim x As Int16
-
- Dim f As System.IO.StreamReader
-
- 'Create Drive List
- ReDim FB_Drives(UBound(IO.Directory.GetLogicalDrives()))
- x = -1
- For Each drive In IO.Directory.GetLogicalDrives()
- x += 1
- FB_Drives(x) = Microsoft.VisualBasic.Left(drive, 2)
- Next
-
- 'Read Folder History
- For x = 0 To 19
- FB_FolderHistory(x) = EmptyText
- Next
- If IO.File.Exists(FB_FilHisDir & "Directories.txt") Then
- f = New System.IO.StreamReader(FB_FilHisDir & "Directories.txt")
- x = -1
- Do While Not f.EndOfStream And x < 19
- x += 1
- FB_FolderHistory(x) = f.ReadLine()
- Loop
- f.Dispose()
- f.Close()
- End If
-
- FB_Init = True
-
- f = Nothing
- End Sub
-
- 'ComboBoxDrive_SelectedIndexChanged
- Private Sub ComboBoxDrive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxDrive.SelectedIndexChanged
- If Not UpdateLock Then SetFolder(Me.ComboBoxDrive.SelectedItem.ToString)
- End Sub
-
-
- 'ButtonFolderBack_Click
- Private Sub ButtonFolderBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFolderBack.Click
- FolderUp()
- End Sub
-
- 'TextBoxPath_KeyDown (ENTER)
- Private Sub TextBoxPath_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBoxPath.KeyDown
- Dim path As String
- If e.KeyCode = Keys.Enter Then
- path = Me.TextBoxPath.Text
- If IO.Directory.Exists(path) Then
- If bBrowseFolder Then
- Me.DialogResult = Windows.Forms.DialogResult.OK
- Me.Close()
- Else
- SetFolder(path)
- End If
- Else
- Me.DialogResult = Windows.Forms.DialogResult.OK
- Me.Close()
- End If
- End If
- End Sub
-
- 'ListViewFolder_SelectedIndexChanged
- Private Sub ListViewFolder_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListViewFolder.SelectedIndexChanged
- If bBrowseFolder Then
- UpdateLock = True
- If Me.ListViewFolder.SelectedItems.Count > 0 Then
- Me.TextBoxPath.Text = Me.ListViewFolder.SelectedItems.Item(0).Text & "\"
- End If
- UpdateLock = False
- End If
- End Sub
-
- 'ListViewFolder_MouseDoubleClick
- Private Sub ListViewFolder_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListViewFolder.MouseDoubleClick
- If Me.ListViewFolder.SelectedItems.Count = 0 Then Exit Sub
- SetFolder(MyFolder & Me.ListViewFolder.SelectedItems.Item(0).Text)
- End Sub
-
- 'ListViewFolder_KeyDown
- Private Sub ListViewFolder_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListViewFolder.KeyDown
- If e.KeyCode = Keys.Enter Then
- If Me.ListViewFolder.SelectedItems.Count = 0 Then Exit Sub
- SetFolder(MyFolder & Me.ListViewFolder.SelectedItems.Item(0).Text)
- End If
- End Sub
-
- ''<SORTER>
- ''Private Sub ListViewFiles_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListViewFiles.ColumnClick
- '' ' Determine if the clicked column is already the column that is
- '' ' being sorted.
- '' If (e.Column = lvwColumnSorter.SortColumn) Then
- '' ' Reverse the current sort direction for this column.
- '' If (lvwColumnSorter.Order = SortOrder.Ascending) Then
- '' lvwColumnSorter.Order = SortOrder.Descending
- '' Else
- '' lvwColumnSorter.Order = SortOrder.Ascending
- '' End If
- '' Else
- '' ' Set the column number that is to be sorted; default to ascending.
- '' lvwColumnSorter.SortColumn = e.Column
- '' lvwColumnSorter.Order = SortOrder.Ascending
- '' End If
-
- '' ' Perform the sort with these new sort options.
- '' Me.ListViewFiles.Sort()
-
- ''End Sub
-
- 'ListViewFiles_SelectedIndexChanged
- Private Sub ListViewFiles_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListViewFiles.SelectedIndexChanged
- UpdateLock = True
- If Me.ListViewFiles.SelectedItems.Count = 0 Then
- Me.TextBoxPath.Text = ""
- Else
- If Me.ListViewFiles.SelectedItems.Count > 1 Then
- Me.TextBoxPath.Text = "<" & Me.ListViewFiles.SelectedItems.Count & " Files selected>"
- Else
- Me.TextBoxPath.Text = Me.ListViewFiles.SelectedItems.Item(0).Text
- Me.TextBoxPath.SelectionStart = Me.TextBoxPath.Text.Length
- End If
- End If
- UpdateLock = False
- End Sub
-
- 'ListViewFiles_MouseDoubleClick
- Private Sub ListViewFiles_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListViewFiles.MouseDoubleClick
- If Me.ListViewFiles.SelectedItems.Count = 0 Then Exit Sub
- Me.DialogResult = Windows.Forms.DialogResult.OK
- Me.Close()
- End Sub
-
- 'ListViewFiles_KeyDown
- Private Sub ListViewFiles_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListViewFiles.KeyDown
- If e.KeyCode = Keys.Enter Then
- If Me.ListViewFiles.SelectedItems.Count = 0 Then Exit Sub
- Me.DialogResult = Windows.Forms.DialogResult.OK
- Me.Close()
- End If
- End Sub
-
- 'TextBoxSearchFolder_KeyDown
- Private Sub TextBoxSearchFolder_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBoxSearchFolder.KeyDown
- Dim ItemCount As Int32
- Dim SelIndex As Int32
- Dim NoItem As Boolean
- ItemCount = Me.ListViewFolder.Items.Count
- NoItem = (ItemCount = 0)
- If Not NoItem Then
- If Me.ListViewFolder.SelectedItems.Count = 0 Then
- SelIndex = -1
- Else
- SelIndex = Me.ListViewFolder.SelectedIndices(0)
- End If
- End If
- Select Case e.KeyCode
- Case Keys.Enter
- If NoItem Then Exit Sub
- If Me.ListViewFolder.SelectedItems.Count = 0 Then Me.ListViewFolder.SelectedIndices.Add(0)
- SetFolder(MyFolder & Me.ListViewFolder.SelectedItems.Item(0).Text)
- Case Keys.Up
- If Not NoItem Then
- If SelIndex < 1 Then
- SelIndex = 1
- Else
- Me.ListViewFolder.Items(SelIndex).Selected = False
- End If
- Me.ListViewFolder.Items(SelIndex - 1).Selected = True
- Me.ListViewFolder.Items(SelIndex - 1).EnsureVisible()
- End If
- Case Keys.Down
- If Not NoItem And SelIndex < ItemCount - 1 Then
- If Not SelIndex = -1 Then Me.ListViewFolder.Items(SelIndex).Selected = False
- Me.ListViewFolder.Items(SelIndex + 1).Selected = True
- Me.ListViewFolder.Items(SelIndex + 1).EnsureVisible()
- End If
- Case Keys.Back
- If Me.TextBoxSearchFolder.Text = "" Then FolderUp()
- End Select
- End Sub
-
- 'TextBoxSearchFolder_TextChanged
- Private Sub TextBoxSearchFolder_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxSearchFolder.TextChanged
- If Not UpdateLock Then LoadListFolder()
- End Sub
-
- 'TextBoxSearchFile_KeyDown
- Private Sub TextBoxSearchFile_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBoxSearchFile.KeyDown
- Dim ItemCount As Int32
- Dim SelIndex As Int32
- Dim NoItem As Boolean
- ItemCount = Me.ListViewFiles.Items.Count
- NoItem = (ItemCount = 0)
- If Not NoItem Then
- If Me.ListViewFiles.SelectedItems.Count = 0 Then
- SelIndex = -1
- Else
- SelIndex = Me.ListViewFiles.SelectedIndices(0)
- End If
- End If
- Select Case e.KeyCode
- Case Keys.Enter
- If NoItem Then Exit Sub
- If Me.ListViewFiles.SelectedItems.Count = 0 Then Me.ListViewFiles.SelectedIndices.Add(0)
- Me.DialogResult = Windows.Forms.DialogResult.OK
- Me.Close()
- Case Keys.Up
- If Not NoItem Then
- If SelIndex < 1 Then
- SelIndex = 1
- Else
- Me.ListViewFiles.Items(SelIndex).Selected = False
- End If
- Me.ListViewFiles.Items(SelIndex - 1).Selected = True
- Me.ListViewFiles.Items(SelIndex - 1).EnsureVisible()
- End If
- Case Keys.Down
- If Not NoItem And SelIndex < ItemCount - 1 Then
- If Not SelIndex = -1 Then Me.ListViewFiles.Items(SelIndex).Selected = False
- Me.ListViewFiles.Items(SelIndex + 1).Selected = True
- Me.ListViewFiles.Items(SelIndex + 1).EnsureVisible()
- End If
- End Select
- End Sub
-
- 'TextBoxSearchFile_TextChanged
- Private Sub TextBoxSearchFile_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxSearchFile.TextChanged
- If Not UpdateLock Then LoadListFiles()
- End Sub
-
- 'ComboBoxExt_TextChanged
- Private Sub ComboBoxExt_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBoxExt.TextChanged
- If Not UpdateLock Then LoadListFiles()
- End Sub
-
- 'ButtonHisFolder_Click
- Private Sub ButtonHisFolder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHisFolder.Click
- Me.ContextMenuHisFolder.Show(Control.MousePosition)
- End Sub
-
- 'ButtonHisFile_Click
- Private Sub ButtonHisFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHisFile.Click
- Me.ContextMenuHisFile.Show(Control.MousePosition)
- End Sub
-
- 'Select All - Click
- Private Sub ButtonAll_Click(sender As System.Object, e As System.EventArgs) Handles ButtonAll.Click
- Dim i As Integer
- Me.ListViewFiles.BeginUpdate()
- For i = 0 To Me.ListViewFiles.Items.Count - 1
- Me.ListViewFiles.Items(i).Selected = True
- Next
- Me.ListViewFiles.EndUpdate()
- End Sub
-
- 'ContextMenuHisFile_ItemClicked
- Private Sub ContextMenuHisFile_ItemClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ContextMenuHisFile.ItemClicked
- Dim path As String
-
- path = e.ClickedItem.Text.ToString
-
- If path = EmptyText Then Exit Sub
-
- SetFolder(fPATH(path))
-
- Me.TextBoxPath.Text = IO.Path.GetFileName(path)
-
- End Sub
-
- 'ContextMenuHisFolder_ItemClicked
- Private Sub ContextMenuHisFolder_ItemClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ContextMenuHisFolder.ItemClicked
- Dim path As String
- Dim favdlog As FB_FavDlog
- Dim x As Integer
-
- path = e.ClickedItem.Text.ToString
-
- If path = EmptyText Then Exit Sub
-
- If path = FavText Then
- favdlog = New FB_FavDlog
- If favdlog.ShowDialog = Windows.Forms.DialogResult.OK Then
- For x = 10 To 19
- path = favdlog.ListBox1.Items(x - 10)
- If path = NoFavString Then
- FB_FolderHistory(x) = EmptyText
- Else
- FB_FolderHistory(x) = path
- End If
- Me.ContextMenuHisFolder.Items(x + 1).Text = FB_FolderHistory(x)
- Next
- End If
- Else
- SetFolder(path)
- End If
-
- End Sub
-
- 'TextBoxCurrent_MouseClick
- Private Sub TextBoxCurrent_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBoxCurrent.MouseClick
- Dim x As Int32
- Dim x1 As Int32
- Dim path As String
- Dim newpath As String
- newpath = ""
- x = Me.TextBoxCurrent.SelectionStart
- path = Me.TextBoxCurrent.Text
- x1 = path.Length
- If x = x1 Then Exit Sub
- If x < 4 Then
- SetFolder(Microsoft.VisualBasic.Left(path, 2))
- Exit Sub
- End If
- Do While x1 > x
- newpath = path
- 'path = Microsoft.VisualBasic.Left(path, x1 - 1)
- path = Microsoft.VisualBasic.Left(path, path.LastIndexOf("\"))
- x1 = path.Length
- Loop
- SetFolder(newpath)
- End Sub
-
- 'ButtonDesktop_Click
- Private Sub ButtonDesktop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonDesktop.Click
- SetFolder(FileIO.SpecialDirectories.Desktop.ToString)
- End Sub
-
- 'Context Menu Update
- Private Sub UpdateHisFile(ByVal path As String)
- Dim x As Int16
- Dim y As Int16
- If bLightMode Then Exit Sub
- 'Sort Context Menu
- For x = 0 To 8
- If UCase(Me.ContextMenuHisFile.Items(x).Text.ToString) = UCase(path) Then Exit For
- Next
- For y = x To 1 Step -1
- Me.ContextMenuHisFile.Items(y).Text = Me.ContextMenuHisFile.Items(y - 1).Text
- Next
- Me.ContextMenuHisFile.Items(0).Text = path
- End Sub
- Private Sub UpdateHisFolder(ByVal path As String)
- Dim x As Int16
- Dim y As Int16
-
- 'Sort Context Menu
- For x = 0 To 8
- If UCase(Me.ContextMenuHisFolder.Items(x).Text.ToString) = UCase(path) Then Exit For
- Next
-
- For y = x To 1 Step -1
- Me.ContextMenuHisFolder.Items(y).Text = Me.ContextMenuHisFolder.Items(y - 1).Text
- Next
-
- Me.ContextMenuHisFolder.Items(0).Text = path
-
- End Sub
-
- 'Manuelles History-Update
- Public Sub UpdateHistory(ByVal path As String)
- Dim x As Int16
- Dim y As Int16
- 'Init
- If Not Initialized Then Init()
- 'Files
- UpdateHisFile(path)
- 'Folder
- path = fPATH(path)
- For x = 0 To 8
- If UCase(FB_FolderHistory(x)) = UCase(path) Then Exit For
- Next
- For y = x To 1 Step -1
- FB_FolderHistory(y) = FB_FolderHistory(y - 1)
- Next
- FB_FolderHistory(0) = path
- End Sub
-
- 'Change folder
- Private Sub SetFolder(ByVal Path As String)
-
- 'Abort if no drive specified
- If Microsoft.VisualBasic.Mid(Path, 2, 1) <> ":" Then Exit Sub
-
- UpdateLock = True
-
- 'Delete Search-fields
- Me.TextBoxSearchFile.Text = ""
- Me.TextBoxSearchFolder.Text = ""
-
- 'Set Drive
- If MyDrive <> Microsoft.VisualBasic.Left(Path, 2) Then
- MyDrive = UCase(Microsoft.VisualBasic.Left(Path, 2))
- Me.ComboBoxDrive.SelectedItem = MyDrive
- End If
-
- 'Set Folder
- MyFolder = Path
- If Microsoft.VisualBasic.Right(MyFolder, 1) <> "\" Then MyFolder &= "\"
- LoadListFolder()
- LoadListFiles()
-
- If bBrowseFolder Then Me.TextBoxPath.Text = ""
-
- Me.TextBoxCurrent.Text = MyFolder
-
- 'Me.TextBoxPath.SelectionStart = Me.TextBoxPath.Text.Length
- UpdateLock = False
-
- End Sub
-
- 'Folder one level up
- Private Sub FolderUp()
- Dim path As String
- Dim x As Int32
- If MyFolder <> "" Then
- path = Microsoft.VisualBasic.Left(MyFolder, MyFolder.Length - 1)
- x = path.LastIndexOf("\")
- If x > 0 Then SetFolder(Microsoft.VisualBasic.Left(path, x))
- End If
- End Sub
-
- 'Load Folder-List
- Private Sub LoadListFolder()
- Dim SearchPat As String
- 'Delete Folder-List
- Me.ListViewFolder.Items.Clear()
- SearchPat = "*" & Me.TextBoxSearchFolder.Text & "*"
- Try
- 'Add Folder
- Dim di As New IO.DirectoryInfo(MyFolder)
- Dim aryFi As IO.DirectoryInfo()
- Dim fi As IO.DirectoryInfo
- aryFi = di.GetDirectories(SearchPat)
- For Each fi In aryFi
- Me.ListViewFolder.Items.Add(fi.ToString)
- Next
- Catch ex As Exception
- Me.ListViewFolder.Items.Add("<ERROR: " & ex.Message.ToString & ">")
- End Try
- End Sub
-
- 'Load File-list
- Private Sub LoadListFiles()
- Dim x As Int32
- Dim SearchPat As String
- Dim SearchFile As String
- Dim SearchExt As String
- Dim ExtStr As String()
-
- 'Abort if bBrowseFolder
- If bBrowseFolder Then Exit Sub
-
- Me.LabelFileAnz.Text = "0 Files"
- 'Define Extension-filter
- If Trim(Me.ComboBoxExt.Text.ToString) = "" Then
- ExtStr = New String() {"*"}
- Else
- ExtStr = Me.ComboBoxExt.Text.ToString.Split(",")
- End If
-
- 'Delete File-List
- Me.ListViewFiles.Items.Clear()
-
- SearchFile = Me.TextBoxSearchFile.Text
-
- Me.ListViewFiles.BeginUpdate()
- Try
- 'Add Folder
- Dim di As New IO.DirectoryInfo(MyFolder)
- Dim aryFi As IO.FileInfo()
- Dim fi As IO.FileInfo
- x = -1
- For Each SearchExt In ExtStr
- SearchPat = "*" & Trim(SearchFile) & "*." & Trim(SearchExt)
- aryFi = di.GetFiles(SearchPat)
- For Each fi In aryFi
- x += 1
- Me.ListViewFiles.Items.Add(fi.ToString)
- Next
- Next
- If x = 0 Then
- Me.LabelFileAnz.Text = "1 File"
- Else
- Me.LabelFileAnz.Text = x + 1 & " Files"
- End If
- Catch ex As Exception
- Me.ListViewFiles.Items.Add("<ERROR: " & ex.Message.ToString & ">")
- End Try
-
- Me.ListViewFiles.EndUpdate()
-
- End Sub
-
- 'Rename File
- Private Sub RenameFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RenameFileToolStripMenuItem.Click
- Dim file0 As String
- Dim file As String
- If Me.ListViewFiles.SelectedItems.Count = 1 Then
- file0 = Me.ListViewFiles.SelectedItems(0).Text
- file = file0
+ Private MyFolder As String
+ Private MyFiles() As String
+ Private MyDrive As String
+ Private UpdateLock As Boolean
+ Private Initialized As Boolean
+ Private MyID As String
+ Private MyExt() As String
+ Private LastFile As String
+ Private bFileMustExist As Boolean
+ Private bOverwriteCheck As Boolean
+ Private bMultiFiles As Boolean
+ Private NoExt As Boolean
+ Private bBrowseFolder As Boolean
+ Private bForceExt As Boolean
+ Private ExtListSingle As ArrayList
+ Private ExtListMulti As ArrayList
+ Private LastExt As String
+ Private bLightMode As Boolean
+
+ Private Const FavText As String = "Edit Favorites..."
+ Private Const EmptyText As String = " "
+ Private Const NoFavString As String = "<undefined>"
+
+ 'New
+ Public Sub New(ByVal LightMode As Boolean)
+ ' This call is required by the Windows Form Designer.
+ InitializeComponent()
+ ' Append any initialization after the InitializeComponent() call.
+ MyID = "Default"
+ UpdateLock = False
+ Initialized = False
+ MyFolder = ""
+ MyDrive = ""
+ LastFile = ""
+ bOverwriteCheck = False
+ bFileMustExist = False
+ bMultiFiles = False
+ NoExt = True
+ bBrowseFolder = False
+ bLightMode = LightMode
+ Me.ButtonHisFile.Enabled = Not bLightMode
+ End Sub
+
+ 'Resize
+ Private Sub FB_Dialog_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
+ Resized()
+ End Sub
+
+ 'Shown
+ Private Sub FileBrowser_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
+ Resized()
+ Me.TextBoxPath.Focus()
+ Me.TextBoxPath.SelectAll()
+ End Sub
+
+ 'Resized ListView Format
+ Private Sub Resized()
+ Me.ListViewFolder.Columns(0).Width = -2
+ Me.ListViewFiles.Columns(0).Width = -2
+ End Sub
+
+ 'SplitterMoved
+ Private Sub SplitContainer1_SplitterMoved(ByVal sender As System.Object,
+ ByVal e As System.Windows.Forms.SplitterEventArgs) Handles SplitContainer1.SplitterMoved
+ If Initialized Then Resized()
+ End Sub
+
+ 'Closing (Overwrite-Check etc)
+ Private Sub FileBrowser_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) _
+ Handles Me.FormClosing
+ Dim x As Int32
+ Dim path As String
+ Dim Ext As String
+ Dim HasExt As Boolean
+ HasExt = False
+ If Me.DialogResult = Windows.Forms.DialogResult.OK Then
+ If bBrowseFolder Then
+ path = Trim(Me.TextBoxPath.Text)
+ 'If empty path: use the Current-folder(MyFolder)
+ If path = "" Then
+ path = MyFolder
+ Else
+ If Microsoft.VisualBasic.Mid(path, 2, 1) <> ":" Then path = MyFolder & path
+ End If
+ If Not IO.Directory.Exists(path) Then
+ MsgBox("Directory " & path & " does not exist!", MsgBoxStyle.Critical)
+ e.Cancel = True
+ Exit Sub
+ End If
+ If Microsoft.VisualBasic.Right(path, 1) <> "\" Then path &= "\"
+ ReDim MyFiles(0)
+ MyFiles(0) = path
+ Else
+ 'Stop if empty path
+ If Trim(Me.TextBoxPath.Text) = "" Then
+ e.Cancel = True
+ Exit Sub
+ End If
+ LastExt = Trim(Me.ComboBoxExt.Text)
+ 'Assume Files in array
+ If Microsoft.VisualBasic.Left(Me.TextBoxPath.Text, 1) = "<" And Me.ListViewFiles.SelectedItems.Count > 0 Then
+ 'Multiple files selected
+ ReDim MyFiles(Me.ListViewFiles.SelectedItems.Count - 1)
+ x = -1
+ For Each lv0 As ListViewItem In Me.ListViewFiles.Items
+ If lv0.Selected Then
+ x += 1
+ MyFiles(x) = MyFolder & lv0.SubItems(0).Text
+ End If
+ Next
+ bMultiFiles = True
+ Else
+ 'Single File
+ path = Trim(Me.TextBoxPath.Text)
+ 'Primary extension (eg for bForceExt)
+ Ext = Trim(Me.ComboBoxExt.Text.Split(",")(0))
+ 'If file without path then append path
+ If Microsoft.VisualBasic.Mid(path, 2, 1) <> ":" Then path = MyFolder & path
+ 'If instead of File a Folder is entered: Switch to Folder and Abort
+ If IO.Directory.Exists(path) Then
+ SetFolder(path)
+ e.Cancel = True
+ Exit Sub
+ End If
+ 'Force Extension
+ If bForceExt Then
+ If UCase(IO.Path.GetExtension(path)) <> "." & UCase(Ext) Then path &= "." & Ext
+ HasExt = True
+ Else
+ 'Check whether specified a File with Ext
+ HasExt = (Microsoft.VisualBasic.Len(IO.Path.GetExtension(path)) > 1)
+ End If
+ 'If File without Extension (after bForceExt question) and it does not exist, then add primary Extension
+ If Not HasExt Then
+ If Ext <> "*" And Ext <> "" Then
+ If Not IO.File.Exists(path) Then path &= "." & Ext
+ End If
+ End If
+ 'Check that File exists
+ If IO.File.Exists(path) Then
+ 'Yes: when bOverwriteCheck, check for Overwrite
+ If bOverwriteCheck Then
+ If MsgBox("Overwrite " & path & " ?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
+ e.Cancel = True
+ Exit Sub
+ End If
+ End If
+ Else
+ 'No: abort if bFileMustExist
+ If bFileMustExist Then
+ MsgBox("The file " & path & " does not exist!", MsgBoxStyle.Critical)
+ e.Cancel = True
+ Exit Sub
+ End If
+ End If
+ 'Define MyFiles
+ ReDim MyFiles(0)
+ MyFiles(0) = path
+ bMultiFiles = False
+ End If
+ End If
+ End If
+ End Sub
+
+ 'Browse - Custom Dialog
+ Public Function Browse(ByVal path As String, ByVal FileMustExist As Boolean, ByVal OverwriteCheck As Boolean,
+ ByVal ExtMode As tFbExtMode, ByVal MultiFile As Boolean, ByVal Ext As String, ByVal Title As String) As Boolean
+ Dim x As Int16
+
+ If Not Initialized Then Init()
+
+ 'Load Folder History ContextMenu
+ For x = 0 To 9
+ Me.ContextMenuHisFolder.Items(x).Text = FB_FolderHistory(x)
+ Next
+ For x = 10 To 19
+ Me.ContextMenuHisFolder.Items(x + 1).Text = FB_FolderHistory(x)
+ Next
+
+ 'Options
+ bOverwriteCheck = OverwriteCheck
+ bFileMustExist = FileMustExist
+ bForceExt = (ExtMode = tFbExtMode.ForceExt)
+
+ 'Form Config
+ Me.ListViewFiles.MultiSelect = MultiFile
+ Me.ButtonAll.Visible = MultiFile
+ Me.Text = Title
+
+ 'Ext-Combobox
+ Me.ComboBoxExt.Items.Clear()
+ If NoExt Then
+ Me.ComboBoxExt.Items.Add("*")
+ Me.ComboBoxExt.SelectedIndex = 0
+ Else
+ Select Case ExtMode
+ Case tFbExtMode.ForceExt
+ If Ext = "" Then Ext = ExtListSingle(0).ToString
+ Me.ComboBoxExt.Items.AddRange(ExtListSingle.ToArray)
+ Me.ComboBoxExt.Text = Ext
+ Me.ComboBoxExt.Enabled = False
+ Case tFbExtMode.MultiExt, tFbExtMode.SingleExt
+ If ExtMode = tFbExtMode.MultiExt Then
+ Me.ComboBoxExt.Items.AddRange(ExtListMulti.ToArray)
+ Else
+ Me.ComboBoxExt.Items.AddRange(ExtListSingle.ToArray)
+ End If
+ If Ext <> "" Then
+ Me.ComboBoxExt.Text = Ext
+ Else
+ Me.ComboBoxExt.Text = LastExt
+ End If
+ Me.ComboBoxExt.Enabled = True
+ End Select
+ End If
+
+
+ 'Define Path
+ ' If no path is specified: Last folder, no file name
+ If path = "" Then path = FB_FolderHistory(0)
+
+ ' If path-length too small (Path is invalid): Last File
+ If path.Length < 2 Then path = LastFile
+
+ 'Open Folder - If no folder in the path: Last folder
+ If fPATH(path) = "" Then
+ 'If given a file without path
+ If Trim(FB_FolderHistory(0)) = "" Then
+ SetFolder("C:\")
+ Else
+ SetFolder(FB_FolderHistory(0))
+ End If
+ Else
+ '...Otherwise:
+ SetFolder(fPATH(path))
+ End If
+ If bBrowseFolder Then
+ FolderUp()
+ Me.TextBoxPath.Text = path
+ Else
+ Me.TextBoxPath.Text = IO.Path.GetFileName(path)
+ End If
+
+ 'Show form ------------------------------------------------ ----
+ Me.ShowDialog()
+ If Me.DialogResult = Windows.Forms.DialogResult.OK Then
+ 'File / Folder History
+ If bMultiFiles Then
+ LastFile = MyFolder
+ UpdateHisFolder(MyFolder)
+ Else
+ LastFile = MyFiles(0)
+ UpdateHisFolder(fPATH(LastFile))
+ If Not bBrowseFolder Then UpdateHisFile(LastFile)
+ End If
+ 'Update Global History Folder
+ For x = 0 To 9
+ FB_FolderHistory(x) = Me.ContextMenuHisFolder.Items(x).Text
+ Next
+ For x = 10 To 19
+ FB_FolderHistory(x) = Me.ContextMenuHisFolder.Items(x + 1).Text
+ Next
+ Return True
+ Else
+ Return False
+ End If
+ End Function
+
+ 'Close and save File / Folder History
+ Public Sub SaveAndClose()
+ Dim f As System.IO.StreamWriter
+ Dim x As Int16
+ 'Folder History
+ If FB_Init Then
+ Try
+ f = My.Computer.FileSystem.OpenTextFileWriter(FB_FilHisDir & "Directories.txt", False, System.Text.Encoding.UTF8)
+ For x = 0 To 19
+ f.WriteLine(FB_FolderHistory(x))
+ Next
+ f.Close()
+ f.Dispose()
+ Catch ex As Exception
+ End Try
+ FB_Init = False
+ End If
+ 'File History
+ If Initialized And Not bLightMode Then
+ If Not bBrowseFolder Then
+ Try
+ f = My.Computer.FileSystem.OpenTextFileWriter(FB_FilHisDir & MyID & ".txt", False, System.Text.Encoding.UTF8)
+ For x = 0 To 9
+ f.WriteLine(Me.ContextMenuHisFile.Items(x).Text)
+ Next
+ f.Close()
+ f.Dispose()
+ Catch ex As Exception
+ End Try
+ End If
+ Initialized = False
+ End If
+ f = Nothing
+ 'Close
+ Me.Close()
+ End Sub
+
+ 'Switching to FolderBrowser
+ Public Sub SetFolderBrowser()
+ If Initialized Then Exit Sub
+ bBrowseFolder = True
+ Me.Width = 500
+ Me.ListViewFiles.Enabled = False
+ Me.ButtonHisFile.Enabled = False
+ Me.TextBoxSearchFile.Enabled = False
+ Me.SplitContainer1.Panel2Collapsed = True
+ Me.Text = "Directory Browser"
+ End Sub
+
+ 'Initialize
+ Private Sub Init()
+ Dim x As Int16
+ Dim line As String
+ Dim f As System.IO.StreamReader
+
+ UpdateLock = True
+
+ 'Initialization for Global File Browser
+ If Not FB_Init Then GlobalInit()
+
+ 'Load Drive ComboBox
+ For x = 0 To UBound(FB_Drives)
+ Me.ComboBoxDrive.Items.Add(FB_Drives(x))
+ Next
+
+ 'FolderHistory ContextMenu
+ Me.ContextMenuHisFolder.Items.Clear()
+ For x = 0 To 9
+ Me.ContextMenuHisFolder.Items.Add("")
+ Next
+ Me.ContextMenuHisFolder.Items.Add("-")
+ For x = 10 To 19
+ Me.ContextMenuHisFolder.Items.Add("")
+ Next
+ Me.ContextMenuHisFolder.Items.Add("-")
+ Me.ContextMenuHisFolder.Items.Add(FavText)
+
+ 'FileHistory ContextMenu
+ If bBrowseFolder Then
+ LastFile = FB_FolderHistory(0)
+ ElseIf Not bLightMode Then
+ For x = 0 To 9
+ Me.ContextMenuHisFile.Items.Add("")
+ Next
+ If IO.File.Exists(FB_FilHisDir & MyID & ".txt") Then
+ f = New System.IO.StreamReader(FB_FilHisDir & MyID & ".txt")
+ x = -1
+ Do While Not f.EndOfStream And x < 9
+ x += 1
+ line = f.ReadLine
+ Me.ContextMenuHisFile.Items(x).Text = line
+ If x = 0 Then LastFile = line
+ Loop
+ f.Close()
+ f.Dispose()
+ End If
+ End If
+
+ 'Extension-ComboBox
+ If Not NoExt Then
+ ExtListSingle = New ArrayList
+ ExtListMulti = New ArrayList
+ For x = 0 To UBound(MyExt)
+ ExtListMulti.Add(MyExt(x))
+ For Each line In MyExt(x).Split(",")
+ ExtListSingle.Add(Trim(line))
+ Next
+ Next
+ ExtListMulti.Add("*")
+ ExtListSingle.Add("*")
+ End If
+
+ Initialized = True
+ f = Nothing
+ UpdateLock = False
+ End Sub
+
+ Private Sub GlobalInit()
+ Dim drive As String
+ Dim x As Int16
+
+ Dim f As System.IO.StreamReader
+
+ 'Create Drive List
+ ReDim FB_Drives(UBound(IO.Directory.GetLogicalDrives()))
+ x = -1
+ For Each drive In IO.Directory.GetLogicalDrives()
+ x += 1
+ FB_Drives(x) = Microsoft.VisualBasic.Left(drive, 2)
+ Next
+
+ 'Read Folder History
+ For x = 0 To 19
+ FB_FolderHistory(x) = EmptyText
+ Next
+ If IO.File.Exists(FB_FilHisDir & "Directories.txt") Then
+ f = New System.IO.StreamReader(FB_FilHisDir & "Directories.txt")
+ x = -1
+ Do While Not f.EndOfStream And x < 19
+ x += 1
+ FB_FolderHistory(x) = f.ReadLine()
+ Loop
+ f.Dispose()
+ f.Close()
+ End If
+
+ FB_Init = True
+
+ f = Nothing
+ End Sub
+
+ 'ComboBoxDrive_SelectedIndexChanged
+ Private Sub ComboBoxDrive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
+ Handles ComboBoxDrive.SelectedIndexChanged
+ If Not UpdateLock Then SetFolder(Me.ComboBoxDrive.SelectedItem.ToString)
+ End Sub
+
+
+ 'ButtonFolderBack_Click
+ Private Sub ButtonFolderBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
+ Handles ButtonFolderBack.Click
+ FolderUp()
+ End Sub
+
+ 'TextBoxPath_KeyDown (ENTER)
+ Private Sub TextBoxPath_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _
+ Handles TextBoxPath.KeyDown
+ Dim path As String
+ If e.KeyCode = Keys.Enter Then
+ path = Me.TextBoxPath.Text
+ If IO.Directory.Exists(path) Then
+ If bBrowseFolder Then
+ Me.DialogResult = Windows.Forms.DialogResult.OK
+ Me.Close()
+ Else
+ SetFolder(path)
+ End If
+ Else
+ Me.DialogResult = Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ End If
+ End Sub
+
+ 'ListViewFolder_SelectedIndexChanged
+ Private Sub ListViewFolder_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
+ Handles ListViewFolder.SelectedIndexChanged
+ If bBrowseFolder Then
+ UpdateLock = True
+ If Me.ListViewFolder.SelectedItems.Count > 0 Then
+ Me.TextBoxPath.Text = Me.ListViewFolder.SelectedItems.Item(0).Text & "\"
+ End If
+ UpdateLock = False
+ End If
+ End Sub
+
+ 'ListViewFolder_MouseDoubleClick
+ Private Sub ListViewFolder_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
+ Handles ListViewFolder.MouseDoubleClick
+ If Me.ListViewFolder.SelectedItems.Count = 0 Then Exit Sub
+ SetFolder(MyFolder & Me.ListViewFolder.SelectedItems.Item(0).Text)
+ End Sub
+
+ 'ListViewFolder_KeyDown
+ Private Sub ListViewFolder_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _
+ Handles ListViewFolder.KeyDown
+ If e.KeyCode = Keys.Enter Then
+ If Me.ListViewFolder.SelectedItems.Count = 0 Then Exit Sub
+ SetFolder(MyFolder & Me.ListViewFolder.SelectedItems.Item(0).Text)
+ End If
+ End Sub
+
+ ''<SORTER>
+ ''Private Sub ListViewFiles_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListViewFiles.ColumnClick
+ '' ' Determine if the clicked column is already the column that is
+ '' ' being sorted.
+ '' If (e.Column = lvwColumnSorter.SortColumn) Then
+ '' ' Reverse the current sort direction for this column.
+ '' If (lvwColumnSorter.Order = SortOrder.Ascending) Then
+ '' lvwColumnSorter.Order = SortOrder.Descending
+ '' Else
+ '' lvwColumnSorter.Order = SortOrder.Ascending
+ '' End If
+ '' Else
+ '' ' Set the column number that is to be sorted; default to ascending.
+ '' lvwColumnSorter.SortColumn = e.Column
+ '' lvwColumnSorter.Order = SortOrder.Ascending
+ '' End If
+
+ '' ' Perform the sort with these new sort options.
+ '' Me.ListViewFiles.Sort()
+
+ ''End Sub
+
+ 'ListViewFiles_SelectedIndexChanged
+ Private Sub ListViewFiles_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
+ Handles ListViewFiles.SelectedIndexChanged
+ UpdateLock = True
+ If Me.ListViewFiles.SelectedItems.Count = 0 Then
+ Me.TextBoxPath.Text = ""
+ Else
+ If Me.ListViewFiles.SelectedItems.Count > 1 Then
+ Me.TextBoxPath.Text = "<" & Me.ListViewFiles.SelectedItems.Count & " Files selected>"
+ Else
+ Me.TextBoxPath.Text = Me.ListViewFiles.SelectedItems.Item(0).Text
+ Me.TextBoxPath.SelectionStart = Me.TextBoxPath.Text.Length
+ End If
+ End If
+ UpdateLock = False
+ End Sub
+
+ 'ListViewFiles_MouseDoubleClick
+ Private Sub ListViewFiles_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
+ Handles ListViewFiles.MouseDoubleClick
+ If Me.ListViewFiles.SelectedItems.Count = 0 Then Exit Sub
+ Me.DialogResult = Windows.Forms.DialogResult.OK
+ Me.Close()
+ End Sub
+
+ 'ListViewFiles_KeyDown
+ Private Sub ListViewFiles_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _
+ Handles ListViewFiles.KeyDown
+ If e.KeyCode = Keys.Enter Then
+ If Me.ListViewFiles.SelectedItems.Count = 0 Then Exit Sub
+ Me.DialogResult = Windows.Forms.DialogResult.OK
+ Me.Close()
+ End If
+ End Sub
+
+ 'TextBoxSearchFolder_KeyDown
+ Private Sub TextBoxSearchFolder_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _
+ Handles TextBoxSearchFolder.KeyDown
+ Dim ItemCount As Int32
+ Dim SelIndex As Int32
+ Dim NoItem As Boolean
+ ItemCount = Me.ListViewFolder.Items.Count
+ NoItem = (ItemCount = 0)
+ If Not NoItem Then
+ If Me.ListViewFolder.SelectedItems.Count = 0 Then
+ SelIndex = -1
+ Else
+ SelIndex = Me.ListViewFolder.SelectedIndices(0)
+ End If
+ End If
+ Select Case e.KeyCode
+ Case Keys.Enter
+ If NoItem Then Exit Sub
+ If Me.ListViewFolder.SelectedItems.Count = 0 Then Me.ListViewFolder.SelectedIndices.Add(0)
+ SetFolder(MyFolder & Me.ListViewFolder.SelectedItems.Item(0).Text)
+ Case Keys.Up
+ If Not NoItem Then
+ If SelIndex < 1 Then
+ SelIndex = 1
+ Else
+ Me.ListViewFolder.Items(SelIndex).Selected = False
+ End If
+ Me.ListViewFolder.Items(SelIndex - 1).Selected = True
+ Me.ListViewFolder.Items(SelIndex - 1).EnsureVisible()
+ End If
+ Case Keys.Down
+ If Not NoItem And SelIndex < ItemCount - 1 Then
+ If Not SelIndex = -1 Then Me.ListViewFolder.Items(SelIndex).Selected = False
+ Me.ListViewFolder.Items(SelIndex + 1).Selected = True
+ Me.ListViewFolder.Items(SelIndex + 1).EnsureVisible()
+ End If
+ Case Keys.Back
+ If Me.TextBoxSearchFolder.Text = "" Then FolderUp()
+ End Select
+ End Sub
+
+ 'TextBoxSearchFolder_TextChanged
+ Private Sub TextBoxSearchFolder_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
+ Handles TextBoxSearchFolder.TextChanged
+ If Not UpdateLock Then LoadListFolder()
+ End Sub
+
+ 'TextBoxSearchFile_KeyDown
+ Private Sub TextBoxSearchFile_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _
+ Handles TextBoxSearchFile.KeyDown
+ Dim ItemCount As Int32
+ Dim SelIndex As Int32
+ Dim NoItem As Boolean
+ ItemCount = Me.ListViewFiles.Items.Count
+ NoItem = (ItemCount = 0)
+ If Not NoItem Then
+ If Me.ListViewFiles.SelectedItems.Count = 0 Then
+ SelIndex = -1
+ Else
+ SelIndex = Me.ListViewFiles.SelectedIndices(0)
+ End If
+ End If
+ Select Case e.KeyCode
+ Case Keys.Enter
+ If NoItem Then Exit Sub
+ If Me.ListViewFiles.SelectedItems.Count = 0 Then Me.ListViewFiles.SelectedIndices.Add(0)
+ Me.DialogResult = Windows.Forms.DialogResult.OK
+ Me.Close()
+ Case Keys.Up
+ If Not NoItem Then
+ If SelIndex < 1 Then
+ SelIndex = 1
+ Else
+ Me.ListViewFiles.Items(SelIndex).Selected = False
+ End If
+ Me.ListViewFiles.Items(SelIndex - 1).Selected = True
+ Me.ListViewFiles.Items(SelIndex - 1).EnsureVisible()
+ End If
+ Case Keys.Down
+ If Not NoItem And SelIndex < ItemCount - 1 Then
+ If Not SelIndex = -1 Then Me.ListViewFiles.Items(SelIndex).Selected = False
+ Me.ListViewFiles.Items(SelIndex + 1).Selected = True
+ Me.ListViewFiles.Items(SelIndex + 1).EnsureVisible()
+ End If
+ End Select
+ End Sub
+
+ 'TextBoxSearchFile_TextChanged
+ Private Sub TextBoxSearchFile_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
+ Handles TextBoxSearchFile.TextChanged
+ If Not UpdateLock Then LoadListFiles()
+ End Sub
+
+ 'ComboBoxExt_TextChanged
+ Private Sub ComboBoxExt_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) _
+ Handles ComboBoxExt.TextChanged
+ If Not UpdateLock Then LoadListFiles()
+ End Sub
+
+ 'ButtonHisFolder_Click
+ Private Sub ButtonHisFolder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
+ Handles ButtonHisFolder.Click
+ Me.ContextMenuHisFolder.Show(Control.MousePosition)
+ End Sub
+
+ 'ButtonHisFile_Click
+ Private Sub ButtonHisFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHisFile.Click
+ Me.ContextMenuHisFile.Show(Control.MousePosition)
+ End Sub
+
+ 'Select All - Click
+ Private Sub ButtonAll_Click(sender As System.Object, e As System.EventArgs) Handles ButtonAll.Click
+ Dim i As Integer
+ Me.ListViewFiles.BeginUpdate()
+ For i = 0 To Me.ListViewFiles.Items.Count - 1
+ Me.ListViewFiles.Items(i).Selected = True
+ Next
+ Me.ListViewFiles.EndUpdate()
+ End Sub
+
+ 'ContextMenuHisFile_ItemClicked
+ Private Sub ContextMenuHisFile_ItemClicked(ByVal sender As Object,
+ ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ContextMenuHisFile.ItemClicked
+ Dim path As String
+
+ path = e.ClickedItem.Text.ToString
+
+ If path = EmptyText Then Exit Sub
+
+ SetFolder(fPATH(path))
+
+ Me.TextBoxPath.Text = IO.Path.GetFileName(path)
+ End Sub
+
+ 'ContextMenuHisFolder_ItemClicked
+ Private Sub ContextMenuHisFolder_ItemClicked(ByVal sender As Object,
+ ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ContextMenuHisFolder.ItemClicked
+ Dim path As String
+ Dim favdlog As FB_FavDlog
+ Dim x As Integer
+
+ path = e.ClickedItem.Text.ToString
+
+ If path = EmptyText Then Exit Sub
+
+ If path = FavText Then
+ favdlog = New FB_FavDlog
+ If favdlog.ShowDialog = Windows.Forms.DialogResult.OK Then
+ For x = 10 To 19
+ path = favdlog.ListBox1.Items(x - 10)
+ If path = NoFavString Then
+ FB_FolderHistory(x) = EmptyText
+ Else
+ FB_FolderHistory(x) = path
+ End If
+ Me.ContextMenuHisFolder.Items(x + 1).Text = FB_FolderHistory(x)
+ Next
+ End If
+ Else
+ SetFolder(path)
+ End If
+ End Sub
+
+ 'TextBoxCurrent_MouseClick
+ Private Sub TextBoxCurrent_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
+ Handles TextBoxCurrent.MouseClick
+ Dim x As Int32
+ Dim x1 As Int32
+ Dim path As String
+ Dim newpath As String
+ newpath = ""
+ x = Me.TextBoxCurrent.SelectionStart
+ path = Me.TextBoxCurrent.Text
+ x1 = path.Length
+ If x = x1 Then Exit Sub
+ If x < 4 Then
+ SetFolder(Microsoft.VisualBasic.Left(path, 2))
+ Exit Sub
+ End If
+ Do While x1 > x
+ newpath = path
+ 'path = Microsoft.VisualBasic.Left(path, x1 - 1)
+ path = Microsoft.VisualBasic.Left(path, path.LastIndexOf("\"))
+ x1 = path.Length
+ Loop
+ SetFolder(newpath)
+ End Sub
+
+ 'ButtonDesktop_Click
+ Private Sub ButtonDesktop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonDesktop.Click
+ SetFolder(FileIO.SpecialDirectories.Desktop.ToString)
+ End Sub
+
+ 'Context Menu Update
+ Private Sub UpdateHisFile(ByVal path As String)
+ Dim x As Int16
+ Dim y As Int16
+ If bLightMode Then Exit Sub
+ 'Sort Context Menu
+ For x = 0 To 8
+ If UCase(Me.ContextMenuHisFile.Items(x).Text.ToString) = UCase(path) Then Exit For
+ Next
+ For y = x To 1 Step -1
+ Me.ContextMenuHisFile.Items(y).Text = Me.ContextMenuHisFile.Items(y - 1).Text
+ Next
+ Me.ContextMenuHisFile.Items(0).Text = path
+ End Sub
+
+ Private Sub UpdateHisFolder(ByVal path As String)
+ Dim x As Int16
+ Dim y As Int16
+
+ 'Sort Context Menu
+ For x = 0 To 8
+ If UCase(Me.ContextMenuHisFolder.Items(x).Text.ToString) = UCase(path) Then Exit For
+ Next
+
+ For y = x To 1 Step -1
+ Me.ContextMenuHisFolder.Items(y).Text = Me.ContextMenuHisFolder.Items(y - 1).Text
+ Next
+
+ Me.ContextMenuHisFolder.Items(0).Text = path
+ End Sub
+
+ 'Manuelles History-Update
+ Public Sub UpdateHistory(ByVal path As String)
+ Dim x As Int16
+ Dim y As Int16
+ 'Init
+ If Not Initialized Then Init()
+ 'Files
+ UpdateHisFile(path)
+ 'Folder
+ path = fPATH(path)
+ For x = 0 To 8
+ If UCase(FB_FolderHistory(x)) = UCase(path) Then Exit For
+ Next
+ For y = x To 1 Step -1
+ FB_FolderHistory(y) = FB_FolderHistory(y - 1)
+ Next
+ FB_FolderHistory(0) = path
+ End Sub
+
+ 'Change folder
+ Private Sub SetFolder(ByVal Path As String)
+
+ 'Abort if no drive specified
+ If Microsoft.VisualBasic.Mid(Path, 2, 1) <> ":" Then Exit Sub
+
+ UpdateLock = True
+
+ 'Delete Search-fields
+ Me.TextBoxSearchFile.Text = ""
+ Me.TextBoxSearchFolder.Text = ""
+
+ 'Set Drive
+ If MyDrive <> Microsoft.VisualBasic.Left(Path, 2) Then
+ MyDrive = UCase(Microsoft.VisualBasic.Left(Path, 2))
+ Me.ComboBoxDrive.SelectedItem = MyDrive
+ End If
+
+ 'Set Folder
+ MyFolder = Path
+ If Microsoft.VisualBasic.Right(MyFolder, 1) <> "\" Then MyFolder &= "\"
+ LoadListFolder()
+ LoadListFiles()
+
+ If bBrowseFolder Then Me.TextBoxPath.Text = ""
+
+ Me.TextBoxCurrent.Text = MyFolder
+
+ 'Me.TextBoxPath.SelectionStart = Me.TextBoxPath.Text.Length
+ UpdateLock = False
+ End Sub
+
+ 'Folder one level up
+ Private Sub FolderUp()
+ Dim path As String
+ Dim x As Int32
+ If MyFolder <> "" Then
+ path = Microsoft.VisualBasic.Left(MyFolder, MyFolder.Length - 1)
+ x = path.LastIndexOf("\")
+ If x > 0 Then SetFolder(Microsoft.VisualBasic.Left(path, x))
+ End If
+ End Sub
+
+ 'Load Folder-List
+ Private Sub LoadListFolder()
+ Dim SearchPat As String
+ 'Delete Folder-List
+ Me.ListViewFolder.Items.Clear()
+ SearchPat = "*" & Me.TextBoxSearchFolder.Text & "*"
+ Try
+ 'Add Folder
+ Dim di As New IO.DirectoryInfo(MyFolder)
+ Dim aryFi As IO.DirectoryInfo()
+ Dim fi As IO.DirectoryInfo
+ aryFi = di.GetDirectories(SearchPat)
+ For Each fi In aryFi
+ Me.ListViewFolder.Items.Add(fi.ToString)
+ Next
+ Catch ex As Exception
+ Me.ListViewFolder.Items.Add("<ERROR: " & ex.Message.ToString & ">")
+ End Try
+ End Sub
+
+ 'Load File-list
+ Private Sub LoadListFiles()
+ Dim x As Int32
+ Dim SearchPat As String
+ Dim SearchFile As String
+ Dim SearchExt As String
+ Dim ExtStr As String()
+
+ 'Abort if bBrowseFolder
+ If bBrowseFolder Then Exit Sub
+
+ Me.LabelFileAnz.Text = "0 Files"
+ 'Define Extension-filter
+ If Trim(Me.ComboBoxExt.Text.ToString) = "" Then
+ ExtStr = New String() {"*"}
+ Else
+ ExtStr = Me.ComboBoxExt.Text.ToString.Split(",")
+ End If
+
+ 'Delete File-List
+ Me.ListViewFiles.Items.Clear()
+
+ SearchFile = Me.TextBoxSearchFile.Text
+
+ Me.ListViewFiles.BeginUpdate()
+ Try
+ 'Add Folder
+ Dim di As New IO.DirectoryInfo(MyFolder)
+ Dim aryFi As IO.FileInfo()
+ Dim fi As IO.FileInfo
+ x = -1
+ For Each SearchExt In ExtStr
+ SearchPat = "*" & Trim(SearchFile) & "*." & Trim(SearchExt)
+ aryFi = di.GetFiles(SearchPat)
+ For Each fi In aryFi
+ x += 1
+ Me.ListViewFiles.Items.Add(fi.ToString)
+ Next
+ Next
+ If x = 0 Then
+ Me.LabelFileAnz.Text = "1 File"
+ Else
+ Me.LabelFileAnz.Text = x + 1 & " Files"
+ End If
+ Catch ex As Exception
+ Me.ListViewFiles.Items.Add("<ERROR: " & ex.Message.ToString & ">")
+ End Try
+
+ Me.ListViewFiles.EndUpdate()
+ End Sub
+
+ 'Rename File
+ Private Sub RenameFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
+ Handles RenameFileToolStripMenuItem.Click
+ Dim file0 As String
+ Dim file As String
+ If Me.ListViewFiles.SelectedItems.Count = 1 Then
+ file0 = Me.ListViewFiles.SelectedItems(0).Text
+ file = file0
lb1:
- file = InputBox("New Filename", "Rename " & file0, file)
- If file <> "" Then
- If IO.File.Exists(MyFolder & file) Then
- MsgBox("File " & file & " already exists!")
- GoTo lb1
- End If
- Try
- My.Computer.FileSystem.RenameFile(MyFolder & file0, file)
- LoadListFiles()
- Catch ex As Exception
- MsgBox("Cannot rename " & file0 & "!")
- End Try
- End If
- End If
- End Sub
-
- 'Delete File
- Private Sub DeleteFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteFileToolStripMenuItem.Click
- Dim x As Int32
- Dim c As Int32
- c = Me.ListViewFiles.SelectedItems.Count
- If c > 0 Then
- If c = 1 Then
- If MsgBox("Delete " & MyFolder & Me.ListViewFiles.SelectedItems(0).Text & "?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then Exit Sub
- Else
- If MsgBox("Delete " & c & " files?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then Exit Sub
- End If
- For x = 0 To c - 1
- Try
- IO.File.Delete(MyFolder & Me.ListViewFiles.SelectedItems(x).Text)
- Catch ex As Exception
- End Try
- Next
- LoadListFiles()
- End If
- End Sub
-
- 'Neuer Ordner
- Private Sub ButtonNewDir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonNewDir.Click
- Dim f As String
- f = "New Folder"
+ file = InputBox("New Filename", "Rename " & file0, file)
+ If file <> "" Then
+ If IO.File.Exists(MyFolder & file) Then
+ MsgBox("File " & file & " already exists!")
+ GoTo lb1
+ End If
+ Try
+ My.Computer.FileSystem.RenameFile(MyFolder & file0, file)
+ LoadListFiles()
+ Catch ex As Exception
+ MsgBox("Cannot rename " & file0 & "!")
+ End Try
+ End If
+ End If
+ End Sub
+
+ 'Delete File
+ Private Sub DeleteFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
+ Handles DeleteFileToolStripMenuItem.Click
+ Dim x As Int32
+ Dim c As Int32
+ c = Me.ListViewFiles.SelectedItems.Count
+ If c > 0 Then
+ If c = 1 Then
+ If MsgBox("Delete " & MyFolder & Me.ListViewFiles.SelectedItems(0).Text & "?", MsgBoxStyle.YesNo) = MsgBoxResult.No _
+ Then Exit Sub
+ Else
+ If MsgBox("Delete " & c & " files?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then Exit Sub
+ End If
+ For x = 0 To c - 1
+ Try
+ IO.File.Delete(MyFolder & Me.ListViewFiles.SelectedItems(x).Text)
+ Catch ex As Exception
+ End Try
+ Next
+ LoadListFiles()
+ End If
+ End Sub
+
+ 'Neuer Ordner
+ Private Sub ButtonNewDir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonNewDir.Click
+ Dim f As String
+ f = "New Folder"
lb10:
- f = InputBox("Create New Folder", "New Folder", f)
- If f <> "" Then
- If IO.Directory.Exists(MyFolder & f) Then
- MsgBox("Folder " & MyFolder & f & " already exists!")
- GoTo lb10
- End If
- Try
- IO.Directory.CreateDirectory(MyFolder & f)
- SetFolder(MyFolder & f)
- Catch ex As Exception
- MsgBox("Cannot create " & f & "!")
- End Try
- End If
- End Sub
-
- ''Private Function fTimeString(ByVal T As Date) As String
- '' Return T.Year & "-" & T.Month.ToString("00") & "-" & T.Day.ToString("00") & " " & T.Hour.ToString("00") & ":" & T.Minute.ToString("00") & ":" & T.Second.ToString("00")
- ''End Function
-
-
- Private Function fPATH(ByVal Pfad As String) As String
- Dim x As Int16
- x = Pfad.LastIndexOf("\")
- If x = -1 Then
- Return Microsoft.VisualBasic.Left(Pfad, 0)
- Else
- Return Microsoft.VisualBasic.Left(Pfad, x + 1)
- End If
- End Function
-
- Public ReadOnly Property Folder() As String
- Get
- Return MyFolder
- End Get
- End Property
-
- Public ReadOnly Property Files() As String()
- Get
- Return MyFiles
- End Get
- End Property
-
- Public Property ID() As String
- Get
- Return MyID
- End Get
- Set(ByVal value As String)
- MyID = value
- End Set
- End Property
-
- Public Property Extensions() As String()
- Get
- Return MyExt
- End Get
- Set(ByVal value As String())
- MyExt = value
- LastExt = MyExt(0)
- NoExt = False
- End Set
- End Property
-
-
+ f = InputBox("Create New Folder", "New Folder", f)
+ If f <> "" Then
+ If IO.Directory.Exists(MyFolder & f) Then
+ MsgBox("Folder " & MyFolder & f & " already exists!")
+ GoTo lb10
+ End If
+ Try
+ IO.Directory.CreateDirectory(MyFolder & f)
+ SetFolder(MyFolder & f)
+ Catch ex As Exception
+ MsgBox("Cannot create " & f & "!")
+ End Try
+ End If
+ End Sub
+
+ ''Private Function fTimeString(ByVal T As Date) As String
+ '' Return T.Year & "-" & T.Month.ToString("00") & "-" & T.Day.ToString("00") & " " & T.Hour.ToString("00") & ":" & T.Minute.ToString("00") & ":" & T.Second.ToString("00")
+ ''End Function
+
+
+ Private Function fPATH(ByVal Pfad As String) As String
+ Dim x As Int16
+ x = Pfad.LastIndexOf("\")
+ If x = -1 Then
+ Return Microsoft.VisualBasic.Left(Pfad, 0)
+ Else
+ Return Microsoft.VisualBasic.Left(Pfad, x + 1)
+ End If
+ End Function
+
+ Public ReadOnly Property Folder() As String
+ Get
+ Return MyFolder
+ End Get
+ End Property
+
+ Public ReadOnly Property Files() As String()
+ Get
+ Return MyFiles
+ End Get
+ End Property
+
+ Public Property ID() As String
+ Get
+ Return MyID
+ End Get
+ Set(ByVal value As String)
+ MyID = value
+ End Set
+ End Property
+
+ Public Property Extensions() As String()
+ Get
+ Return MyExt
+ End Get
+ Set(ByVal value As String())
+ MyExt = value
+ LastExt = MyExt(0)
+ NoExt = False
+ End Set
+ End Property
End Class