If FileSys.DirectoryExists(D:\as) FileSys.DeleteDirectory(D:\as,2,2)End IfFileSys.CreateDirectory(D:\as)