aspではFPOがファイルコードをコピーします。
968 ワード
TempSource,TempEnd
rootPath=Request.ServerVariables("APPL_PHYSICAL_PATH") ‘
Function CopyFiles(TempSource,TempEnd)
Dim FSO
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FileExists(TempEnd) then
Response.Write " <b>" & TempEnd & "</b> ， !"
Set FSO=Nothing
Exit Function
End IF
IF FSO.FileExists(TempSource) Then
Else
Response.Write " <b>"&TempSource&"</b> !"
Set FSO=Nothing
Exit Function
End If
FSO.CopyFile TempSource,TempEnd
Response.Write " <b>"&TempSource&"</b> <b>"&TempEnd&"</b>"
Set FSO = Nothing
End Function