Question

Fortran如何获取文件大小

如题，有没有Fortran函数可以获取文件的字节数

Answer 1

语法中没有这样的函数。

但如果你使用的是 Visual Fortran 序禅启铅列的编译器，可以用其扩展的语法实现。

恰好我写过一个函数来完成。

Integer Function WGetFileSize( cFile )
Use IFPort , only : GetFileInfoQQ , GetLastErrorQQ , FILE$INFO , FILE$LAST , FILE$ERROR , FILE$FIRST , ERR$NOMEM , ERR$NOENT , FILE$DIR
Character( Len = * ) , Intent( IN ) :: cFile
Type (FILE$INFO) :: stInfo
Integer(4) :: iWildhandle , iLength , iRet
iWildhandle = FILE$FIRST
iLength = GetFileInfoQQ( cFile , stInfo , iWildhandle )
WGetFileSize = stInfo.LENGTH
End Function WGetFileSize

调用时，直接：
n = WGetFileSize( "文件名.txt" )
就可以了。

如果你的编译器不是 Visual Fortran，那么你需要翻阅相关的帮助文档了。
如果你贺好的编译旁昌器是 Compaq Visual Fortran，你需要把 Use IFPort , only : 改为 Use DFLib , only :