Question

VB如何移动或复制指定文件夹下指定格式文件？？

如题，在VB编程的过程中，怎么移动一个指定文件夹下的特定格式，比如C盘123文件夹下的所有后戳为.EXE的文件，复制也可以，移动也可以，请指点下啊，谢谢……

Answer 1

放到按钮里的代码～   写了输出报告！

Private Sub Command1_Click()

Dim Files As String, Output As String

    Files = Dir("C:\123\", vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)  '读取 c:\123\ 下所有文件

While Files <> ""

   Output = Output + "发现：【" + Files + "】" + vbCrLf

   If LCase(Right(Files, 4)) = ".exe" Then   '筛选exe文件

        Output = Output + "【" + Files + "】为指定类型文件" + vbCrLf

        FileCopy "C:\123\" + Files, "D:\Test\" + Files '复制文件

        Kill "C:\123\" + Files                  '复制后删除源文件，就是移动

        Output = Output + "【" + Files + "】操作成功！" + vbCrLf

   Else

        Output = Output + "【" + Files + "】不是指定类型的文件，继续下一个文件..." + vbCrLf

   End If

   Output = Output + String(80, "-") + vbCrLf

Files = Dir

Wend

MsgBox Output

End Sub

Answer 2

代码如下，直接复制可用

Private Sub Form_Load()

Dim Files As String

    Files = Dir("C:\123\", vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)  '读取 c:\123\ 下所有文件

While Files <> ""

   If LCase(Right(Files, 4)) = ".exe" Then   '筛选exe文件

        FileCopy "C:\123\" + Files, "D:\Test\" + Files '复制文件

        Kill "C:\123\" + Files                  '复制后删除源文件，就是移动

   End If

Files = Dir

Wend

End Sub

我自己测试过了  你可以看下我的图 还有问题可以HI我

Answer 3

以日期重命名文件
Dim OldName, NewName
OldNameE = "111.mdb": NewNameE = "111" & Format(Date, "yyyymmdd") & "." & "mdb" ' 定义文件名。
OldNameE = "D:\tt\111.mdb": NewNameE = "D:\tt\" & "111" & Format(Date, "yyyymmdd") & "." & "mdb"
重新命名的时候 如果文件存在则在日期后面增加什么字符重新命名规则 以此类推。

Answer 4

k=iif(msgbox("Will you erase the first file?")=vbYes,"MOVE","COPY")
shell "CMD /c " & k & "C:\123\*.exe ""C:\Exes from 123\*.exe"""

修改后：
k = IIf(MsgBox("Will you erase the first file?", vbYesNo) = vbYes, "MOVE", "COPY")
Shell "CMD /c " & k & " C:\123\*.exe ""C:\Exes from 123\*.exe"""

Answer 5

hi me
It's easy.