Vbscript VBS是否删除文件夹？如何传递要从函数中删除的值？

这是我的HTA的一部分，其中包含vbs。它浏览目录树并选择一个文件夹。然后文件夹路径将显示在提交的文本框中，然后单击my HTA中的按钮删除该文件夹。但它不断向我显示错误@last line fso.DeleteFolderPickFolder\u Delete 我不知道如何传递要从函数中删除的值

---

哈哈，我自己想出来了……应该是fso.DeleteFolderSubmitted.txtFile.value……我花了很长时间才想出来……你可能想把它作为你自己问题的答案发布，并接受它，这样它就算作已解决的问题了。

Sub ChooseCancelFolder_OnClick()
    strStartDir = "\\fs-02\Data\"
    Submitted.txtFile.value = PickFolder_Delete(strStartDir)
End Sub 

Function PickFolder_Delete(strStartDir)
Dim SA, F
Set SA = CreateObject("Shell.Application")
Set F = SA.BrowseForFolder(0, "Choose a folder", 0, strStartDir)
If (Not F Is Nothing) Then
  PickFolder_Delete = F.Items.Item.path
End If
Set F = Nothing
Set SA = Nothing
End Function 

Sub DeleteAFolder_OnClick()
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   fso.DeleteFolder(PickFolder_Delete)
End Sub