Set objFS = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
strCurrentDirectory = objShell.SpecialFolders("AllUsersDesktop")
Set objShell = CreateObject("She
它在wshShell.Run上崩潰。 你可以看到我運行了一個WScript.Echo,它打印了文件名的位置。當我運行它時,它說「系統找不到指定的文件」 我試過objFile.delete,但它說Permission denied。如果我在命令提示符下執行「del」,它就會起作用。 For Each objFile In colFiles
bMatch = objRE.Test(objFi
試圖計算可能是非常大的一個文件夾的大小,我用FileSystemObject.Size: #! perl
use strict;
use warnings;
use 5.10.0;
use File::Spec;
use Win32::OLE;
my $_fso;
sub folder_size {
my($folder) = @_;
$_fso = W