vbscript VBA：move_to_checked

Posted 2021-05-21

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了vbscript VBA：move_to_checked相关的知识，希望对你有一定的参考价值。

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

以上是关于vbscript VBA：move_to_checked的主要内容，如果未能解决你的问题，请参考以下文章

将 Staad 与 VBS 一起使用（将 VBA 文档转换为 VBscript）

vbscript VBA - Excel - Hack受保护的Excel文档或表格（VBA） - 代码

在VBScript文件中集成VBA

vbscript 在VBA中运行Shell命令

vbscript VBA准备代码

vbscript VBA EXCEL