code: $DirToEmpty = "N:\TestDir"CD $DirToEmptyIf @Error <> 0Goto EndEndIfGosub EmptyDirExit:EmptyDirDim $SubDir$Filename = Dir("*.*")While $Filename <> "" AND @Error = 0If $Filename <> "TestDir" DelDir($Filename) EndIf $Filename = Dir()Loop
$DirToEmpty = "N:\TestDir"CD $DirToEmptyIf @Error <> 0Goto EndEndIfGosub EmptyDirExit:EmptyDirDim $SubDir$Filename = Dir("*.*")While $Filename <> "" AND @Error = 0If $Filename <> "TestDir" DelDir($Filename) EndIf $Filename = Dir()Loop
Generated in 0.053 seconds in which 0.024 seconds were spent on a total of 12 queries. Zlib compression enabled.
![[Big Grin]](images/icons/grin.gif){kind=icon}
