应用场景
批量创建的文件夹并以本月的每天命名
知识要点
1: DateSerial 函数 返回包含指定的年、月、日的 Variant (Date)。
2:MkDir 语句 创建一个新的目录或文件夹
Sub 创建本月文件夹()
Dim Fname As String
With Application.FileDialog(msoFileDialogFolderPicker) '引用文件夹对话框
'如果选择了目录则取其路径,否则退出程序
If .Show = -1 Then Fname = .SelectedItems(1) Else Exit Sub
End With
If Right(Fname, 1) <> '\' Then Fname = Fname & '\' '确定右边以\结束
Dim i As Byte, j As Byte '声明两个变量
i = Day(DateSerial(Year(Date), Month(Date) 1, 0)) '计算本月有多少天
For j = 1 To i '遍历一月中的每一天
'创建文件夹,以日期命名
MkDir Fname & Format(DateSerial(Year(Date), Month(Date), j), 'mm月dd日')
Next j
End Sub
联系客服