用VB实现把文件保存在局域网的服务器上?

我建议改名按照以下定义

修正文件夹字符串

path=文件的路径

filepath=replace(path,":","")

filepath=replace(filepath,"\","|")

fname=文件名

fnametmp=split(fname,".")

filesplit=ubound(fnametmp)

fname=fnametmp(0)

for i=1 to filesplit -1

fname=fname & "." & fnametmp(i)

next

fname=fname & "." & filepath & "." & fnametmp(filesplit)

文件格式=旧文件名.路径.文件扩展名

不知道你要怎么保存到服务器，最简单的方法当然是映射磁盘，直接使用filecopy命令复制过去

如果需要恢复，按照上边的方法逆向操作就可以了

上边只是一点想法，是否实用没研究过，献丑了