Question

vb6.0中如何描述根目录文件位置？

比如我要读取某txt文档要先输入路径d:\123.txt
但现在文档和程序在U盘里，没有一个固定的盘符，我该如何指明该文档就在U盘根目录下？
谢谢！

Answer 1

先查找U盘盘符，如果是U盘，判断是否有123.txt这个文件：

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
  
Private Function USBDISK()
Dim i As Long
For i = Asc("A") To Asc("Z")
   If GetDriveType(Chr(i) + ":") = 2 Then
   Text1 = Chr(i) & ":"
   On Error GoTo erdisk
       If Dir(Chr(i) & ":\123.txt") <> "" Then
           '找到了，执行你想要的代码
       End If
erdisk:
   End If
Next i
End Function

Answer 2

& App.Path & "\123.txt

追问

If c = s Then
Kill "& app.path & " \ mima.inf
Open "& app.path & " \ mima.inf For Output As #1
Print #1, ""
Close #1

错误提示在KILL一行，如何解决？谢谢！

追答

Kill App.path & " \ mima.inf "

Open App.Path & "\6.txt" For Random As #1