问: 您好,脚本专家!如何运行脚本取消隐藏文件夹中的所有文件? --GA 答: 您好,GA。您知道我们中的一位脚本专家在年少时和邻居家的其他小孩花费无数的时间玩各种捉迷藏。事实上,这位脚本专家仍清晰地记得躺在浅沟中,让其他组的人从他身上走过,却不知道他就在那儿。(这种方法如此奏效,以致于他正认真考虑在自己的办公室挖一条 Posted at 2013-7-9 by 佚名
''************************************************ ''File:Dialog.vbs(WSHsampleinVBScript) ''Author:(c)G.Born '' ''Usingtheshelldialogboxtoselectafolder ''****** Posted at 2013-7-9 by 佚名
OptionExplicit ''''''''''''''''''''''''''''说明'''''''''''''''''''''''' ''网盟-黑火制作,送给需要的朋友。 ''配置文件“Listfile.ini”的格式如下: ''要删除什么(文件|目录)=要执行删除的文件夹=排除1;排除2;排除3........ Posted at 2013-7-9 by 佚名
strComputer='.' SetobjWMIService=GetObject('winmgmts:'_ &'{impersonationLevel=impersonate}!\\'&strComputer&'\root\cimv2') SetcolFolders=objWMIService.ExecQuery_ Posted at 2013-7-9 by 佚名
OnErrorResumeNext dtmTargetDate='20020301000000.000000-420' strComputer='.' SetobjWMIService=GetObject_ ('winmgmts:''''&_ dtmtargetDate&'''') ForEachobjFolderin Posted at 2013-7-9 by 佚名
跨盘移动文件夹的怪问题 Set objFSO = CreateObject('Scripting.FileSystemObject') objFSO.MoveFolder 'C:\Scripts' , 'd:\2' 权限拒绝,但是copy就可以。可以采用变通的办法先复制再删除 ===================== Posted at 2013-7-9 by 佚名
|