Linux访问文件路径可以配置吗？

如果你平时有许多同学和朋友的信息，试试在计算机上编写一个我这样的通讯录。非常方便的哟。   先新建一个工程，在“工具箱->右键->部件”添加“microsoft windows common control 6.0”，然后在窗体上添加五个标签，“标题”分别为 “姓名、电话、oicq、e-mail、地址”；添加一个文本框（text1）, 然后[复制/粘贴4次]使其成为控件数组；添加一个listview控件(listview1),在其属性框中，添加五个“列首”，“文本”值分别为“姓名、电话、oicq、e-mail、地址”，“查看属性”为 “3-lvwreport”, 选中“整行选择”，取消“隐藏选择”；添加两个按钮，其标题属性分别为“添加”、“删除”。添加如下代码： 
  option explicit
  dim filename as string 
  private sub command1_click()
  ’将文本框中的信息添加到列表框中
  dim i as integer
   with listview1.listitems.add()
    .text = text1(0)
    for i = 1 to 4
    .subitems(i) = text1(i)
   next i
   end with
  end sub

  private sub command2_click()
  ’删除列表框中信息
  if listview1.listitems.count > 0 then
   if msgbox("真的要删除吗？", vbquestion + vbyesno + vbdefaultbutton2) = vbyes then
   listview1.listitems.remove listview1.selecteditem.index
   end if
  end if
  end sub

  private sub form_load()
  dim tpstr as string, i as integer
  filename = app.path & "＼data.txt"
if dir(filename) <> "" then
   ’加载数据
   open filename for input as #1
    do while not eof(1)
     with listview1.listitems.add()
      for i = 0 to 4
       line input #1, tpstr
       if i = 0 then
        .text = tpstr
       else
        .subitems(i) = tpstr
       end if
      next i
     end with
    loop
   close #1
  end if
  end sub

  private sub form_unload(cancel as integer)
  dim i as integer
  dim tplist as listitem
  ’保存数据
  open filename for output as #1
   for each tplist in listview1.listitems
    print #1, tplist.text
    for i = 1 to 4
     print #1, tplist.subitems(i)
    next i
   next tplist
  close #1
  end sub