Script Paradigm

フォルダを削除

フォルダを削除します。

Option Explicit
Call sbDeleteFolder("abc")
Sub sbDeleteFolder(ByVal strFolderPath)
    Dim fsoTemp
    
    Set fsoTemp = CreateObject("Scripting.FileSystemObject")
    Call fsoTemp.DeleteFolder(strFolderPath, True)
    
    Set fsoTemp = Nothing
End Sub
Copyright © 2006 Hikijishi All Rights Reserved.
[] [wsh][0.00187587738037109]