writing to a users "My Documents" folder

sweetblood has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: writing to a users "My Documents" folder by Corion (Patriarch) on Jan 27, 2009 at 21:45 UTC
Also see File::HomeDir, which will give you the correct paths not only on Windows but also on other operating systems.	[reply]
Re: writing to a users "My Documents" folder by ikegami (Patriarch) on Jan 27, 2009 at 21:06 UTC
Isn't there an environment variable that contains the path that directory, or at least the user's profile directory? (Not on Windows at the moment.) That's probably the easiest.	[reply]
Re^2: writing to a users "My Documents" folder by sweetblood (Prior) on Jan 27, 2009 at 21:16 UTC
yep `"$ENV{USERPROFILE}\\My Documents"` does the trick -- Thanks! Sweetblood	[reply] [d/l]
Re: writing to a users "My Documents" folder by boblawblah (Scribe) on Jan 27, 2009 at 21:59 UTC
`perl -e 'print "$_ = $ENV{$_}\n" for sort keys %ENV;'` [download] Run that. It will print of all your system environmental variables. Which includes the current users 'My Document' folder. It should be noted, that if you are using Win32::OLE to create the excel file that simply saying `$Book->SaveAs('file.xls');` [download] will save to the users My Documents folder. (The OLE object does not default to using your programs current working directory).	[reply] [d/l] [select]
Re^2: writing to a users "My Documents" folder by Anonymous Monk on Sep 30, 2013 at 06:32 UTC
but if I want the excel to be saved in my current directory then how do I do?? PS: giving the path has not worked for me.	[reply]
Re: writing to a users "My Documents" folder by Sandy (Curate) on Jan 27, 2009 at 21:16 UTC
If you want to play it safe, do not assume that the user's personal folder is on the C drive. The windows registry (at least on my computer) contains the personal folder for the user `HKEY_CURRENT_USER\ software\ microsoft\ windows\ CurrentVersion\ Explorer\ Shell Folders\ Personal\` [download] I suppose that there is a CPAN module that should be able to read the Windows registry. update http://search.cpan.org/~adamk/Win32-TieRegistry-0.25/TieRegistry.pm	[reply] [d/l]
Re: writing to a users "My Documents" folder by hominid (Priest) on Jan 27, 2009 at 21:10 UTC
Try getlogin `my $login_name = getlogin; my $path = "C:\\Documents and Settings\\$login_name\\My Documents\\";` [download]	[reply] [d/l]
Re^2: writing to a users "My Documents" folder by Anonymous Monk on Jan 28, 2009 at 10:09 UTC
"Documents and Settings" can change, but %USERPROFILE won't	[reply]
Re: writing to a users "My Documents" folder by jdporter (Paladin) on Jan 28, 2009 at 13:02 UTC
use `Win32::GetFolderPath` ... `use Win32 qw( CSIDL_PERSONAL ); my $my_documents_path = Win32::GetFolderPath(CSIDL_PERSONAL);` [download]	[reply] [d/l]