GetOpenFileName from samples(advanced-win32)

Intel_C_Intel — Fri, 06 Jul 2001 02:28:36 GMT

I am using that project for my purpose; I want to go little bit beyond-that is I want to open and edit a file from the list using say wordpad, word etc. What should I add after-

status = GetOpenFileName(ofn)
if (status .eq. 0) then
type *,'No file name specified'
else
! Get length of file_spec by looking for trailing NUL
ilen = INDEX(file_spec,CHAR(0))
type *,'Filespec is ',file_spec(1:ilen-1)
! Example of how to see if user said "Read Only"
!
if (IAND(ofn%flags,OFN_READONLY) /= 0) &
type *,'Readonly was requested'
end if

Re: GetOpenFileName from samples(advanced-win32)

Steven_L_Intel1 — Fri, 06 Jul 2001 05:52:45 GMT

See my Win32 Corner column in Visual Fortran Newsletter Issue 8, which discusses the use of ShellExecute. In your case, use the "edit" action, and it will automatically open the file in the application registered for that file type.

Steve

topic GetOpenFileName from samples(advanced-win32) in Software Archive

GetOpenFileName from samples(advanced-win32)

Re: GetOpenFileName from samples(advanced-win32)