将“我的文档”文件夹中所有本月建立的文件复制到桌面上一个“档案1”文件夹中

该文件的复制 *** 作可以先在电脑桌面上建立一个名为档案1的文件夹，然后找到我的文档进入。在该文档将文件的排序方式选择按日期排序，即可看到当月的文件排列在一起。选中该当月的文件，点击右键进行复制以及粘贴即可。具体的 *** 作方法如下：

1、在桌面空白处点击右键，选择新建文件夹。

2、在文件夹输入框中输入档案1的名称。

3、点击桌面上我的电脑进入。

4、在出现的界面中点击我的文档进入。

5、此时可以看到该文档中的文件杂乱排序的。

6、在空白处点击右键，选择排序方式中的日期。

7、此时可以看到文件按照一定的日期进行排序，选择需要的日期月份文件。

8、在选中的文件界面中点击右键，选择复制按钮。

9、复制文件完成以后点击桌面新建的档案1文件夹进入。

10、在该文件夹空白处点击右键选择粘贴按钮，即可看到被选中的文件已经全部粘贴到档案1的文件夹中。

11、在该文件夹空白处点击右键，选择查看下面的详细信息。

12、此时就可以看到被复制过来的文件即为11月份所创建的所有文件了。

打开VB，将正在代码复制上去，生成一个EXE文件，将这个EXE文件放在你的文档中需要创建文件夹的位置，每次运行就行

如果怕麻烦,可以再创建一个快捷方式，将这个快捷方式放到自启动中，这样一开机就运行了，如果不想点击那个对方框，将Msgbox这一行删除就行。

Private Sub Form_Load()

Me.AutoRedraw = True

Dim P As String

P = App.Path &"\" &Format(Date, "YYYY-MM")

If Dir(P, vbDirectory) = "" Then

MkDir P

Print "创建当前月份文件夹成功"

Else

Print "当前月份文件夹已经存在"

End If

P = P &"\" &Format(Date, "YYYY-MM-DD")

If Dir(P, vbDirectory) = "" Then

MkDir P

Print "创建当前日期文件夹成功"

Else

Print "当前日期文件夹已经存在"

End If

Msgbox "文件夹已经处理完毕"

End

End Sub

---