Intel® Fortran Compiler 16.0 User and Reference Guide
Portability Function: Deletes all files matching the name specification, which can contain wildcards (* and ?).
USE IFPORT
result = DELFILESQQ (files)
files |
(Input) Character*(*). Files to be deleted. Can contain wildcards (* and ?). |
The result type is INTEGER(2). The result is the number of files deleted.
You can use wildcards to delete more than one file at a time. DELFILESQQ does not delete directories or system, hidden, or read-only files. Use this function with caution because it can delete many files at once. If a file is in use by another process (for example, if it is open in another process), it cannot be deleted.
USE IFPORT USE IFCORE INTEGER(4) len, count CHARACTER(80) file CHARACTER(1) ch WRITE(*,*) "Enter names of files to delete: " len = GETSTRQQ(file) IF (file(1:len) .EQ. '*.*') THEN WRITE(*,*) "Are you sure (Y/N)?" ch = GETCHARQQ() IF ((ch .NE. 'Y') .AND. (ch .NE. 'y')) STOP END IF count = DELFILESQQ(file) WRITE(*,*) "Deleted ", count, " files." END