Private Sub PathDemo2()
 Dim mydocs, filename, newfilename As String
 Dim fullname, pathroot, sdx As String
 mydocs = System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
 'create a known file name to demo io.path
 filename = mydocs + "\" + "TheLonelyProgrammer.txt"
 Dim sw As New StreamWriter(filename)
 sw.WriteLine("This is a line of text")
 sw.Close()

 sdx = String.Format("Present file name {0}", filename)
 Console.WriteLine(sdx)
 Console.WriteLine()

 newfilename = IO.Path.ChangeExtension(filename, "log")
 sdx = String.Format("New filename = {0} ", newfilename)
 Console.WriteLine(sdx)
 Console.WriteLine()

 fullname = IO.Path.GetFullPath(newfilename)
 sdx = String.Format("Results of GetFullPath= {0} ", fullname)
 Console.WriteLine(sdx)
 Console.WriteLine()

 pathroot = IO.Path.GetPathRoot(newfilename)
 sdx = String.Format("Results of GetPathRoot= {0} ", pathroot)
 Console.WriteLine(sdx)

End Sub
   

Output:

 Present file name C:\Users\John\Documents\TheLonelyProgrammer.txt

 New filename = C:\Users\John\Documents\TheLonelyProgrammer.log 

 Results of GetFullPath= C:\Users\John\Documents\TheLonelyProgrammer.log 

 Results of GetPathRoot= C:\ 

Private Sub PathDemo3()
  Dim randomfile, tempfile, temppath, sdx As String

  randomfile = IO.Path.GetRandomFileName
  sdx = String.Format("Random File Name = {0}", randomfile)
  Console.WriteLine(sdx)
  Console.WriteLine()

  tempfile = IO.Path.GetTempFileName
  sdx = String.Format("Temp File Name {0};", tempfile)
  Console.WriteLine(sdx)
  Console.WriteLine()

  temppath = IO.Path.GetTempPath
  sdx = String.Format("Temp Path {0};", TempPath)
  Console.WriteLine(sdx)
End Sub

Output:

Random File Name = 5kto0uqx.kov

Temp File Name C:\Users\John\AppData\Local\Temp\tmpEC20.tmp;

Temp Path C:\Users\John\AppData\Local\Temp\;