VB.Net/File Directory/Path

Материал из VB Эксперт
Перейти к: навигация, поиск

Get Invalid Path Chars

<source lang="vbnet"> Imports System Imports System.IO Imports System.Windows.Forms Public Class MainClass

  Shared Sub Main()
       For Each ch As Char In Path.GetInvalidPathChars()
           Console.Write(ch & " ")
       Next ch
  End Sub 

End Class


      </source>


Get Path or File information: extenstion, full path, path root

<source lang="vbnet"> Imports System.IO Module Module1

   Sub Main()
       Dim P As String = "\"
       Try
           Console.WriteLine("Starting path: {0}", P)
           Console.WriteLine("Directory name: {0}", Path.GetDirectoryName(P))
           Console.WriteLine("Extension: {0}", Path.GetExtension(P))
           Console.WriteLine("Filename: {0}", Path.GetFileName(P))
           Console.WriteLine("Filename without extension: {0}", Path.GetFileNameWithoutExtension(P))
           Console.WriteLine("Full path: {0}", Path.GetFullPath(P))
           Console.WriteLine("Root: {0}", Path.GetPathRoot(P))
       Catch E As Exception
           Console.WriteLine("Error: {0}", E.Message)
       End Try
       Console.WriteLine()
   End Sub

End Module


      </source>


Path Alternate Directory Separator

<source lang="vbnet"> Imports System.IO Module Module1

   Sub Main()
       Console.WriteLine("Alternate Directory Separator {0}", Path.AltDirectorySeparatorChar)
   End Sub

End Module


      </source>


Path Separator and Volume Separator Char

<source lang="vbnet"> Imports System.IO Module Module1

   Sub Main()
       Console.WriteLine("Path Separator {0}", Path.PathSeparator)
       Console.WriteLine("Volume Separator {0}", Path.VolumeSeparatorChar)
   End Sub

End Module


      </source>