请问怎么获得包括子文件夹的所有文件名

shrine

kyra 发表于 2017-9-13 18:21
但是 GetShortFileName 可以实现这个目的。

我试了，把你贴的子程序用GetShortFileName代替

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

Subroutine ToDoOneFile( cFile , iLoop )
  use Kernel32 , only : GetShortFileName
  use , intrinsic :: ISO_C_Binding
   Character( Len = * ) , Intent( IN ) :: cFile
   Integer , Intent( IN ) :: iLoop
   integer :: k
   !k=10
   character(len=512) :: sFile
   k = GetShortFileName ( trim(cFile)//c_null_char , sFile , len(sFile) ) 
   Write( * , * ) '第',iLoop,'个文件：', sFile(:k)
End Subroutine ToDoOneFile

错误                error #6580: Name in only-list does not exist.   [GETSHORTFILENAME]               

kyra

但是 GetShortFileName 可以实现这个目的。

shrine

kyra 发表于 2017-9-13 16:19
你是想获得短路径吧？

不妨试试 windows 提供的 GetShortFileName

不是，不是，
我是想把文件名改短一点，太长了拷贝到加密盘里不成功

文件很多，还有子文件夹

kyra

你是想获得短路径吧？

不妨试试 windows 提供的 GetShortFileName

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

Subroutine ToDoOneFile( cFile , iLoop )
  use Kernel32 , only : GetShortPathName
  use , intrinsic :: ISO_C_Binding
   Character( Len = * ) , Intent( IN ) :: cFile
   Integer , Intent( IN ) :: iLoop
   integer :: k
   character(len=512) :: sFile
   k = GetShortPathName( trim(cFile)//c_null_char , sFile , len(sFile) ) 
   Write( * , * ) '第',iLoop,'个文件：', sFile(:k)
End Subroutine ToDoOneFile

chiangtp

CALL SYSTEM('DIR/S/D D:\ABC\DEF > filelist.txt')

OPEN(UNIT=11, FILE=filelist.txt')
...
CLOSE(UNIT=11, STATUS='DELETE')

to rename file: CALL SYSTEM('REN abcdef.dat abc.txt')

shrine

kyra 发表于 2017-9-13 12:23
这中间涉及到很多问题，比如重名怎么办？
比如

重名就后面-1 -2 -3

中文可以略去

批处理怎么实现只取前十个字符，并且保留后缀？我网上搜了，包括使用楼上说的命令dir导出后然后做bat文件，觉得还是写个程序比较好，但是Fortran文件处理功能原来确实没有接触过

kyra

这中间涉及到很多问题，比如重名怎么办？
比如

有2个文件，分别叫
1234567890123.txt
1234567890124.txt

还有中文字符怎么办？比如
我是1个中文文件名.txt

等等。

如果你只是重命名，我觉得批处理比较适合你。

shrine

kyra 发表于 2017-9-13 10:36
callBack 是接口，ToDoOneFile 是它的真实实现。

[mw_shl_code=fortran,true]Program www_fcode_cn

感谢！！！

好人帮到底吧，想把每个文件重命名为前10个字符，低于十个字符文件名不变，后缀名不变该怎么弄

shrine

pasuka 发表于 2017-9-13 11:12
Windows平台的话，调用dir命令并写入指定文件
dir /S/B > a.txt
具体参考下面的链接：

获得文件名后我还想进一步操作，所以编程比较方便

pasuka

Windows平台的话，调用dir命令并写入指定文件
dir /S/B > a.txt
具体参考下面的链接：
http://blog.csdn.net/wubai250/article/details/7732822