Question

Fortran 中有创建文件夹的函数吗？

可以在当前目录下创建文件夹的函数！谢谢

Answer 1

代码中使用 systemQQ 可以调用所有系统命令，当然包括建立文件夹

Answer 2

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
WRITE (*,*) 'A directory successfully removed.'
ELSE
WRITE (*,*) 'Failed to remove a directory'
END IF
ENDIF
END