Help for this page
DWORD GetShortPathName( LPCTSTR lpszLongPath, // null-terminated path string LPTSTR lpszShortPath, // short form buffer DWORD cchBuffer // size of short form buffer );
use Win32::API; ... $shortname = substr($shortname,0,$retval); print "longname = \n\"$longname\", \nshortname = \n\"$shortname\"";
C:\temp>perl shortname.pl longname = ... shortname = "C:\PROGRA~1\MICROS~3\Office\OLREAD9.TXT" C:\temp>
www.com | www.net | www.org
No recent polls found