| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5330 人关注过本帖
标题:请高手帮忙写个小程序:移动一个文件夹中全部文件到另一个文件夹中。谢谢。
取消只看楼主 加入收藏
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:331
专家分:561
注 册:2013-10-30
结帖率:98.41%
收藏
已结贴  问题点数:20 回复次数:1 
请高手帮忙写个小程序:移动一个文件夹中全部文件到另一个文件夹中。谢谢。
以下的代码的功能是希望把“d:\a”的文件夹中全部文件移动(清空,保留“d:\a”的文件夹)到另一个文件夹“d:\b”中,文件夹“d:\b”中的旧文件保留,但不中。
Private Sub Command1_Click()
   Dim s1 As String, s2 As String, s3 As String
   s1 = "d:\a"
   s2 = "d:\b"
   If Dir(s2, vbDirectory) = "" Then MkDir s2
      s3 = Dir(s1 & "\*.*")
  If Dir(s1, vbDirectory) <> "" And Dir(s2, vbDirectory) <> "" Then
    Do While s3 <> ""
       Name s1 & "\" & s3 As s2 & "\" & s3
      s3 = Dir
    Loop
  End If
    MsgBox "ok"
End Sub

[此贴子已经被作者于2016-11-1 11:36编辑过]

搜索更多相关主题的帖子: 文件夹 
2016-11-01 11:05
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:331
专家分:561
注 册:2013-10-30
收藏
得分:0 
回复 3楼 xiangyue0510
请您再看1楼的要求,然后写全代码。谢谢。
2016-11-01 11:46
快速回复:请高手帮忙写个小程序:移动一个文件夹中全部文件到另一个文件夹中。谢 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018184 second(s), 11 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved