我可以在函数内调用函数吗？

Question

Function foldercheck(Inputfoldername)
    If objFSO.FolderExists(Inputfoldername) = False Then
        WriteLogFileLine logfile, "Folder " & Chr(34) & Inputfoldername & _
            Chr(34) & " does not exists, so exiting the script !" & vbCrLf
        SQuit=1
    Else
        WriteLogFileLine logfile, "Folder " & Chr(34) & Inputfoldername & _
            Chr(34) & " exists" & vbCrLf
    End If
    foldercheck = SQuit
End Function

Function quitscript()
    If SQuit = 1 Then WScript.Quit
End Function

Function FolderExitsornot(Inputfoldername)
    Call foldercheck(Inputfoldername)
    Call quitscript
End Function

我已经更新了我的脚本，现在的问题是每次目标文件夹不存在时我的脚本退出，而我的要求是它应该显示所有目标文件夹的日志msgs，然后退出脚本。这就是我编写2个函数然后在一个主函数中调用它们的原因。

Answer 1

我认为你实际上要求两件事：

1. 是否可以从函数中调用函数？
2. 是否可以在函数中定义函数？

第一个问题的答案是肯定的。第二个答案是否定的 - 您必须将函数声明移出FolderExitsornot - 函数。