PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Sat Mar 11, 2006 11:46 am Post subject: Files@ |
|
|
INTEGER,PARAMTER::k2=SELECTED_INT_KIND(4)
INTEGER(k2),PARAMETER::nmax=100
CHARACTER(LEN=256)fname(nmax)
INTEGER(k2) attr(nmax),date(nmax),time(nmax)
INTEGER size(nmax)
INTEGER(k2) n
CALL FILES@("C:Program Files*.*",n,nmax,fname,attr,date,time,size)
DO i = 1,n
PRINT*,fname(i)(1:LEN_TRIM(fname(i)))
ENDDO
END |
|