尝试在工作目录外创建文件时“无此文件或目录”

Question

我正在尝试使用类似于以下代码的程序在程序中创建多个文件：

  character(50) :: path='~/Documents/test/'
  character(20) :: folder='folder/'

  call system('mkdir ' //trim(path))
  call system('mkdir ' //trim(path)//trim(folder))

  open(1,file=trim(path)//trim(folder)//'file',status='unknown')

程序将创建目录，但会给出运行时错误，无法打开文件“〜/ Documents / test / folder / file”：无此类文件或目录

如果我只是将path ='test'设置为要在运行程序的目录中创建目录，则一切正常。

感谢您的帮助！