Can you be more specific? Maybe provide a code sample and point out where the actual problem is?
Try the following script which just gets all subdirectories and prints their name out.Does it work for the directory in question?
use Win32::OLE qw(in); Win32::OLE->Option(CP => Win32::OLE::CP_UTF8); $obj = Win32::OLE->new('Scripting.FileSystemObject'); $folder = $obj->GetFolder("."); $collection= $folder->{SubFolders}; foreach $value (in $collection) { $foldername= %$value->{Name}; $folder=$obj->GetFolder("$foldername"); print (Win32::FormatMessage(Win32::OLE->LastError())|| "$foldernam +e"); }
In reply to Re^3: Opening files with japanese/chinese chars in filename
by nikosv
in thread Opening files with japanese/chinese chars in filename
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |