怎么检测 特定位置是否有 特定的文件？
没有的话就创建它。 有的话就不干什么

比如我想在C盘下 检测1.TXT，有的话就 不用干什么，没有的话 就在C盘下创建 1.TXT

Open "C:\1.TXT" For apend As #1 '文件存在即打开，不存在就创建文件
    Print #1, ""
Close #1

可以用dir命令来检查文件或者文件夹是否存在

msdn上的例子
Dir 函数示例
本示例使用 Dir 函数来检查某些文件或目录是否存在。在 Macintosh 计算机上，默认驱动器名称是 “HD” ，并且路径部分由冒号取代反斜线隔开。而且 Microsoft Windows 的通配符在 Mac 中可以作为有效字符出现在文件名中。也可以使用 MacID 函数来指定文件组。

Dim MyFile, MyPath, MyName

' 返回“WIN.INI” （如果该文件存在）。
MyFile = Dir("C:\WINDOWS\WIN.ini") 

' 返回带指定扩展名的文件名。如果超过一个 *.ini 文件存在，
' 函数将返回按条件第一个找到的文件名。
MyFile = Dir("C:\WINDOWS\*.ini")

' 若第二次调用 Dir 函数，但不带任何参数，则函数将返回同一目录下的下一个 *.ini 文件。
MyFile = Dir

' 返回找到的第一个隐式 *.TXT 文件。
MyFile = Dir("*.TXT", vbHidden)

' 显示 C:\ 目录下的名称。
MyPath = "c:\"  ' 指定路径。
MyName = Dir(MyPath, vbDirectory)  ' 找寻第一项。
Do While MyName <> ""  ' 开始循环。
  ' 跳过当前的目录及上层目录。
  If MyName <> "." And MyName <> ".." Then
      ' 使用位比较来确定 MyName 代表一目录。
      If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
        Debug.Print MyName  ' 如果它是一个目录，将其名称显示出来。
      End If
  End If
  MyName = Dir  ' 查找下一个目录。
Loop

dim a as string
a = dir("C:\1.txt")
  if a ="" then
  msgbox"C盘没有1.txt",,"提示！"
    else
    msgbox"存在",,"存在"
      end if