vb编程问题

If Right(App.Path,1)="\" '如在根目录 Open App.Path & "a.txt" for Input As #1 'a.txt存在 ... Else '不在根目录 Open App.Path & "\" & "a.txt" for Input As #1 'a.txt存在 ... End If