Imports System.IO 
Public Shared Sub main()
       'Dim path As String = "c:\Intel\MyTest.pdf"
        Dim path As String = System.IO.Path.GetTempPath & "\MyTest.pdf"
 
 
        If File.Exists(path) = False Then
 
            ' Create a file to write to.
             Dim Fstr As FileStream = File.Create(path)
            Fstr.Close()
 
        End If
    End Sub