Visual Basic

using System;
using System.Collections.Generic;
using System.Text;
using Microsoft.Win32.SafeHandles;
using System.Runtime.InteropServices;
using System.IO;


namespace System.IO
{
    class Win32File
    {
        
        // Error
        const int ERROR_ALREADY_EXISTS = 183;
        // seek location
        const uint FILE_BEGIN = 0x0;
        const uint FILE_CURRENT = 0x1;
        const uint FILE_END = 0x2;


        // access
        const uint GENERIC_READ = 0x80000000;
        const uint GENERIC_WRITE = 0x40000000;
        const uint GENERIC_EXECUTE = 0x20000000;
        const uint GENERIC_ALL = 0x10000000;

        const uint FILE_APPEND_DATA = 0x00000004;

        // attribute
        const uint FILE_ATTRIBUTE_NORMAL = 0x80;

        // share
        const uint FILE_SHARE_DELETE = 0x00000004;
        const uint FILE_SHARE_READ = 0x00000001;
        const uint FILE_SHARE_WRITE = 0x00000002;

        //mode
        const uint CREATE_NEW = 1;
        const uint CREATE_ALWAYS = 2;
        const uint OPEN_EXISTING = 3;
        const uint OPEN_ALWAYS = 4;
        const uint TRUNCATE_EXISTING = 5;


        [DllImport("kernel32.dll", SetLastError = true, CharSet = CharSet.Unicode)]
        static extern SafeFileHandle CreateFileW(string lpFileName, uint dwDesiredAccess,
                                              uint dwShareMode, IntPtr lpSecurityAttributes, uint dwCreationDisposition,
                                              uint dwFlagsAndAttributes, IntPtr hTemplateFile);

        [DllImport("kernel32.dll", SetLastError = true, CharSet = CharSet.Unicode)]
        static extern uint SetFilePointer(SafeFileHandle hFile, long lDistanceToMove, IntPtr lpDistanceToMoveHigh, uint dwMoveMethod);

        // uint GetMode( FileMode mode )
        // Converts the filemode constant to win32 constant
        #region GetMode
        private static uint GetMode(FileMode mode)
        {
            uint umode = 0;
            switch (mode)
            {
                case FileMode.CreateNew:
                    umode = CREATE_NEW;
                    break;
                case FileMode.Create:
                    umode = CREATE_ALWAYS;
                    break;
                case FileMode.Append:
                    umode = OPEN_ALWAYS;
                    break;
                case FileMode.Open:
                    umode = OPEN_EXISTING;
                    break;
                case FileMode.OpenOrCreate:
                    umode = OPEN_ALWAYS;
                    break;
                case FileMode.Truncate:
                    umode = TRUNCATE_EXISTING;
                    break;
            }
            return umode;
        }
        #endregion


        // uint GetAccess(FileAccess access)
        // Converts the FileAccess constant to win32 constant
        #region GetAccess
        private static uint GetAccess(FileAccess access)
        {
            uint uaccess = 0;
            switch (access)
            {
                case FileAccess.Read:
                    uaccess = GENERIC_READ;
                    break;
                case FileAccess.ReadWrite:
                    uaccess = GENERIC_READ | GENERIC_WRITE;
                    break;
                case FileAccess.Write:
                    uaccess = GENERIC_WRITE;
                    break;
            }
            return uaccess;
        }
        #endregion

        // uint GetShare(FileShare share)
        // Converts the FileShare constant to win32 constant
        #region GetShare
        private static uint GetShare(FileShare share)
        {
            uint ushare = 0;
            switch (share)
            {
                case FileShare.Read:
                    ushare = FILE_SHARE_READ;
                    break;
                case FileShare.ReadWrite:
                    ushare = FILE_SHARE_READ | FILE_SHARE_WRITE;
                    break;
                case FileShare.Write:
                    ushare = FILE_SHARE_WRITE;
                    break;
                case FileShare.Delete:
                    ushare = FILE_SHARE_DELETE;
                    break;
                case FileShare.None:
                    ushare = 0;
                    break;

            }
            return ushare;
        }
        #endregion


        public static FileStream Open(string filepath, FileMode mode)
        {
            //opened in the specified mode and path, with read/write access and not shared
            FileStream fs = null;
            uint umode = GetMode(mode);
            uint uaccess = GENERIC_READ | GENERIC_WRITE;
            uint ushare = 0;    //not shared
            if (mode == FileMode.Append)
                uaccess = FILE_APPEND_DATA;
            // If file path is disk file path then prepend it with \\?\
            // if file path is UNC prepend it with \\?\UNC\ and remove \\ prefix in unc path.
            if (filepath.StartsWith(@"\\"))
            {
                filepath = @"\\?\UNC\" + filepath.Substring(2, filepath.Length - 2);
            }
            else
                filepath = @"\\?\" + filepath;
            SafeFileHandle sh = CreateFileW(filepath, uaccess, ushare, IntPtr.Zero, umode, FILE_ATTRIBUTE_NORMAL, IntPtr.Zero);
            int iError = Marshal.GetLastWin32Error();
            if ((iError > 0 && !(mode == FileMode.Append && iError == ERROR_ALREADY_EXISTS)) || sh.IsInvalid)
            {
                throw new Exception("Error opening file Win32 Error:" + iError);
            }
            else
            {
                fs = new FileStream(sh, FileAccess.ReadWrite);
            }

            // if opened in append mode
            if (mode == FileMode.Append)
            {
                if (!sh.IsInvalid)
                {
                    SetFilePointer(sh, 0, IntPtr.Zero, FILE_END);
                }
            }

            return fs;
        }

        public static FileStream Open(string filepath, FileMode mode, FileAccess access)
        {
            //opened in the specified mode and access and not shared
            FileStream fs = null;
            uint umode = GetMode(mode);
            uint uaccess = GetAccess(access);
            uint ushare = 0;//not shared
            if (mode == FileMode.Append)
                uaccess = FILE_APPEND_DATA;
            // If file path is disk file path then prepend it with \\?\
            // if file path is UNC prepend it with \\?\UNC\ and remove \\ prefix in unc path.
            if (filepath.StartsWith(@"\\"))
            {
                filepath = @"\\?\UNC\" + filepath.Substring(2, filepath.Length - 2);
            }
            else
                filepath = @"\\?\" + filepath;
            SafeFileHandle sh = CreateFileW(filepath, uaccess, ushare, IntPtr.Zero, umode, FILE_ATTRIBUTE_NORMAL, IntPtr.Zero);
            int iError = Marshal.GetLastWin32Error();
            if ((iError > 0 && !(mode == FileMode.Append && iError != ERROR_ALREADY_EXISTS)) || sh.IsInvalid)
            {
                throw new Exception("Error opening file Win32 Error:" + iError);
            }
            else
            {
                fs = new FileStream(sh, access);
            }
            // if opened in append mode
            if (mode == FileMode.Append)
            {
                if (!sh.IsInvalid)
                {
                    SetFilePointer(sh, 0, IntPtr.Zero, FILE_END);
                }
            }
            return fs;

        }

        public static FileStream Open(string filepath, FileMode mode, FileAccess access, FileShare share)
        {
            //opened in the specified mode , access and  share
            FileStream fs = null;
            uint umode = GetMode(mode);
            uint uaccess = GetAccess(access);
            uint ushare = GetShare(share);
            if (mode == FileMode.Append)
                uaccess = FILE_APPEND_DATA;
            // If file path is disk file path then prepend it with \\?\
            // if file path is UNC prepend it with \\?\UNC\ and remove \\ prefix in unc path.
            if (filepath.StartsWith(@"\\"))
            {
                filepath = @"\\?\UNC\" + filepath.Substring(2, filepath.Length - 2);
            }
            else
                filepath = @"\\?\" + filepath;
            SafeFileHandle sh = CreateFileW(filepath, uaccess, ushare, IntPtr.Zero, umode, FILE_ATTRIBUTE_NORMAL, IntPtr.Zero);
            int iError = Marshal.GetLastWin32Error();
            if ((iError > 0 && !(mode == FileMode.Append && iError != ERROR_ALREADY_EXISTS)) || sh.IsInvalid)
            {
                throw new Exception("Error opening file Win32 Error:" + iError);
            }
            else
            {
                fs = new FileStream(sh, access);
            }
            // if opened in append mode
            if (mode == FileMode.Append)
            {
                if (!sh.IsInvalid)
                {
                    SetFilePointer(sh, 0, IntPtr.Zero, FILE_END);
                }
            }
            return fs;
        }

        public static FileStream OpenRead(string filepath)
        {

            // Open readonly file mode open(String, FileMode.Open, FileAccess.Read, FileShare.Read)
            return Open(filepath, FileMode.Open, FileAccess.Read, FileShare.Read);
        }

        public static FileStream OpenWrite(string filepath)
        {
            //open writable open(String, FileMode.OpenOrCreate, FileAccess.Write, FileShare.None).
            return Open(filepath, FileMode.OpenOrCreate, FileAccess.Write, FileShare.None);
        }


    }
}

FileStream fs1= Win32File.Open( "Long file name of greater " + 
                "than 260 char length", FileMode.Open);
StreamWriter sw = new StreamWriter(fs1);
sw.WriteLine("Hello world");
sw.Close();
sw.Dispose();

:cool:Imports System.Text
Imports Microsoft.Win32.SafeHandles
Imports System.Runtime.InteropServices
Imports System.IO

Namespace System.IO
  Class Win32File

    ' Error
    Const ERROR_ALREADY_EXISTS As Integer = 183
    ' seek location
    Const FILE_BEGIN As UInteger = &H0
    Const FILE_CURRENT As UInteger = &H1
    Const FILE_END As UInteger = &H2


    ' access
    Const GENERIC_READ As UInteger = &H80000000UI
    Const GENERIC_WRITE As UInteger = &H40000000
    Const GENERIC_EXECUTE As UInteger = &H20000000
    Const GENERIC_ALL As UInteger = &H10000000

    Const FILE_APPEND_DATA As UInteger = &H4

    ' attribute
    Const FILE_ATTRIBUTE_NORMAL As UInteger = &H80

    ' share
    Const FILE_SHARE_DELETE As UInteger = &H4
    Const FILE_SHARE_READ As UInteger = &H1
    Const FILE_SHARE_WRITE As UInteger = &H2

    'mode
    Const CREATE_NEW As UInteger = 1
    Const CREATE_ALWAYS As UInteger = 2
    Const OPEN_EXISTING As UInteger = 3
    Const OPEN_ALWAYS As UInteger = 4
    Const TRUNCATE_EXISTING As UInteger = 5


    <DllImport("kernel32.dll", SetLastError:=True, CharSet:=CharSet.Unicode)> _
    Private Shared Function CreateFileW(ByVal lpFileName As String, ByVal dwDesiredAccess As UInteger, ByVal dwShareMode As UInteger, ByVal lpSecurityAttributes As IntPtr, ByVal dwCreationDisposition As UInteger, ByVal dwFlagsAndAttributes As UInteger, _
      ByVal hTemplateFile As IntPtr) As SafeFileHandle
    End Function

    <DllImport("kernel32.dll", SetLastError:=True, CharSet:=CharSet.Unicode)> _
    Private Shared Function SetFilePointer(ByVal hFile As SafeFileHandle, ByVal lDistanceToMove As Long, ByVal lpDistanceToMoveHigh As IntPtr, ByVal dwMoveMethod As UInteger) As UInteger
    End Function

    ' uint GetMode( FileMode mode )
    ' Converts the filemode constant to win32 constant
#Region "GetMode"
    Private Shared Function GetMode(ByVal mode As FileMode) As UInteger
      Dim umode As UInteger = 0
      Select Case mode
        Case FileMode.CreateNew
          umode = CREATE_NEW
          Exit Select
        Case FileMode.Create
          umode = CREATE_ALWAYS
          Exit Select
        Case FileMode.Append
          umode = OPEN_ALWAYS
          Exit Select
        Case FileMode.Open
          umode = OPEN_EXISTING
          Exit Select
        Case FileMode.OpenOrCreate
          umode = OPEN_ALWAYS
          Exit Select
        Case FileMode.Truncate
          umode = TRUNCATE_EXISTING
          Exit Select
      End Select
      Return umode
    End Function
#End Region


    ' uint GetAccess(FileAccess access)
    ' Converts the FileAccess constant to win32 constant
#Region "GetAccess"
    Private Shared Function GetAccess(ByVal access As FileAccess) As UInteger
      Dim uaccess As UInteger = 0
      Select Case access
        Case FileAccess.Read
          uaccess = GENERIC_READ
          Exit Select
        Case FileAccess.ReadWrite
          uaccess = GENERIC_READ Or GENERIC_WRITE
          Exit Select
        Case FileAccess.Write
          uaccess = GENERIC_WRITE
          Exit Select
      End Select
      Return uaccess
    End Function
#End Region

    ' uint GetShare(FileShare share)
    ' Converts the FileShare constant to win32 constant
#Region "GetShare"
    Private Shared Function GetShare(ByVal share As FileShare) As UInteger
      Dim ushare As UInteger = 0
      Select Case share
        Case FileShare.Read
          ushare = FILE_SHARE_READ
          Exit Select
        Case FileShare.ReadWrite
          ushare = FILE_SHARE_READ Or FILE_SHARE_WRITE
          Exit Select
        Case FileShare.Write
          ushare = FILE_SHARE_WRITE
          Exit Select
        Case FileShare.Delete
          ushare = FILE_SHARE_DELETE
          Exit Select
        Case FileShare.None
          ushare = 0
          Exit Select

      End Select
      Return ushare
    End Function
#End Region


    Public Shared Function Open(ByVal filepath As String, ByVal mode As FileMode) As FileStream
      'opened in the specified mode and path, with read/write access and not shared
      Dim fs As FileStream = Nothing
      Dim umode As UInteger = GetMode(mode)
      Dim uaccess As UInteger = GENERIC_READ Or GENERIC_WRITE
      Dim ushare As UInteger = 0
      'not shared
      If mode = FileMode.Append Then
        uaccess = FILE_APPEND_DATA
      End If
      ' If file path is disk file path then prepend it with \\?\
      ' if file path is UNC prepend it with \\?\UNC\ and remove \\ prefix in unc path.
      If filepath.StartsWith("\\") Then
        filepath = "\\?\UNC\" & filepath.Substring(2, filepath.Length - 2)
      Else
        filepath = "\\?\" & filepath
      End If
      Dim sh As SafeFileHandle = CreateFileW(filepath, uaccess, ushare, IntPtr.Zero, umode, FILE_ATTRIBUTE_NORMAL, _
        IntPtr.Zero)
      Dim iError As Integer = Marshal.GetLastWin32Error()
      If (iError > 0 AndAlso Not (mode = FileMode.Append AndAlso iError = ERROR_ALREADY_EXISTS)) OrElse sh.IsInvalid Then
        Throw New Exception("Error opening file Win32 Error:" & iError)
      Else
        fs = New FileStream(sh, FileAccess.ReadWrite)
      End If

      ' if opened in append mode
      If mode = FileMode.Append Then
        If Not sh.IsInvalid Then
          SetFilePointer(sh, 0, IntPtr.Zero, FILE_END)
        End If
      End If

      Return fs
    End Function

    Public Shared Function Open(ByVal filepath As String, ByVal mode As FileMode, ByVal access As FileAccess) As FileStream
      'opened in the specified mode and access and not shared
      Dim fs As FileStream = Nothing
      Dim umode As UInteger = GetMode(mode)
      Dim uaccess As UInteger = GetAccess(access)
      Dim ushare As UInteger = 0
      'not shared
      If mode = FileMode.Append Then
        uaccess = FILE_APPEND_DATA
      End If
      ' If file path is disk file path then prepend it with \\?\
      ' if file path is UNC prepend it with \\?\UNC\ and remove \\ prefix in unc path.
      If filepath.StartsWith("\\") Then
        filepath = "\\?\UNC\" & filepath.Substring(2, filepath.Length - 2)
      Else
        filepath = "\\?\" & filepath
      End If
      Dim sh As SafeFileHandle = CreateFileW(filepath, uaccess, ushare, IntPtr.Zero, umode, FILE_ATTRIBUTE_NORMAL, _
        IntPtr.Zero)
      Dim iError As Integer = Marshal.GetLastWin32Error()
      If (iError > 0 AndAlso Not (mode = FileMode.Append AndAlso iError <> ERROR_ALREADY_EXISTS)) OrElse sh.IsInvalid Then
        Throw New Exception("Error opening file Win32 Error:" & iError)
      Else
        fs = New FileStream(sh, access)
      End If
      ' if opened in append mode
      If mode = FileMode.Append Then
        If Not sh.IsInvalid Then
          SetFilePointer(sh, 0, IntPtr.Zero, FILE_END)
        End If
      End If
      Return fs

    End Function

    Public Shared Function Open(ByVal filepath As String, ByVal mode As FileMode, ByVal access As FileAccess, ByVal share As FileShare) As FileStream
      'opened in the specified mode , access and  share
      Dim fs As FileStream = Nothing
      Dim umode As UInteger = GetMode(mode)
      Dim uaccess As UInteger = GetAccess(access)
      Dim ushare As UInteger = GetShare(share)
      If mode = FileMode.Append Then
        uaccess = FILE_APPEND_DATA
      End If
      ' If file path is disk file path then prepend it with \\?\
      ' if file path is UNC prepend it with \\?\UNC\ and remove \\ prefix in unc path.
      If filepath.StartsWith("\\") Then
        filepath = "\\?\UNC\" & filepath.Substring(2, filepath.Length - 2)
      Else
        filepath = "\\?\" & filepath
      End If
      Dim sh As SafeFileHandle = CreateFileW(filepath, uaccess, ushare, IntPtr.Zero, umode, FILE_ATTRIBUTE_NORMAL, _
        IntPtr.Zero)
      Dim iError As Integer = Marshal.GetLastWin32Error()
      If (iError > 0 AndAlso Not (mode = FileMode.Append AndAlso iError <> ERROR_ALREADY_EXISTS)) OrElse sh.IsInvalid Then
        Throw New Exception("Error opening file Win32 Error:" & iError)
      Else
        fs = New FileStream(sh, access)
      End If
      ' if opened in append mode
      If mode = FileMode.Append Then
        If Not sh.IsInvalid Then
          SetFilePointer(sh, 0, IntPtr.Zero, FILE_END)
        End If
      End If
      Return fs
    End Function

    Public Shared Function OpenRead(ByVal filepath As String) As FileStream

      ' Open readonly file mode open(String, FileMode.Open, FileAccess.Read, FileShare.Read)
      Return Open(filepath, FileMode.Open, FileAccess.Read, FileShare.Read)
    End Function

    Public Shared Function OpenWrite(ByVal filepath As String) As FileStream
      'open writable open(String, FileMode.OpenOrCreate, FileAccess.Write, FileShare.None).
      Return Open(filepath, FileMode.OpenOrCreate, FileAccess.Write, FileShare.None)
    End Function


  End Class
End Namespace

Public Class Form1

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'Get a list of drives
    Dim drives As System.Collections.ObjectModel.ReadOnlyCollection(Of IO.DriveInfo) = My.Computer.FileSystem.Drives
    Dim rootDir As String = String.Empty

    'Now loop thru each drive and populate the treeview:
    For i As Integer = 0 To drives.Count - 1
      rootDir = drives(i).Name

      'Add this drive as a root node:
      TreeView1.Nodes.Add(rootDir)

      'Populate this root node:
      PopulateTreeView(rootDir, TreeView1.Nodes(i))
    Next

  End Sub

  Private Sub PopulateTreeView(ByVal dir As String, ByVal parentNode As TreeNode)
    Dim folder As String = String.Empty

    Try
      Dim folders() As String = IO.Directory.GetDirectories(dir)

      If folders.Length <> 0 Then
        Dim childNode As TreeNode = Nothing

        For Each folder In folders
          childNode = New TreeNode(folder)
          parentNode.Nodes.Add(childNode)
          PopulateTreeView(folder, childNode)
        Next
      End If

    Catch ex As UnauthorizedAccessException
      parentNode.Nodes.Add(folder & ": Access Denied")

    End Try

  End Sub

End Class

Private Sub SetLabelText(ByVal s As String)

    If Me.lbTime.InvokeRequired Then
        Me.lbTime.Invoke(New Action(Of String)(AddressOf SetLabelText), s)
        'Me.lbTime.Invoke(New Action(Of String)(AddressOf SetLabelText), s)
    Else
        Me.lbTime.Text = s
    End If
End Sub

Private Sub SettxtChannelData(ByVal arrIndex As Integer, ByVal s As String)
    If Me.txtChannelData(arrIndex).InvokeRequired Then
        Me.txtChannelData(arrIndex).Invoke(New Action(Of String)(AddressOf SettxtChannelData), s)
    Else
        Me.txtChannelData(arrIndex).Text = s
    End If
End Sub

"C:\Program Files\MySQL\MySQL Server 5.5\bin\mysqldump.exe" --user=root --password=mypassword --host=localhost --port=3306 --database sakila > "C:\backup\sakilabackup.sql"""

txtProgram.Text = "C:\Program Files\MySQL\MySQL Server 5.5\bin\mysqldump.exe" ,

txtArguments.Text= "--user=root --password=mypassword --host=localhost --port=3306 --database sakila >"C:\backup\sakilabackup.sql"""

System.Diagnostics.Process.Start(txtProgram.Text, txtArguments.Text)