VBS拷贝和删除文件

上一篇 / 下一篇  2016-02-03 15:07:43 / 个人分类：自动化测试

查看( 3422 ) / 评论( 1 ) / 评分( 0 / 0 )
Dim fso,f
Set fso=CreateObeject("Scripting.FileSystemObject")
Set f=fso.GetFile("filepath\filename")
f.Move("E:\")
 
If(fso.FileExists("filepath2\name2")) Then
Set f=fso.GetFile("filepath2\name2")
f.Delete
End If
 
问题：如果要复制或者移动到文件夹中提示没有权限，如何处理？

收藏 举报

TAG:

每天进步一点 引用 删除 lucyzhao2010   /   2016-02-03 15:36:34
过程中FileExists写成了FileExits导致执行失败
 

评分：0

我来说两句

日历

« 2024-04-23  
日 一 二 三 四 五 六
 123456
78910111213
14151617181920
21222324252627
282930    

数据统计

  • 访问量: 13846
  • 日志数: 8
  • 建立时间: 2015-05-16
  • 更新时间: 2016-02-23

RSS订阅

Open Toolbar