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

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

& 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

先查找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