主题：帮忙看看网上邻居拷贝文件问题在哪里

下面这段程序是可以的：

Dim t As Date = Date.Now

Dim s As String = Format(t,"yyyyMMddHHmmss") '取得编号的8位前缀

output.Show(s)

s = "E:\测试\" & s

output.Show(s)

FileSys.CreateDirectory(s)

FileSys.CopyDirectory ("E:\测试\原始文件", s, True)

但是我把程序位置换下就不行了.

Dim t As Date = Date.Now

Dim s As String = Format(t,"yyyyMMddHHmmss") '取得编号的8位前缀

output.Show(s)

s = "\\fei\测试\" & s

output.Show(s)

FileSys.CreateDirectory(s)

FileSys.CopyDirectory ("\\fei\测试\原始文件", s, True)

fei是网上邻居的名字，通过网上邻居可以找到，且测试文件是设置完全共享。