Re: [perl-win32-gui] Open and Save a file

[David Hiltz]

> Is there an option to open and save a file ?

  you mean a file open/save dialog window?

  If so,

    $file_spec = "*.bmp\0" . " " x 256;
    $dir = cwd;

    $file = GUI::GetOpenFileName(
        -owner => $Win,
        -directory => "$dir",
        -title => "Load/Save File",
        -file => $file_spec,
    );

    if ($file eq undef) {  # Cancel
       return;
    }
    else {
       print "File is $file\n";
    }


  Use the same GetOpenFileName to get or save a file.

  -dave