mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-28 11:17:47 +00:00
f1a0146579
Removes references to qb64 dot net.
63 lines
1.8 KiB
Text
63 lines
1.8 KiB
Text
The {{KW|RMDIR}} statement deletes an empty directory using a designated path relative to the present path location.
|
|
|
|
|
|
{{PageSyntax}}
|
|
:{{KW|RMDIR}} {{Parameter|directory$}}
|
|
|
|
|
|
{{PageDescription}}
|
|
* {{Parameter|directory$}} is a relative path to the directory to delete.
|
|
* Directory path must be a literal or variable [[STRING]] value designating the folder to be deleted.
|
|
* If the directory contains files or folders, a [[ERROR Codes|file/path access error]] will occur.
|
|
* If the directory path cannot be found, a [[ERROR Codes|path not found]] error occurs.
|
|
|
|
|
|
{{PageExamples}}
|
|
{{CodeStart}}
|
|
|
|
{{Cl|ON ERROR|ON ERROR GOTO}} ErrorHandler
|
|
DO
|
|
ERRcode = 0
|
|
{{Cl|INPUT}} "Enter path and name of directory to delete: "; directory$
|
|
IF {{Cl|LEN}}(directory$) THEN 'valid user entry or quits
|
|
{{Cl|RMDIR}} directory$ 'removes empty folder without a prompt
|
|
IF ERRcode = 0 THEN PRINT "Folder "; directory$; " removed."
|
|
END IF
|
|
LOOP UNTIL ERRcode = 0 OR LEN(directory$) = 0
|
|
{{Cl|SYSTEM}}
|
|
|
|
|
|
ErrorHandler:
|
|
ERRcode = {{Cl|ERR}} 'get error code returned
|
|
{{Cl|SELECT CASE}} ERRcode
|
|
{{Cl|CASE}} 75
|
|
{{Cl|PRINT}} directory$ + " is not empty!"
|
|
{{Cl|CASE}} 76
|
|
{{Cl|PRINT}} directory$ + " does not exist!"
|
|
{{Cl|CASE ELSE}}
|
|
{{Cl|PRINT}} "Error"; ERRcode; "attempting to delete " + directory$
|
|
{{Cl|END SELECT}}
|
|
{{Cl|PRINT}}
|
|
{{Cl|RESUME|RESUME NEXT}}
|
|
|
|
{{CodeEnd}}
|
|
|
|
: This Windows-specific output from two runs of the above program is typical, though your output may vary. User-entered text is in italics.
|
|
|
|
{{OutputStart}}
|
|
|
|
Enter path and name of directory to delete: ''Some\Folder\That\Doesnt\Exist''
|
|
Some\folder\That\Doesnt\Exist does not exist!
|
|
|
|
Enter path and name of directory to delete: ''C:\temp''
|
|
C:\temp is not empty!
|
|
|
|
{{OutputEnd}}
|
|
|
|
|
|
{{PageSeeAlso}}
|
|
* [[MKDIR]], [[CHDIR]]
|
|
* [[KILL]], [[FILES]]
|
|
|
|
|
|
{{PageNavigation}}
|