求助 GetFileInfoQQ() 函数使用

storm_surge · 发表于 2017-10-7 18:48:48

Win7, Compaq Visual Fortran 6.6.0。想在主程序运行过程中删除一些废弃的文件和文件夹，需要编写一个删除文件夹的子程序，调用时指定文件夹路径，用到 GetFileInfoQQ 函数获取文件夹内文件信息，但调用时输出显示，获取的是文件夹名，而不是文件夹内的文件名，请指点：

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

01subroutine ClearFilesInDir(cFileDir,iFile)
02        use DFLib, only: GetFileInfoQQ,GetLastErrorQQ,FILE$INFO,FILE$LAST,FILE$ERROR,FILE$FIRST,ERR$NOMEM, &
03                         ERR$NOENT,FILE$DIR,DeldirQQ,DELFILESQQ,systemQQ
04        Implicit None
05        logical DirDeleted
06        Character(255) cFileName
07        Character*(*),Intent(IN)::cFileDir  !,Dirtmp
08        !character*(*),intent(IN)::output
09        integer,Intent(Out)::iFile ! 找到文件的信息
10        Type(FILE$INFO)::info
11        Integer(4)::Wildhandle,length,iresult
12 
13        Wildhandle=FILE$FIRST
14        iFile=0
15                dirdeleted=systemQQ('dir '//trim(cFileDir));pause
16        Do WHILE (.TRUE.)
17                iresult=GetFileInfoQQ(trim(cFileDir),info,Wildhandle)  !  //'\' 不可以加在路径名后
18                print*,'creation=',info.creation
19                print*,'lastwrite=',info.lastwrite
20                print*,'lastaccess=',info.lastaccess
21                print*,'length=',info.length
22                print*,'permit=',info.permit
23                print*,'name=',trim(info.name)
24                print*,'handle=',Wildhandle
25                print*, 'iresult=', iresult
26                if( (Wildhandle.eq.FILE$LAST).or.(Wildhandle.eq.FILE$ERROR) )then
27                        select case(GetLastErrorQQ())
28                        case(ERR$NOMEM)  ! 内存不足
29                                iFile=-1
30                        case(ERR$NOENT) ! 碰到通配符序列尾，正常退出
31                                return
32                        case default
33                                iFile=0
34                                Return
35                        endselect
36                endif
37                iFile=iFile+1
38                cFileName=trim(info.Name)
39                print*,trim(info.Name)
40                print*,trim(cFileDir)
41                print*,' iFile=',iFile
42                DirDeleted=DELFILESQQ(trim(cFileDir)//'\'//trim(info.Name))
43        !        call WriteFileName(Trim(info.Name),output,iFile)  ! WriteFileName 函数没有定义
44        ENDDO
45        DirDeleted=DeldirQQ(cFileDir)
46end subroutine ClearFilesInDir