使用 gfortran 打开文件夹

Question

这是我的代码：

Program Write_in_folder

Implicit none

Integer::Num_Ber
Integer,parameter::Le=367
Character(Le)::Output
Character(Le),parameter::fmt_1='("Result\Output_",i0,".txt")'
Character(Le),parameter::fmt_2='(2x,i0)'
Character(Le),parameter::fmt_3='mkdir Result'

Write(*,*)"Enter the number:"
Read(*,*)Num_Ber

Write(Output,trim(adjustl(fmt_1)))Num_Ber

Call execute_command_line(trim(adjustl(fmt_3)))

Open(Unit=1,File=trim(adjustl(Output)),Status='Unknown')

     Write(1,trim(adjustl(fmt_2)))Num_Ber

Close(Unit=1,Status='Keep') 

Stop
End Program Write_in_folder

我要打开文件夹，名称为：Result_Num_Ber

哪种方案好？

如何检查同名的文件夹是否已经打开？如果是，则不需要执行此代码序列。

Answer 1

“如何检查那个名字的文件夹是否已经打开？如果是则不需要执行这一系列代码。”

我喜欢对目录和文件都使用 INQUIRE。

CHARACTER(LEN=80)  :: Base_Name
CHARACTER(LEN=80)  :: SomeDirectory
CHARACTER(LEN=256) :: Full_Name
INTEGER            :: Len_SomeDirectory
LOGICAL            :: Existentialism

!....
SomeDirectory = '/data/2017'
Len_SomeDirectory = LEN_TRIM(SomeDirectory)
!...
INQUIRE(DIR=SomeDirectory, EXIST=Existentialism)
IF(Existentialism) THEN
  Full_name = SomeDirectory(1: Len_SomeDirectory) // '/' //   Base_Name(1:LEN_TRIM(Base_Name))
ELSE
  ! Maybe create some directory...
ENDIF
! etc

那么 STAT 或 GETFILEINFOQQ 可以洞察你是否有写权限。

如果没有目录，可能最容易/最安全的卡盘和错误...然后手动创建目录并重新运行程序。

如果目录或文件没有写权限，“怎么办”也是同样的故事......“查克和错误并重新组合。”