Fortran代码自动创建文件夹

在Fortran代码中，在指定路径中自动创建文件夹。首先，使用内部函数“inquire”查询，指定路径中将要创建的文件夹是否存在；然后，根据“inquire”反馈的结果，用系统命令中创建文件夹的命令进行相应文件夹的自动创建。另外，在Fortran中，若要输入单引号或者双引号，则需连续输入两次单引号或双引号即可。

 

示例代码：

 

! 输出路径
!----------------
    module Path
    implicit none
   character(len=100) :: out_path="D:\Code\Routine Code\Interface\2016-01-29\"  
                        !- 查询目录文件夹状态或使用目录文件夹，允许字符串中存在空格 
   character(len=100) :: out_path1="D:\Code\""Routine Code""\Interface\2016-01-29\"
                        !- 调用系统命令自动创建目录文件夹，字符串中空格需用引号处理
    end module Path

 

    program Main
    use Path
    implicit none
   character(len=100) :: path_result,path_result0,path_result11,path_result10
    real(kind=4) :: Time_cost,TA(2),ETIME  
                   !- 内部函数ETIME长度只能是4字节，即kind=4，见Intel Visual Fortran帮助文件
 
!...调用系统命令自动创建目录文件夹(计算结果输出目录）
!------------------------------------------
   print*,'Check and creat the file directionary: '
    print*,' '
   path_result=trim(adjustl(out_path))//"Result\"
   path_result0=trim(adjustl(out_path1))//"Result\"
    call Createfolder(path_result,path_result0)

 

!...程序运行所耗总时间
!------------------------------------------
   write(*,'(/)')
   Time_cost=ETIME(TA)
    write(*,*) 'Program has used',Time_cost,'seconds of CPU time.'
    write(*,*) 'This includes',TA(1),'seconds of user time and',   &
               TA(2),'seconds of system time.'
   
    write(*,*) ' '
    stop ' Calculation is over'
    end program Main

 

 

! 创建目录文件夹路径
!-----------------------
    subroutine Createfolder(path_inquire,path_create)
    use IFPORT
    use Path
    implicit none
   integer(kind=4) :: istatus1,errnum
   logical(kind=4) :: ierr1
   character(len=100) :: path_inquire,path_create
   
   inquire(DIRECTORY=trim(adjustl(path_inquire)), EXIST=ierr1)
   print*,ierr1
    if(ierr1) then
       print*,'The directory have existed and not been needed to create'
       write(*,'(/)')
    else
       print*,'The directory not exist and creat it'
       write(*,'(/)')
       istatus1=SYSTEM('md '//trim(adjustl(path_create)))
       if(istatus1==-1) then
           errnum=ierrno()
           print*,'Error=',errnum,' inquire the Intel Visual Fortran help document'
           print*,' '
           stop ' Folder creating is fail'
       end if
    end if
    
    return
    end subroutine Createfolder