求助动态年、月代码，谢谢

dzsrmyh

new_path = "D:\桌面\2023年\3月\"   

如何修改上面的2023年和3月能根据实时年月自动修改，并判断这目录有没有这两个文件夹，如果没有的话就自动创建，有的话就忽略。

ykcbf1100

用date()函数提取当天的日期，然后，用year()和month()函数再提取年和月数据，最后，用FSO法建立目录。
没有附件只能这样说说了。

Yalishanda30

今天1朵花没送出去咋就没了呢

iu950

dzsrmyh

ykcbf1100 发表于 2023-3-28 09:16
用date()函数提取当天的日期，然后，用year()和month()函数再提取年和月数据，最后，用FSO法建立目录。
没 ...

老师你好，附件已上传

杨建营

Sub fold()
Dim fso As Object
Dim yy, mm
    Application.ScreenUpdating = False
    Set fso = CreateObject("Scripting.FileSystemObject")
    yy = Year(Date)
    mm = Month(Date)
    fold1 = "d:\桌面\"
    If Dir(fold1, vbDirectory) = "" Then MkDir fold1
    fold2 = "d:\桌面\" & yy & "年\"
    If Dir(fold2, vbDirectory) = "" Then MkDir fold2
    fold3 = "d:\桌面\" & yy & "年\" & mm & "月"
    If Dir(fold3, vbDirectory) = "" Then MkDir fold3
    Application.ScreenUpdating = True
End Sub
请楼主参考。

dzsrmyh

杨建营 发表于 2023-3-28 09:34
Sub fold()
Dim fso As Object
Dim yy, mm

老师你好，结果有点不对，能在5楼附件里看看吗？

dzsrmyh

iu950 发表于 2023-3-28 09:29

老师你好，结果有点不对，能在5楼附件里看看吗？

iu950

dzsrmyh 发表于 2023-3-28 10:16
老师你好，结果有点不对，能在5楼附件里看看吗？

未经测试。。。

dzsrmyh

iu950 发表于 2023-3-28 10:34
未经测试。。。

老师你好，请帮忙在看看，这段代码的意思是打印文件后将文件移动到这建的文件夹里

With CreateObject("Scripting.FileSystemObject")
        If Not .folderExists(new_path) Then .createfolder (new_path)
        For Each f In .getfolder(old_path).Files
            If .getextensionname(f.Name) Like ext Then
                If Not .fileexists(new_path & f.Name) Then
                    f.Move (new_path)
                Else
                    MsgBox "移动失败，目标文件夹已存在该文件" & f.Name
                End If
            End If
        Next
    End With
    'MsgBox "文件夹所有文件移动完成"
    MsgBox "打印结束！"