新手求助

Question

这里有会点 VB的？
Open "d:\```\```" For Random As #1 Len=Len(personl)怎么改成相对路径的使用？

Answer 1

strfilename=app.path & "\myfile.txt"
Open strfilename For Random As #1 Len=Len(personl) 

Answer 2

app.path 得到程序的路径.注: 在根目录下,有"\".非根目录下没有。

Answer 3

    Dim pathName As String
    pathName = App.Path & IIf(Len(App.Path) > 3, "\" & FileName, FileName)
这样得到是绝对路径。相对路径在OPEN中是不能用滴。