以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么移动目录下的所有文件到另外一个文件夹？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32547)
--  作者：jinzhengbe
--  发布时间：2013/5/3 21:46:00
--  怎么移动目录下的所有文件到另外一个文件夹？

代码如下

 

For Each File1 As String In FileSys.GetFiles(\\\\Pc-server\\图片\\图片)

  If FileSys.FileExists(file1) Then
FileSys.MoveFile("\\\\Pc-server\\图片\\图片\\",\\\\Pc-server\\图片\\bak\\)  我想移动  图片  下的文件 到bak 下面 但是现实代码错误
 

 

请问怎么解决？

 
--  作者：don
--  发布时间：2013/5/3 22:11:00
--  

MoveDirectory

将目录中的内容移到另一个目录，并删除原目录。

语法：

MoveDirectory(Directory, Destination)

Directory: 要移动的目录
Destination：目标位置

例如：

FileSys.MoveDirectory("C:\\YourFolder", "D:\\MyFolder")
--  作者：jinzhengbe
--  发布时间：2013/5/5 21:35:00
--  我要移动的是文件啊！不是文件夹啊！
我要移动的是文件啊！不是文件夹啊！
--  作者：don
--  发布时间：2013/5/5 23:33:00
--  
For Each File1 As String In FileSys.GetFiles("\\\\Pc-server\\图片\\图片")
    If FileSys.FileExists(file1) Then 
         FileSys.MoveFile(file1,file1.replace("图片\\图片","图片\\bak")) 
    End if
Next
--  作者：jinzhengbe
--  发布时间：2013/5/6 16:46:00
--  测试成功，又出新问题。
非常感谢前辈的指点。测试非常成功！！！！