OpenEuphoria

Re: getOpenFileName() Problem

• Posted by DerekParnell (admin) Jul 22, 2009
• 775 views

The bug is in the buildDefaultOfn routine in w32file.ew

Find these lines in the routine

    -- Check to see if a directory name was supplied. 
    if   length(fName) > 0 
     and fName[length(fName)] = '\\'  then 
        fName &= "*.*" 
    end if 

and change them to

    -- Check to see if a directory name was supplied. 
    if   length(fName) > 0 
     and fName[length(fName)] = '\\'  then 
        if length(fName) = 3 and fName[2] = ':' then 
            fName &= ".\\." 
        else 
            fName &= "." 
        end if 
    end if