Cacher is the code snippet organizer for pro developers

Function check_folder(path1)
    If Dir(path1, vbDirectory) = "" Then
        'MsgBox "不存在此目录"
        MkDir path1
    End If
End Function
Function move_checked(file)
    check_folder (ThisWorkbook.Path & "\checked\")
    Name ThisWorkbook.Path & "\" & file As ThisWorkbook.Path & "\checked\" & file
End Function