用FSO对象的copy方法来进行复制
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close
Set MyFile = fso.GetFile("c:\testfile.txt")
MyFile.Copy ("c:\windows\desktop\test2.txt")
这样就可以了。
这个就是一个FSO复制文件的函数
用法如下
CopyAFile(SourceFile, DestinationFile)
SourceFile你替换成你需要复制的文件路径
DestinationFile你替换成需要另一文件夹的路径
但这个函数中还用到了其它的函数,并且也没有注册FSO等语句,估计你抄写的这代码还有其它好多代码
这应该是在一个FSO组合功能中的一段
这个函数的写法的例子
CopyAFile("c:\boot.ini","d:\boot.inf")
这样就可以
这个就是一个FSO复制文件的函数
用法如下
CopyAFile(SourceFile, DestinationFile)
SourceFile你替换成你需要复制的文件路径--->Source就是源的意思
DestinationFile你替换成需要另一文件夹的路径--->Destination是目的地的意思
但这个函数中还用到了其它的函数,并且也没有注册FSO等语句,估计你抄写的这代码还有其它好多代码
这应该是在一个FSO组合功能中的一段
这个函数的写法的例子:CopyAFile("c:\boot.ini","d:\boot.inf") 就是说把C盘下的boot.ini复制到地盘,但是名字变成了boot.inf。
这种写法太常见了,多熟悉就知道了。
Function CopyFiles(SourcePath,CopyToPath)
Set Fso=Server.CreateObject("Scri"&"pting.File"&"Sys"&"temObject")
Fso.CopyFile Server.MapPath(SourcePath),Server.MapPath(CopyToPath)
Set Fso=nothing
End Function
引用:call CopyFiles("1/1.txt","3/2.txt")
其中目录1和3都存在
到底是复制还是上传?
复制 是服务器文件 到 服务器文件
上传是 本地文件 到服务文件