VBScript code
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
FullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
PathName = Mid(FullName,1,Len(FullName)-Len(ScriptName))
Set SlashFolders = fso.GetFolder(PathName)
count=0
For Each objFo…
[/Quote]
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
FullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
PathName = Mid(FullName,1,Len(FullName)-Len(ScriptName))
Set SlashFolders = fso.GetFolder(PathName)
count=0
For Each objFolder In Sl…
[/Quote]
学习
VBScript code
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
FullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
PathName = Mid(FullName,1,Len(FullName)-Len(ScriptName))
Set SlashFolders = fso.GetFolder(PathName)
count=0
For Each objFo…
[/Quote]
对大侠的敬仰犹如滔滔江水连绵不绝,又如黄河泛滥一发不可收拾.