共 1 篇文章 |
|
Public function RenameFile(filespec1,filespec2) ‘修改一个文件 Dim fso Set fso = CreateObject(")5cripting.FileSystemObject") If Err.number0 Then Response.Write("修改文件名时发生错误!请查看错误信息" &Err.number &"" &Err.De)5cription) Err.Clear RenameFile = False End If call fso... 阅2854 转22 评0 公众公开 06-01-20 09:44 |