我想打开服务器上，d:\aaa\a.txt的文件。请教各位，谢谢。

Question

我想打开服务器上，d:\aaa\a.txt的文件。请教各位，谢谢。

Answer 1

可以例用:CommonDialog On Error Resume Next
  CommonDialog1.CancelError = True
  CommonDialog1.DialogTitle = "打开文本文件"
  CommonDialog1.FileName = ""
  CommonDialog1.Filter = "文本文件(*.txt)|*.txt"
  CommonDialog1.FilterIndex = 0
  CommonDialog1.Flags = cdlOFNCreatePrompt + cdlOFNHideReadOnly
  CommonDialog1.ShowOpen
  If Err = cdlCancel Then Exit Sub
  Dim OpenString As String
  Dim FHandle As Long
  FHandle = FreeFile()
  Text1.Text = ""
  Open CommonDialog1.FileName For Input As #FHandle
    Do While Not EOF(FHandle)
      Line Input #FHandle, OpenString
      Text1.Text = Text1.Text + OpenString + Chr(13) + Chr(10)
    Loop
  Close #FHandle以上代码只能实现对文本文件的读取.....

Answer 2

"\\192.168.0.1\d$\aaa\a.txt"可以吗？用什么函数呢

Answer 3

dim retVal 
retVal=Shell("\\192.168.0.1\d$\aaa\a.doc",1)
只要路径正确,电脑能访问到就ok