关于查询文件夹是否存在并新建的问题

xinger

cd等百度windows CMD。

[Fortran] 纯文本查看 复制代码

PROGRAM MAIN
  IMPLICIT NONE
  CHARACTER(LEN=80) :: FILENAME,FORM
  INTEGER :: I,N
  logical :: exist

  exist = .TRUE.
  N=100
  
  Do I=1,N,1

    SELECT CASE (I)       !选择合适的后缀号码
       CASE (0:9)
          WRITE(FORM,'(I1)') I
       CASE (10:99)
          WRITE(FORM,'(I2)') I
       CASE (100:999)
          WRITE(FORM,'(I3)') I
       CASE (1000:9999)
          WRITE(FORM,'(I4)') I
    END SELECT
    
    WRITE(FILENAME,*) "scalar",TRIM(FORM),'.txt'    !给文件名赋值为scalar+号码+格式

    INQUIRE(file=FILENAME,exist=exist)        !查询是否存在
    
    if (exist) then
        !!!若存在，则无操作直接跳过
    else
        !!!若不存在，则创建：
        !!! Linux 下：
        call system('touch '//FILENAME) !!!创建文件
        call system('mkdir '//FILENAME) !!!创建文件夹
        !!! Windows 下，自行百度更多CMD：
        !call system('mkdir '//FILENAME) !!!创建文件夹 （或者md)
    endif
    
  END DO
  
  END PROGRAM