Notes

Module ConnDB() in Using The Datagridview Control

Private Sub LoadMultipleCombo()
Try
sqL = "SELECT [replaceid],[title],[section_code] FROM [mulitreplace] order by [title]"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
'dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)

Catch ex As Exception
MsgBox(ex.Message)
End Try
Dim Table_ As String = "mulitreplace ORDER BY title"
Dim ds As New DataSet
Dim da As New OleDbDataAdapter(cmd)
da.Fill(ds, Table_)
conn.Close()
Dim t1 As DataTable = ds.Tables(Table_)
txMultiAction.Items.Clear()
txMultiAction.ValueMember = "replaceid"
txMultiAction.DisplayMember = "title"
txMultiAction.DataSource = ds.Tables(Table_)
End Sub

---

Function LoadMultiData()
ConnDB()
Dim Table_ As String = "mulitreplace WHERE replaceid=" + Str(txMultiAction.SelectedValue)
Dim query As String = "SELECT * FROM " & Table_
Dim ds As New DataSet
Dim cmd As New OleDbCommand(query, conn)
Dim da As New OleDbDataAdapter(cmd)
da.Fill(ds, Table_)
conn.Close()
Dim t1 As DataTable = ds.Tables(Table_)
Dim row As DataRow
Dim Item(2) As String
For Each row In t1.Rows
Item(0) = row(0)
Item(1) = row(1)
Item(2) = row(2)

Next
Return Item(2)
End Function

Imports System.IO
Imports System.Text
Imports System.Data.OleDb

Private Sub btRefresh_Click(sender As Object, e As EventArgs) Handles btRefresh.Click
txReplaceid.Text = "" : txTitle.Text = "" : txSectionCode.Text = "" : DataGridView1.Columns.Clear()
Select Case table_selected
Case "copytext"
txSectionCode.Height = 100 : TXfield3.Visible = True : txTitle.Visible = True
With DataGridView1
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.Width = 1150
.Columns.Add("copyID", "copyID") : .Columns.Add("category", "category") : .Columns.Add("copy_text", "copy_text") : .Columns.Add("notes", "notes")
.Columns(0).Visible = False
.Columns(1).HeaderText = "Category" : .Columns(1).Width = 120
.Columns(2).HeaderText = "TEXT" : .Columns(2).Width = 420
.Columns(3).HeaderText = "Notes" : .Columns(3).Width = 200
Try
sqL = "SELECT [copyID],[category],[copy_text],[notes] FROM [copy_it] ORDER BY [category],[copy_text]"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
.Rows.Clear()
Do While dr.Read
.Rows.Add(dr(0), dr(1), dr(2), dr(3))
Loop
Catch ex As Exception
MsgBox(ex.Message)
End Try
End With
Case "filepaths"
txSectionCode.Height = 100 : TXfield3.Visible = False
With DataGridView1
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.Width = 1150
.Columns.Add("pathID", "pathID") : .Columns.Add("file_path", "file_path")
.Columns(0).Visible = False : txTitle.Visible = False
.Columns(1).HeaderText = "File Path"
.Columns(1).Width = 1200
Try
sqL = "SELECT [pathID],[file_path] FROM [file_paths] WHERE [computer]='" + My.Computer.Name + "' ORDER BY [file_path]"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
.Rows.Clear()
Do While dr.Read
.Rows.Add(dr(0), dr(1))
Loop
Catch ex As Exception
MsgBox(ex.Message)
End Try
End With
Case "multireplace"
txSectionCode.Height = 300 : TXfield3.Visible = False
With DataGridView1
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.Width = 1150
.Columns.Add("switchid", "switchid") : .Columns.Add("position", "Position") : .Columns.Add("code", "code") : .Columns.Add("Description", "Description")
.Columns(0).Visible = False : txTitle.Visible = True
.Columns(1).HeaderText = "Title"
.Columns(2).HeaderText = "Code"

.Columns(1).Width = 300 : .Columns(2).Width = 1200
Try
sqL = "SELECT [replaceid],[title],[section_code] FROM [mulitreplace] order by [title]"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
.Rows.Clear()
Do While dr.Read
.Rows.Add(dr(0), dr(1), dr(2))
Loop
Catch ex As Exception
MsgBox(ex.Message)
End Try
End With
Case "directorycopy"
txSectionCode.Height = 300 : TXfield3.Visible = False
With DataGridView1
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.Width = 1150
.Columns.Add("directorid", "DirectoryID") : .Columns.Add("prefix", "Prefix") : .Columns.Add("directory", "Directory") ' .Columns.Add("Description", "Description")
.Columns(0).Visible = False : txTitle.Visible = True
.Columns(1).HeaderText = "Prefix"
.Columns(2).HeaderText = "Directory"
.Columns(1).Width = 300 : .Columns(2).Width = 1200
Try
sqL = "SELECT [directoryID],[prefix],[directory] FROM [directory_copy] order by [prefix]"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
.Rows.Clear()
Do While dr.Read
.Rows.Add(dr(0), dr(1), dr(2))
Loop
Catch ex As Exception
MsgBox(ex.Message)
End Try
End With
Case "emailfiltered"
txSectionCode.Height = 100 : TXfield3.Visible = False
With DataGridView1
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.Width = 1150
.Columns.Add("emailID", "ID") : .Columns.Add("email", "Email Filter") : .Columns.Add("importance", "Rate") ' .Columns.Add("Description", "Description")
.Columns(0).Visible = False : txTitle.Visible = True
.Columns(1).HeaderText = "Email Filter"
.Columns(2).HeaderText = "Rated"
.Columns(1).Width = 400 : .Columns(2).Width = 100
Try
sqL = "SELECT [emailID],[email],[importance] FROM [Filtered_email] ORDER BY [email]"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
.Rows.Clear()
Do While dr.Read
.Rows.Add(dr(0), dr(1), dr(2))
Loop
Catch ex As Exception
MsgBox(ex.Message)
End Try
End With
Case "emailmoved"
txSectionCode.Height = 100 : TXfield3.Visible = True : txTitle.Visible = True
With DataGridView1
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.Width = 1150
.Columns.Add("moveID", "ID") : .Columns.Add("move_to", "Move To") : .Columns.Add("subject_filter", "Subject Phrase") : .Columns.Add("archive", "Archive")
.Columns(0).Visible = False
.Columns(1).HeaderText = "Move To" : .Columns(1).Width = 250
.Columns(2).HeaderText = "Subject Phrase" : .Columns(2).Width = 600
.Columns(3).HeaderText = "Archive" : .Columns(3).Width = 200
Try
sqL = "SELECT [moveID],[move_to],[subject_filter],[archive] FROM [move_email] ORDER BY [move_to],[subject_filter]"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
.Rows.Clear()
Do While dr.Read
.Rows.Add(dr(0), dr(1), dr(2), dr(3))
Loop
Catch ex As Exception
MsgBox(ex.Message)
End Try
End With
End Select

End Sub

=============== mouse event ==============
Private Sub DataGridView1_MouseClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseClick
Dim dr As DataGridViewRow = DataGridView1.SelectedRows(0)
Select Case table_selected
Case "copytext"
Try
txReplaceid.Text = dr.Cells(0).Value.ToString()
txTitle.Text = dr.Cells(1).Value.ToString()
TXfield3.Text = dr.Cells(2).Value.ToString()
Clipboard.SetText(TXfield3.Text, TextDataFormat.UnicodeText)
txSectionCode.Text = dr.Cells(3).Value.ToString()
Catch ex As Exception
MsgBox(Err.ToString)
End Try
Case "directorycopy"
Try
txReplaceid.Text = dr.Cells(0).Value.ToString()
txTitle.Text = dr.Cells(1).Value.ToString()
txSectionCode.Text = dr.Cells(2).Value.ToString()
Catch ex As Exception
MsgBox(Err.ToString)
End Try
Case "multireplace"
Try
txReplaceid.Text = dr.Cells(0).Value.ToString()
txTitle.Text = dr.Cells(1).Value.ToString()
txSectionCode.Text = dr.Cells(2).Value.ToString()
Catch ex As Exception
MsgBox(Err.ToString)
End Try
Case "filepaths"
Try
txReplaceid.Text = dr.Cells(0).Value.ToString()
txSectionCode.Text = dr.Cells(1).Value.ToString()
Catch ex As Exception
MsgBox(Err.ToString)
End Try
Case "emailmoved"
Try
txReplaceid.Text = dr.Cells(0).Value.ToString()
txTitle.Text = dr.Cells(1).Value.ToString()
TXfield3.Text = dr.Cells(3).Value.ToString()
txSectionCode.Text = dr.Cells(2).Value.ToString()
Catch ex As Exception
MsgBox(Err.ToString)
End Try
Case "emailfiltered"
Try
txReplaceid.Text = dr.Cells(0).Value.ToString()
txSectionCode.Text = dr.Cells(1).Value.ToString()
Catch ex As Exception
MsgBox(Err.ToString)
End Try
End Select


End Sub

Imports Microsoft.VisualBasic

Module Module1
Sub Main()
Dim filePath As String = "example.txt"
Dim fileNumber As Integer = FreeFile()

Try
' Open file for append using legacy VB method
FileOpen(fileNumber, filePath, OpenMode.Append) 'FileOpen(7, TREE3 + FLD(0, 0) + "_header.php", OpenMode.Output)
PrintLine(fileNumber, "This is a new line of text.")
Catch ex As Exception
Console.WriteLine("Error: " & ex.Message)
Finally
FileClose(fileNumber)
End Try
End Sub
End Module

---

READ LINES FROM A TEXT FILE
Dim LineInput As System.IO.StreamReader = My.Computer.FileSystem.OpenTextFileReader(Tree + "tabletempsave.txt")
Do Until LineInput.EndOfStream
A = LineInput.ReadLine : A = Trim(A)
LOOP

lineInput.close
=========================================
Shared Sub Main()
' Get an available file number.
Dim file_num As Integer = FreeFile()

' Open the file.
Dim file_name As String = "test.txt"
FileOpen(file_num, file_name, OpenMode.Input, OpenAccess.Read, OpenShare.Shared)

' Read the file's lines.
Do While Not EOF(file_num)
' Read a line.
Dim txt As String = LineInput(file_num)
Console.WriteLine(txt)
Loop

' Close the file.
FileClose(file_num)
End Sub

' Copy the file to a new location without overwriting existing file.
My.Computer.FileSystem.CopyFile(
"C:UserFilesTestFilestestFile.txt",
"C:UserFilesTestFiles2testFile.txt")

' Copy the file to a new folder, overwriting existing file.
My.Computer.FileSystem.CopyFile(
"C:UserFilesTestFilestestFile.txt",
"C:UserFilesTestFiles2testFile.txt",
Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)

' Copy the file to a new folder and rename it.
My.Computer.FileSystem.CopyFile(
"C:UserFilesTestFilestestFile.txt",
"C:UserFilesTestFiles2NewFile.txt",
Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)

==================
overwrite defaults to false need to add ",true" inside the function

The My.Computer.FileSystem.MoveFile method can be used to move a file to another folder. If the target structure does not exist, it will be created.

To move a file
Use the MoveFile method to move the file, specifying the file name and location for both the source file and the target file. This example moves the file named test.txt from TestDir1 to TestDir2. Note that the target file name is specified even though it is the same as the source file name.

VB

Copy
My.Computer.FileSystem.MoveFile("C:TestDir1test.txt",
"C:TestDir2test.txt")
To move a file and rename it
Use the MoveFile method to move the file, specifying the source file name and location, the target location, and the new name at the target location. This example moves the file named test.txt from TestDir1 to TestDir2 and renames it nexttest.txt.

VB

Copy
My.Computer.FileSystem.MoveFile("C:TestDir1test.txt",
"C:TestDir2nexttest.txt",
FileIO.UIOption.AllDialogs,
FileIO.UICancelOption.ThrowException)

12/31/25 ai search
To programmatically
drag multiple files from your VB.NET application and drop them onto a third-party application, you must prepare a DataObject in a standard format that other Windows programs can understand. The standard format for files is DataFormats.FileDrop.
Initiating the Drag Operation
In your VB.NET application, for the control you want to initiate the drag from (e.g., a Button or a ListView item), use the DoDragDrop method within a mouse event (like MouseDown):
vb.net
WEBTOOLS USING File1 control

Private Sub File1_MouseDown(sender As Object, e As MouseEventArgs) Handles File1.MouseDown
' Create a StringCollection to hold the paths of the files you want to drag.
Dim filePaths As New System.Collections.Specialized.StringCollection

' Add the full, qualified paths of the files to the collection.
' This example uses a single file for brevity; you can add multiple paths here.
For Each Item As String In File1.SelectedItems
Try
filePaths.Add(Path.TREE2 + "" + Item.ToString)
Catch ex As Exception
Continue For
End Try
Next

'filePaths.Add(Path.Combine(Application.StartupPath, "TestData1.txt"))
'filePaths.Add(Path.Combine(Application.StartupPath, "TestData2.txt"))
' ... add all other file paths ...

' Create a DataObject and set the FileDrop list.
Dim data As New DataObject()
data.SetFileDropList(filePaths)

' Initiate the drag-and-drop operation, allowing "Copy" or "All" effects.
' Using DragDropEffects.Copy is standard for file drag-and-drop between apps.
File1.DoDragDrop(data, DragDropEffects.Copy)
End Sub
===========

Imports System.IO
Imports System.Windows.Forms

Public Class Form1
Private originalSelection As List(Of Integer)

Public Sub New()
InitializeComponent()

' Example setup
ListBox1.SelectionMode = SelectionMode.MultiExtended
ListBox1.AllowDrop = False ' We are dragging out, not in

' Add some example file paths
ListBox1.Items.Add("C:TempFile1.txt")
ListBox1.Items.Add("C:TempFile2.txt")
ListBox1.Items.Add("C:TempFile3.txt")
End Sub

' Capture selection before mouse down
Private Sub ListBox1_MouseDown(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseDown
originalSelection = New List(Of Integer)(ListBox1.SelectedIndices.Cast(Of Integer)())
End Sub

' Start drag without losing selection
Private Sub ListBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseMove
If e.Button = MouseButtons.Left AndAlso originalSelection IsNot Nothing AndAlso originalSelection.Count > 0 Then
' Restore original selection in case it changed
ListBox1.ClearSelected()
For Each idx In originalSelection
ListBox1.SelectedIndices.Add(idx)
Next

' Prepare file drop list
Dim files As New List(Of String)
For Each idx In originalSelection
Dim path As String = ListBox1.Items(idx).ToString()
If File.Exists(path) Then
files.Add(path)
End If
Next

If files.Count > 0 Then
Dim data As New DataObject(DataFormats.FileDrop, files.ToArray())
ListBox1.DoDragDrop(data, DragDropEffects.Copy)
End If
End If
End Sub
End Class


===========
Compatibility with Third-Party Applications
When dragging between different applications, you must use the standard Windows drag-and-drop formats (like DataFormats.FileDrop). Most third-party applications that support receiving files via drag-and-drop will be listening for this standard format in their own DragEnter and DragDrop event handlers.

The crucial step is creating a DataObject and using SetFileDropList() to ensure the data is provided in a standard, interoperable format.
The third-party application must have its AllowDrop property set to True for the target control to accept drops.
Some older or specific third-party applications might expect different data formats (like a MemoryStream or specific custom formats), but the file path array is the most common and widely supported method.

For more information on programmatically simulating a drop to a third-party application without a user's manual mouse action (which is complex and often requires Windows API calls), refer to resources on programmatic drag-and-drop on Microsoft Learn.

---

o programmatically drag a file from your VB.NET application and drop it onto a
third-party application, you need to initiate a standard OLE drag-and-drop operation from your VB.NET application.
The third-party application, if built to accept standard Windows file drops (like Windows Explorer or Notepad), will handle the drop automatically.
Step-by-Step Implementation
The key is to create a DataObject containing the file path(s) in the DataFormats.FileDrop format and then call the DoDragDrop method.
1. Set up the UI (e.g., a Button or a ListView)
You'll need a control in your application from which the drag operation will start. A Button or ListView item's MouseDown event is a good place to initiate this.
2. Implement the MouseDown event
In the MouseDown event of your source control, you will:

Specify the full path of the file(s) you want to drag.
Create a DataObject.
Set the data using DataFormats.FileDrop.
Call DoDragDrop to start the operation.

Here is a VB.NET code snippet (for Windows Forms) that initiates a drag operation with a single file:
vb.net

Imports System.IO
Imports System.Collections.Specialized ' Required for StringCollection

Private Sub YourControl_MouseDown(sender As Object, e As MouseEventArgs) Handles YourControl.MouseDown
' Only start the drag if the left mouse button is pressed
If e.Button = Windows.Forms.MouseButtons.Left Then
' Define the path(s) to the file(s) you want to drag.
' Use StringCollection for multiple files, or a String array for one or more.
Dim filePaths As New StringCollection()
' Example: Add a specific file from your application's startup path
Dim filePath As String = Path.Combine(Application.StartupPath, "YourFileName.txt")

' Ensure the file exists before attempting to drag it
If File.Exists(filePath) Then
filePaths.Add(filePath)

' Create a DataObject and set the file drop list
Dim data As New DataObject()
data.SetFileDropList(filePaths)

' Start the drag-and-drop operation, allowing Copy effects
Me.DoDragDrop(data, DragDropEffects.Copy)
Else
MessageBox.Show("File not found: " & filePath)
End If
End If
End Sub


Considerations for Third-Party Applications

Standard Formats: By using DataFormats.FileDrop and a StringCollection of paths, your application adheres to the standard Windows OLE drag-and-drop contract, ensuring compatibility with most third-party applications that support file drops (e.g., Windows Explorer, email clients, specific document management systems).
Permissions (UIPI): Be aware of User Interface Privilege Isolation (UIPI). If your VB.NET application is running with Administrator privileges, it will not be able to drag and drop files into a third-party application running as a standard (non-administrator) user (e.g., dragging from an elevated Visual Studio instance to a normal Windows Explorer window). If this is an issue, run both applications at the same privilege level.
Programmatic Drop (Advanced): If the target application does not support standard drag-and-drop or you need to automate the "drop" part of the process without user interaction (e.g., navigating to a specific folder within the target app first), this becomes significantly more complex, often requiring Windows API calls (SendMessage, WM_DROPFILES) or UI automation tools, which are beyond basic drag-and-drop functionality. The simple DoDragDrop method handles the initiation of the drag, but the target controls the drop

---

Re: Need help dragging File FROM ListView to Explorer (and other places)
Use the listview mousedown event. If the left button is held down and you have files selected, use

Code:
listviewname.dodragdrop(dataformats.filedrop, new string() {“file1.ext”, etc})
The dataformats and the string array of filenames are the important parts. Windows explorer will recognise your files. All of your previous code was what you’d use to enable dropping in your listview. You might want to keep your listview’s allowdrop property, and handle dragover, so you can see that something is being dragged above your listview. Don’t handle the dragdrop event if you don’t want files dropped in your listview

=================================

Private Sub ListView1_DragDrop1(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragDrop

If e.Data.GetDataPresent(DataFormats.FileDrop) Then

Dim MyFiles() As String
Dim i As Integer

' Assign the files to an array.
MyFiles = e.Data.GetData(DataFormats.FileDrop)
' Loop through the array and add the files to the list.
For i = 0 To MyFiles.Length - 1

Dim lvitem As New ListViewItem

lvitem.Text = System.IO.Path.GetFileNameWithoutExtension(MyFiles(i)) 'File Name "Notepad"
lvitem.SubItems.Add(My.Computer.FileSystem.GetFileInfo(MyFiles(i)).Extension) 'Just the extension, soon to be type
lvitem.SubItems.Add(((My.Computer.FileSystem.GetFileInfo(MyFiles(i)).Length) / 1000) & " KB") 'File Size e.g. "2,400KB"
lvitem.SubItems.Add(My.Computer.FileSystem.GetFileInfo(MyFiles(i)).DirectoryName) 'Path
ListView1.Items.Add(lvitem)

Next
End If

End Sub

3rd party

To programmatically simulate a drag-and-drop operation in VB.NET, where files are dropped into a third-party application, you can use the DoDragDrop method in combination with the Windows API for more advanced scenarios. Below is an example of how you can achieve this:

Example: Drag and Drop Files to a Third-Party Application

Imports System.Runtime.InteropServices
Imports System.Windows.Forms

Public Class DragDropHelper


Private Shared Function FindWindow(lpClassName As String, lpWindowName As String) As IntPtr
End Function


Private Shared Function SendMessage(hWnd As IntPtr, Msg As Integer, wParam As IntPtr, lParam As IntPtr) As IntPtr
End Function

Private Const WM_DROPFILES As Integer = &H233

Public Shared Sub DragAndDropFile(filePath As String, targetWindowTitle As String)
' Find the target window by its title
Dim targetWindowHandle As IntPtr = FindWindow(Nothing, targetWindowTitle)

If targetWindowHandle = IntPtr.Zero Then
MessageBox.Show("Target application window not found.")
Return
End If

' Create a DataObject containing the file path
Dim dataObject As New DataObject(DataFormats.FileDrop, New String() {filePath})

' Simulate the drag-and-drop operation
Clipboard.SetDataObject(dataObject, True)
SendMessage(targetWindowHandle, WM_DROPFILES, IntPtr.Zero, IntPtr.Zero)
End Sub

End Class

Another example using file explorer

Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown
Dim data As New DataObject()
Dim filePaths As New StringCollection

filePaths.Add(Path.Combine(Application.StartupPath, "TestData.txt"))
data.SetFileDropList(filePaths)
DoDragDrop(data, DragDropEffects.Copy)
End Sub

Remove unwanted items

always LOOP BACKWARDS
' Define the unwanted text
Dim unwantedText As String = "Unwanted Item Text"

' Loop backwards from the last item to the first (ListBox.Items is 0-based)
For i As Integer = ListBox1.Items.Count - 1 To 0 Step -1
' Check if the current item matches the unwanted text
If ListBox1.Items(i).ToString() = unwantedText Then
' If it matches, remove the item at the current index
ListBox1.Items.RemoveAt(i)
End If
Next
'PRINT CONTENT TO VIEW
DIM B AS string
For i As Integer = 0 to ListBox1.Items.Count - 1
B=B + ListBox1.Items(i).ToString()+VBCRLF

Next
table.text=B


'PRINT SELECTED CONTENT TO VIEW
If ListBox1.SelectedItems.Count > 0 Then
MessageBox.Show("Processing " & ListBox1.SelectedItems.Count.ToString() & " items.")

' Loop through each selected item in the collection
For Each selectedItem As Object In ListBox1.SelectedItems
' You can cast the item to a specific type if needed (e.g., String)
Dim itemText As String = selectedItem.ToString()

' Perform your processing logic here
Debug.WriteLine("Processing item: " & itemText)
' Example: add to another listbox
' ListBox2.Items.Add(itemText)
Next

' Optional: Clear the selection after processing
' ListBox1.ClearSelected()
Else
MessageBox.Show("No items selected.")
End If

---

webtools
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btDateSort.Click
Dim J As Integer, N As Integer = 0, N2 As Integer = 0
Dim DateFile As Array = Directory.GetFiles(Path.TREE2).OrderBy(Function(d) New FileInfo(d).CreationTime).ToArray
File1.Items.Clear()
N = DateFile(J).LastIndexOf("")
For J = 0 To DateFile.Length - 1
N2 = DateFile(J).length - N - 1
File1.Items.Add(DateFile(J).substring(N + 1, N2))
Next
End Sub

StrFilesArray=Directory.GetFiles(DirectoryPath).OrderBy(Function(d) New FileInfo(d).CreationTime).ToArray

Dim name As String
Dim list As List(of DateTime) = new List(of DateTime)
For Each file As String In System.IO.Directory.GetFiles(directoryPath)
name = System.IO.Path.GetFileNameWithoutExtension(file)
list.Add(Datetime.ParseExact(name, "dd-MM-yyyy", CultureInfo.InvariantCulture))
Next
list.Sort(New Comparison(Of Date)(Function(x As Date, y As Date) y.CompareTo(x)))
ComboBox1.DataSource = list

Key Points:
ByVal passes a copy of the variable.
Changes inside the function do not modify the original variable.
This is the default passing mechanism in VB.NET if you don’t specify ByRef.

When to use ByVal

When you want to protect the original variable from being changed.
When passing immutable data (e.g., numbers, strings) where modification is unnecessary.
If you want, I can also show you the ByRef version so you can compare how it changes the original variable

Function EmailCriteria(ByRef email_count As Int16)
Dim MV(200, 2) As String, L As Integer
Try
Dim sqL As String = "SELECT [move_to],[subject_filter],[archive] FROM [move_email] WHERE [archive]>0 ORDER BY [move_to],[subject_filter]"
ConnDB()
cmd = New OleDbCommand(sqL, conn)
dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Catch ex As Exception
LAerrorMessage.Text = "error BTbulkMove DB:" & ex.Message
End Try
Do While dr.Read
MV(L, 0) = dr(0) : MV(L, 1) = dr(1) : MV(L, 2) = dr(2)
L = L + 1
Loop
email_count = L - 1
Return MV
End Function

http://www.dreamincode.net/forums/topic/59527-make-a-program-to-run-in-the-background/

This tutorial deals with how to make a standard VB.NET application run
in the background, like a process. By background i mean that the
application will have no interface (form or console) and will run from a
Sub Main(), but will not terminate once all the code in Main has
executed. That means your program will run like a normal form
application, and will only exit when told to. First, create a standard
Windows Form application. Then, go to the solution explorer, and double
click on the item that says My Project.

[attachment=7480:attachment]

Once that is opened, you should see something like this

[attachment=7484:attachment]

There are a few very simple things you need to change there. First,
uncheck the box that says "Enable Application Framework". Then, go to
the box that says "Startup Object:" and change that to Sub Main. Then,
delete the form that was put in your application automatically. By now,
you should notice that there is no startup object in your application.
In fact, there is no Code in your application. So, you need to add a Sub Main in. Add a new module to your application (call it anything you want). Then, add this sub into your module:



Let me explain exactly what this is doing. When you changed the startup
object to Sub Main, you application will execute from a Main routine,
like a console application, so what is stopping it from showing a
console window? Notice the box that says "Application Type:". You will
see that that is set to "Windows Form Application". When you create a
console application, that box is set to "Console Application". When you
create any windows form application, there, of course, is no console
window. That is because the application has a type of "Windows Form
Application", which basically means your application will not show a
console. Of course, in Consle Applications, there are no forms. So what
happens when you application's type is Windows Form Application, and
there is no form in it? Your program will have no interface at all. But,
even though your application is called a Windows Form Application, it
will still exit once all the code in Sub Main has executed, like a
console application. To prevent that, you must have a line at the end of your Main routine that says Application.Run().
That line will prevent your application from closing right after Main
has finished. Now, it will run like a standard form application, just
with no form, and the only way you can close it is with an Application.Exit()
call. And it's as simple as that. You can treat the module your main
routine is in as if it was the code for your form. The only difference
is, there is no form, and you can't add controls to it in the designer
(because there is no interface there to design). So, for example, if you
wanted to add a timer to your application, you can't just drag-and-drop
it on the form, you have to get down and dirty and add it in manually,
with something like this



That will create a timer object, exactly as if it was created by the
designer. To add a tick event handler for it, go to the box near the
top-left of the code editor. Select the item that says "Timer1", or
whatever you called your timer. Then, select the box next to it and it
will show a list of events for that control. Click the one you want,
Tick in this case, and it will add an event handler for that event
directly into your code.

Private Sub laPath_DoubleClick(sender As Object, e As EventArgs) Handles laPath.DoubleClick
Dim filePath As String = laPath.Text 'Example file
Process.Start("explorer.exe", "/select," & filePath) : Application.DoEvents()
End Sub

[CHAR]
'// see indexof also
Dim myString As String = "ABCDE"
Dim myChar As Char
myChar = myString.Chars(3) '//myChar = "D"

[CONCAT]
Dim aString As String = "A"
Dim bString As String = "B"
Dim cString As String = "C"
Dim dString As String = "D"
Dim myString As String
' myString = "ABCD"
myString = String.Concat(aString, bString, cString, dString)


[INDEXOF]
'// see char also
Dim myString As String = "ABCDE"
Dim myInteger As Integer
myInteger = myString.IndexOf("D") ' myInteger = 3

[instr]
[left]

[LENGTH]
Dim MyString As String = "This is my string"
Dim stringLength As Integer
' Explicitly set the string to Nothing.
MyString = Nothing
' stringLength = 0
stringLength = Len(MyString)
' This line, however, causes an exception to be thrown.
stringLength = MyString.Length

[MID]
'//see substring. first charcter is position 1
Dim aString As String = "SomeString"
Dim bString As String
bString = Mid(aString, 3, 3)


[right]

[SPLIT]
'// returns an array
Dim shoppingList As String = "Milk,Eggs,Bread"
Dim shoppingItem(2) As String
shoppingItem = shoppingList.Split(","c)



[SUBSTRING]
'//first character is position zero. See mid()
Dim aString As String = "A String"
Dim bString As String
bString = aString.SubString(2,6) '//bString = "String"
or
Dim aString As String = "Left Center Right"
Dim subString As String
' subString = "Center"
subString = aString.SubString(5,6)



Visual Basic .NET methods are used as inherent functions of the language. They may be used without qualification in your code. The following example shows typical use of a Visual Basic .NET string-manipulation command:

In this example, the Mid function performs a direct operation on aString and assigns the value to bString.

You can also manipulate strings with the methods of the String class. There are two types of methods in String: shared methods and instance methods.

A shared method is a method that stems from the String class itself and does not require an instance of that class to work. These methods can be qualified with the name of the class (String) rather than with an instance of the String class. For example:

Dim aString As String
bString = String.Copy("A literal string")

In the preceding example, the String.Copy method is a static method, which acts upon an expression it is given and assigns the resulting value to bString.

NET runtime evaluates Nothing as an empty string; that is, "". The .NET Framework, however, does not, and will throw an exception whenever an attempt is made to perform a string operation on Nothing.
Comparing Strings

You can compare two strings by using the String.Compare method. This is a static, overloaded method of the base string class. In its most common form, this method can be used to directly compare two strings based on their alphabetical sort order. This is similar to the Visual Basic StrComp Function function. The following example illustrates how this method is used:

Dim myString As String = "Alphabetical"
Dim secondString As String = "Order"
Dim result As Integer
result = String.Compare (myString, secondString)

This method returns an integer that indicates the relationship between the two compared strings based on the sorting order. A positive value for the result indicates that the first string is greater than the second string. A negative result indicates the first string is smaller, and zero indicates equality between the strings. Any string, including an empty string, evaluates to greater than a null reference.

Additional overloads of the String.Compare method allow you to indicate whether or not to take case or culture formatting into account, and to compare substrings within the supplied strings. For more information on how to compare strings, see String.Compare Method. Related methods include String.CompareOrdinal Method and String.CompareTo Method.
Searching for Strings Within Your Strings

There are times when it is useful to have data about the characters in your string and the positions of those characters within your string. A string can be thought of as an array of characters (Char instances); you can retrieve a particular character by referencing the index of that character through the Chars property. For example:


You can use the String.IndexOf method to return the index where a particular character is encountered, as in the following example:

Dim myString As String = "ABCDE"
Dim myInteger As Integer
myInteger = myString.IndexOf("D") ' myInteger = 3

In the previous example, the IndexOf method of myString was used to return the index corresponding to the first instance of the character "C" in the string. IndexOf is an overloaded method, and the other overloads provide methods to search for any of a set of characters, or to search for a string within your string, among others. The Visual Basic .NET command InStr also allows you to perform similar functions. For more information of these methods, see String.IndexOf Method and InStr Function. You can also use the String.LastIndexOf Method to search for the last occurrence of a character in your string.
Creating New Strings from Old

When using strings, you may want to modify your strings and create new ones. You may want to do something as simple as convert the entire string to uppercase, or trim off trailing spaces; or you may want to do something more complex, such as extracting a substring from your string. The System.String class provides a wide range of options for modifying, manipulating, and making new strings out of your old ones.

To combine multiple strings, you can use the concatenation operators (& or +). You can also use the String.Concat Method to concatenate a series of strings or strings contained in objects. An example of the String.Concat method follows:


You can convert your strings to all uppercase or all lowercase strings using either the Visual Basic .NET functions UCase Function and LCase Function or the String.ToUpper Method and String.ToLower Method methods. An example is shown below:

Dim myString As String = "UpPeR oR LoWeR cAsE"
Dim newString As String
' newString = "UPPER OR LOWER CASE"
newString = UCase(myString)
' newString = "upper or lower case"
newString = LCase(myString)
' newString = "UPPER OR LOWER CASE"
newString = myString.ToUpper
' newString = "upper or lower case"
newString = myString.ToLower

The String.Format method and the Visual Basic .NET Format command can generate a new string by applying formatting to a given string. For information on these commands, see Format Function or String.Format Method.

You may at times need to remove trailing or leading spaces from your string. For instance, you might be parsing a string that had spaces inserted for the purposes of alignment. You can remove these spaces using the String.Trim Method function, or the Visual Basic .NET Trim function. An example is shown:

Dim spaceString As String = _
" This string will have the spaces removed "
Dim oneString As String
Dim twoString As String
' This removes all trailing and leading spaces.
oneString = spaceString.Trim
' This also removes all trailing and leading spaces.
twoString = Trim(spaceString)

If you only want to remove trailing spaces, you can use the String.TrimEnd Method or the RTrim function, and for leading spaces you can use the String.TrimStart Method or the LTrim function. For more details, see LTrim, RTrim, and Trim Functions functions.

The String.Trim functions and related functions also allow you to remove instances of a specific character from the ends of your string. The following example trims all leading and trailing instances of the "#" character:

Dim myString As String = "#####Remove those!######"
Dim oneString As String
OneString = myString.Trim("#")

You can also add leading or trailing characters by using the String.PadLeft Method or the String.PadRight Method.

If you have excess characters within the body of your string, you can excise them by using the String.Remove Method, or you can replace them with another character using the String.Replace Method. For example:

Dim aString As String = "This is My Str@o@o@ing"
Dim myString As String
Dim anotherString As String
' myString = "This is My String"
myString = aString.Remove(14, 5)
' anotherString = "This is Another String"
anotherString = myString.Replace("My", "Another")

You can use the String.Replace method to replace either individual characters or strings of characters. The Visual Basic .NET Mid Statement can also be used to replace an interior string with another string.

You can also use the String.Insert Method to insert a string within another string, as in the following example:

Dim aString As String = "This is My Stng"
Dim myString As String
' Results in a value of "This is My String".
myString = aString.Insert(13, "ri")

The first parameter that the String.Insert method takes is the index of the character the string is to be inserted after, and the second parameter is the string to be inserted.

You can concatenate an array of strings together with a separator string by using the String.Join Method. Here is an example:

Dim shoppingItem(2) As String
Dim shoppingList As String
shoppingItem(0) = "Milk"
shoppingItem(1) = "Eggs"
shoppingItem(2) = "Bread"
shoppingList = String.Join(",", shoppingItem)

The value of shoppingList after running this code is "Milk,Eggs,Bread". Note that if your array has empty members, the method still adds a separator string between all the empty instances in your array.

You can also create an array of strings from a single string by using the String.Split Method. The following example demonstrates the reverse of the previous example: it takes a shopping list and turns it into an array of shopping items. The separator in this case is an instance of the Char data type; thus it is appended with the literal type character c.

The Visual Basic .NET Mid Function can be used to generate substrings of your string. The following example shows this functions in use:

Dim aString As String = "Left Center Right"
Dim rString, lString, mString As String
' rString = "Right"
rString = Mid(aString, 13)
' lString = "Left"
lString = Mid(aString, 1, 4)
' mString = "Center"
mString = Mid(aString, 6,6)

Substrings of your string can also be generated using the String.Substring Method. This method takes two arguments: the character index where the substring is to start, and the length of the substring. The String.Substring method operates much like the Mid function. An example is shown below:


There is one very important difference between the String.SubString method and the Mid function. The Mid function takes an argument that indicates the character position for the substring to start, starting with position 1. The String.SubString method takes an index of the character in the string at which the substring is to start, starting with position 0. Thus, if you have a string "ABCDE", the individual characters are numbered 1,2,3,4,5 for use with the Mid function, but 0,1,2,3,4 for use with the System.String function.

[CHAR]
'// see indexof also
Dim myString As String = "ABCDE"
Dim myChar As Char
myChar = myString.Chars(3) '//myChar = "D"

[CONCAT]
Dim aString As String = "A"
Dim bString As String = "B"
Dim cString As String = "C"
Dim dString As String = "D"
Dim myString As String
' myString = "ABCD"
myString = String.Concat(aString, bString, cString, dString)


[INDEXOF]
'// see char also
Dim myString As String = "ABCDE"
Dim myInteger As Integer
myInteger = myString.IndexOf("D") ' myInteger = 3

[instr]

[left]

[LENGTH]
Dim MyString As String = "This is my string"
Dim stringLength As Integer
' Explicitly set the string to Nothing.
MyString = Nothing
' stringLength = 0
stringLength = Len(MyString)
' This line, however, causes an exception to be thrown.
stringLength = MyString.Length

[MID]
'//see substring. first charcter is position 1
Dim aString As String = "SomeString"
Dim bString As String
bString = Mid(aString, 3, 3)


[right]

[SPLIT]
'// returns an array
Dim shoppingList As String = "Milk,Eggs,Bread"
Dim shoppingItem(2) As String
shoppingItem = shoppingList.Split(","c)



[SUBSTRING]
'//first character is position zero. See mid()
Dim aString As String = "A String"
Dim bString As String
bString = aString.SubString(2,6) '//bString = "String"
or
Dim aString As String = "Left Center Right"
Dim subString As String
' subString = "Center"
subString = aString.SubString(5,6)



Visual Basic .NET methods are used as inherent functions of the language. They may be used without qualification in your code. The following example shows typical use of a Visual Basic .NET string-manipulation command:

In this example, the Mid function performs a direct operation on aString and assigns the value to bString.

You can also manipulate strings with the methods of the String class. There are two types of methods in String: shared methods and instance methods.

A shared method is a method that stems from the String class itself and does not require an instance of that class to work. These methods can be qualified with the name of the class (String) rather than with an instance of the String class. For example:

Dim aString As String
bString = String.Copy("A literal string")

In the preceding example, the String.Copy method is a static method, which acts upon an expression it is given and assigns the resulting value to bString.

NET runtime evaluates Nothing as an empty string; that is, "". The .NET Framework, however, does not, and will throw an exception whenever an attempt is made to perform a string operation on Nothing.
Comparing Strings

You can compare two strings by using the String.Compare method. This is a static, overloaded method of the base string class. In its most common form, this method can be used to directly compare two strings based on their alphabetical sort order. This is similar to the Visual Basic StrComp Function function. The following example illustrates how this method is used:

Dim myString As String = "Alphabetical"
Dim secondString As String = "Order"
Dim result As Integer
result = String.Compare (myString, secondString)

This method returns an integer that indicates the relationship between the two compared strings based on the sorting order. A positive value for the result indicates that the first string is greater than the second string. A negative result indicates the first string is smaller, and zero indicates equality between the strings. Any string, including an empty string, evaluates to greater than a null reference.

Additional overloads of the String.Compare method allow you to indicate whether or not to take case or culture formatting into account, and to compare substrings within the supplied strings. For more information on how to compare strings, see String.Compare Method. Related methods include String.CompareOrdinal Method and String.CompareTo Method.
Searching for Strings Within Your Strings

There are times when it is useful to have data about the characters in your string and the positions of those characters within your string. A string can be thought of as an array of characters (Char instances); you can retrieve a particular character by referencing the index of that character through the Chars property. For example:


You can use the String.IndexOf method to return the index where a particular character is encountered, as in the following example:

Dim myString As String = "ABCDE"
Dim myInteger As Integer
myInteger = myString.IndexOf("D") ' myInteger = 3

In the previous example, the IndexOf method of myString was used to return the index corresponding to the first instance of the character "C" in the string. IndexOf is an overloaded method, and the other overloads provide methods to search for any of a set of characters, or to search for a string within your string, among others. The Visual Basic .NET command InStr also allows you to perform similar functions. For more information of these methods, see String.IndexOf Method and InStr Function. You can also use the String.LastIndexOf Method to search for the last occurrence of a character in your string.
Creating New Strings from Old

When using strings, you may want to modify your strings and create new ones. You may want to do something as simple as convert the entire string to uppercase, or trim off trailing spaces; or you may want to do something more complex, such as extracting a substring from your string. The System.String class provides a wide range of options for modifying, manipulating, and making new strings out of your old ones.

To combine multiple strings, you can use the concatenation operators (& or +). You can also use the String.Concat Method to concatenate a series of strings or strings contained in objects. An example of the String.Concat method follows:


You can convert your strings to all uppercase or all lowercase strings using either the Visual Basic .NET functions UCase Function and LCase Function or the String.ToUpper Method and String.ToLower Method methods. An example is shown below:

Dim myString As String = "UpPeR oR LoWeR cAsE"
Dim newString As String
' newString = "UPPER OR LOWER CASE"
newString = UCase(myString)
' newString = "upper or lower case"
newString = LCase(myString)
' newString = "UPPER OR LOWER CASE"
newString = myString.ToUpper
' newString = "upper or lower case"
newString = myString.ToLower

The String.Format method and the Visual Basic .NET Format command can generate a new string by applying formatting to a given string. For information on these commands, see Format Function or String.Format Method.

You may at times need to remove trailing or leading spaces from your string. For instance, you might be parsing a string that had spaces inserted for the purposes of alignment. You can remove these spaces using the String.Trim Method function, or the Visual Basic .NET Trim function. An example is shown:

Dim spaceString As String = _
" This string will have the spaces removed "
Dim oneString As String
Dim twoString As String
' This removes all trailing and leading spaces.
oneString = spaceString.Trim
' This also removes all trailing and leading spaces.
twoString = Trim(spaceString)

If you only want to remove trailing spaces, you can use the String.TrimEnd Method or the RTrim function, and for leading spaces you can use the String.TrimStart Method or the LTrim function. For more details, see LTrim, RTrim, and Trim Functions functions.

The String.Trim functions and related functions also allow you to remove instances of a specific character from the ends of your string. The following example trims all leading and trailing instances of the "#" character:

Dim myString As String = "#####Remove those!######"
Dim oneString As String
OneString = myString.Trim("#")

You can also add leading or trailing characters by using the String.PadLeft Method or the String.PadRight Method.

If you have excess characters within the body of your string, you can excise them by using the String.Remove Method, or you can replace them with another character using the String.Replace Method. For example:

Dim aString As String = "This is My Str@o@o@ing"
Dim myString As String
Dim anotherString As String
' myString = "This is My String"
myString = aString.Remove(14, 5)
' anotherString = "This is Another String"
anotherString = myString.Replace("My", "Another")

You can use the String.Replace method to replace either individual characters or strings of characters. The Visual Basic .NET Mid Statement can also be used to replace an interior string with another string.

You can also use the String.Insert Method to insert a string within another string, as in the following example:

Dim aString As String = "This is My Stng"
Dim myString As String
' Results in a value of "This is My String".
myString = aString.Insert(13, "ri")

The first parameter that the String.Insert method takes is the index of the character the string is to be inserted after, and the second parameter is the string to be inserted.

You can concatenate an array of strings together with a separator string by using the String.Join Method. Here is an example:

Dim shoppingItem(2) As String
Dim shoppingList As String
shoppingItem(0) = "Milk"
shoppingItem(1) = "Eggs"
shoppingItem(2) = "Bread"
shoppingList = String.Join(",", shoppingItem)

The value of shoppingList after running this code is "Milk,Eggs,Bread". Note that if your array has empty members, the method still adds a separator string between all the empty instances in your array.

You can also create an array of strings from a single string by using the String.Split Method. The following example demonstrates the reverse of the previous example: it takes a shopping list and turns it into an array of shopping items. The separator in this case is an instance of the Char data type; thus it is appended with the literal type character c.

The Visual Basic .NET Mid Function can be used to generate substrings of your string. The following example shows this functions in use:

Dim aString As String = "Left Center Right"
Dim rString, lString, mString As String
' rString = "Right"
rString = Mid(aString, 13)
' lString = "Left"
lString = Mid(aString, 1, 4)
' mString = "Center"
mString = Mid(aString, 6,6)

Substrings of your string can also be generated using the String.Substring Method. This method takes two arguments: the character index where the substring is to start, and the length of the substring. The String.Substring method operates much like the Mid function. An example is shown below:


There is one very important difference between the String.SubString method and the Mid function. The Mid function takes an argument that indicates the character position for the substring to start, starting with position 1. The String.SubString method takes an index of the character in the string at which the substring is to start, starting with position 0. Thus, if you have a string "ABCDE", the individual characters are numbered 1,2,3,4,5 for use with the Mid function, but 0,1,2,3,4 for use with the System.String function.

Like windows 7 you can use the control panel to adjust the power management and hardware settings. Windows 8 has the PC Settings in the right bar under "SETTINGS" that also has options. My Samsung computer would dim every time it would boot up and I would take it to the place I bought and could not create it. After several hours of frustration I found an auto dim setting that I unchecked. Make sure you look here also

To increase virtual memory in Windows 8.1,
open System Properties, go to the Advanced tab, click Settings under Performance, then click Change under Virtual Memory. Uncheck Automatically manage paging file size for all drives, select your desired drive, choose Custom size, and input an Initial size (MB) and Maximum size (MB). A common recommendation is an initial size of 1.5 times your RAM and a maximum size of 3 times your RAM, converted to MB (1 GB = 1024 MB). Click Set, then OK, and restart your computer for the changes to take effect.
Step-by-step guide to increase virtual memory in Windows 8.1:

1. Access System Properties: Press the Windows key + X and select System, or right-click on "Computer" (or "This PC") and select Properties.
2. Navigate to Advanced System Settings: In the System window, click on Advanced system settings on the left-hand side.
3. Open Advanced -> Performance -> Settings: In the System Properties dialog box, go to the Advanced tab and click the Settings button under the Performance section.
Access Virtual Memory Settings: In the Performance Options window, go to the Advanced tab, then click the Change button under the Virtual memory section.
Disable Automatic Management: Uncheck the box that says "Automatically manage paging file size for all drives".
Set Custom Size: Select your desired drive (usually the C: drive) and choose the "Custom size" option.
Enter Initial and Maximum Sizes: In the Initial size (MB) and Maximum size (MB) fields, enter your desired values.
-- Recommendation: Set the initial size to 1.5 times your installed RAM and the maximum size to 3 times your installed RAM.
-- Conversion: Remember that 1 GB is equal to 1024 MB.

Apply and Confirm: Click Set, then OK to close the Performance Options window, and click OK again to close the System Properties window.
Restart Your Computer: A restart is required for the new virtual memory settings to take effect.

QUESTION:
I don't know if there's a way to have what I want but here goes. I had some custom icons on my desktop that I really liked. I changed to a different theme and it changed those icons too. Is there a way to apply the new theme but keep my custom icons? Just curious. - Elton D.

ANSWER:
Luckily, this is an easy fix. Right click an empty space on the desktop and select Personalize. Over in the left pane of the dialog box, click Change Desktop Icons. Now down at the bottom of that dialog box, uncheck the box that says "Allow themes to change desktop icons."