Fortran 中有创建文件夹的函数吗?
来源:百度知道 编辑:UC知道 时间:2024/07/06 19:40:46
代码中使用 systemQQ 可以调用所有系统命令,当然包括建立文件夹
PROGRAM Main
USE IFPORT !需要调用IFPORT模块。
IMPLICIT NONE
INTEGER :: FEXIST, RES, STATUS
CHARACTER(len=200) ::folder_name
CHARACTER(len=200) ::command
folder_name = './test_folder/'
! check if the folder exist, if not, creat it
!if yes, remove it
INQUIRE(DIRECTORY=TRIM(folder_name),EXIST=FEXIST)
IF(.not.FEXIST) THEN
WRITE(*,*) 'The folder does not existing, now create it...'
res=MAKEDIRQQ(TRIM(folder_name))
IF (res) THEN
WRITE (*,*) 'New directory successfully created'
ELSE
WRITE (*,*) 'Failed to create directory'
END IF
ELSE
WRITE(*,*) 'The folder already exist. Now reomove it...'
res = DELDIRQQ (TRIM(folder_name))
IF (res) THEN