Question

vb 复制文件及文件夹

我需要制作一个软件，能够复制文件夹。因为工作中经常做各种报表，为了防止误删，就需要经常备份到D盘指定文件夹。

要求就是将任何一个文件或者文件夹拖动到vb窗体上，vb自动对该文件或文件夹加时间后缀重命名，然后复制到D盘指定文件夹中。
麻烦大神帮我做一个，有酬谢，麻烦了。q信箱980925678。
因为网上找不到合适的，如果收到符合要求，一定感谢，并给酬金30rmb。

Answer 1

这么简单的东西，你就不用花冤枉钱了，我免费给你：

Private Sub Form_Load()
Me.OLEDropMode = 1
End Sub

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim ff, fso As Object, fn As Integer, dn As Integer
Set fso = CreateObject("scripting.filesystemobject")
For Each ff In Data.Files
    If fso.fileexists(ff) Then
        fso.copyfile ff, "d:\tmp\" & fso.getfilename(ff) & "." & Format(Now, "yyyymmddhhnnss"), True
        fn = fn + 1
    Else
        fso.copyfolder ff, "d:\tmp\" & fso.getfilename(ff) & "." & Format(Now, "yyyymmddhhnnss"), True
        dn = dn + 1
    End If
Next
Set fso = Nothing
MsgBox "共复制" & fn & "个文件，" & dn & "个文件夹"
End Sub

以上代码没有用到任何控件，也不需进行任何设置，直接把代码复制到窗体的代码区，编译为EXE文件即可。运行后把文件或文件夹拖到窗体中即可，可以多个文件同时拖，也可以文件和文件夹混合拖。

文件的保存位置是d:\tmp\，你可以自己改。

时间后缀我是直接加在文件或文件夹的后面的，如果不符要求你可以自己改，让我改也行。

另外这是VB6的代码，如果你要的不是这个版本的，那就对不起了。