Robert May wrote:
> #!perl -w
> use strict;
> use warnings;
> use Win32 qw(CSIDL_APPDATA);
>
> print Win32::GetShortPathName(Win32::GetFolderPath(CSIDL_APPDATA)), "\n";
> __END__
>
> That will get what you need, and work for all versions of Win32 from
> Win95 through Vista - $ENV{APPDATA} will only work from Win2K(?)
> onwards.
Thanks for that one!
> Looking at your original code, I'm not sure what you think the problem
> is. Presumably the delay is while the file is fetched from the remote
> site - you leave the GUI up, but it will be non-responsive. If you
> just want to dismiss the GUI, then add
> $main->Hide()
> after your Win32::GUI::Dialog(); line.
>
> Regards,
> Rob.
The problem is, that it would never take about 30 seconds to fetch that
file. If I use a console based version of this program, it's finished in
about 2-3 seconds. :)
Regards,
Marc
