CODE: [Copy to clipboard]
Dim WshSHell,FSO
On Error Resume Next
Set WshSHell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
if (FSO.FolderExists(FSO.BuildPath(WshSHell.SpecialFolders("Desktop") ,chr(41377)))) Then
WshSHell.popup "您要生成的文件夹已经存在,将退出。"&vbcrlf&vbcrlf&"5 秒后本窗口自动关闭!",5, "建立特殊名称文件夹 - QQ:25926183", 0 + 48
else
Set Folder = FSO.CreateFolder(FSO.BuildPath(WshSHell.SpecialFolders("Desktop") ,chr(41377)))
WshSHell.popup "您的文件夹保存于桌面,请注意查收。"&vbcrlf&vbcrlf&"5 秒后本窗口自动关闭!",5, "建立特殊名称文件夹 - QQ:25926183", 0 + 48
end if