Click here to Skip to main content
15,892,537 members
Articles / Programming Languages / Visual Basic

Dealing with long file names in VB.NET

Rate me:
Please Sign up or sign in to vote.
0.00/5 (No votes)
23 May 2013CPOL 9.7K   192   1  
A class using Win32 Unicode calls to handle file names/paths longer than 254.
Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        IOWin32.UnicodeWin32.Functions.CopyFile_Win32(TextBox1.Text, TextBox2.Text)

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        IOWin32.UnicodeWin32.Functions.DeleteFile_Win32(TextBox3.Text)

    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        IOWin32.UnicodeWin32.Functions.CreateDir_Win32(TextBox4.Text)

    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        IOWin32.UnicodeWin32.Functions.CopyDir_Win32(TextBox6.Text, TextBox5.Text)

    End Sub

    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        IOWin32.UnicodeWin32.Functions.GetFilesIncludeSubDirs_Win32(TextBox7.Text)

    End Sub

    Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
        IOWin32.UnicodeWin32.Functions.GetDirsIncludeSubDirs_Win32(TextBox8.Text)
    End Sub

    Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
        IOWin32.UnicodeWin32.Functions.GetDirs_Win32(TextBox9.Text)

    End Sub

    Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
        IOWin32.UnicodeWin32.Functions.GetFiles_Win32(TextBox10.Text)
    End Sub

    Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
        IOWin32.UnicodeWin32.Functions.FileExists_Win32(TextBox11.Text)

    End Sub

    Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click
        IOWin32.UnicodeWin32.Functions.DirExists_Win32(TextBox12.Text)

    End Sub

    Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click
        IOWin32.UnicodeWin32.Functions.DeleteDir_Win32(TextBox13.Text)

    End Sub
End Class

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


Written By
United States United States
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.

Comments and Discussions