Main
Sub Main
                Dim oFSO
                Dim sDirectoryPath
                Dim oFolder
                Dim oDelFolder
                Dim oFileCollection
                Dim oFile
                Dim oFolderCollection
                
                Set wshShell = WScript.CreateObject("WScript.Shell")
                Set wshSysEnv = wshShell.Environment("PROCESS")
                sMyHomePath = wshSysEnv("HOMEPATH")
                
                Set oFSO = CreateObject("Scripting.FileSystemObject")
                sDirectoryPath = "C:" + sMyHomePath + "\Desktop\1"
                set oFolder = oFSO.GetFolder(sDirectoryPath)
                set oFolderCollection = oFolder.SubFolders
                set oFileCollection = oFolder.Files
 
                For each oFile in oFileCollection
                               oFile.Delete(True)
                Next
 
                For each oDelFolder in oFolderCollection
                                oDelFolder.Delete(True)
                Next
 
                Set oFSO = Nothing
                Set oFolder = Nothing
                Set oFileCollection = Nothing
                Set oFile = Nothing         
 
End Sub

RD C:%HOMEPATH%\ /S /Q