%SystemDrive%\ ProgramData \ Microsoft \ Windows \caching获取创build时执行VB脚本

我需要在Windows 7的StartMenu Group中的C:\ ProgramData \ Microsoft \ Windows \ Start Menu \ Programs中创build一些快捷方式。

我首先在桌面上创build快捷方式,然后将它们复制到C:\ ProgramData \ Microsoft \ Windows \ Start Menu \ Programs \位置。 快捷键从这里正常工作,但我所看到的奇怪的是,从我运行我的程序的位置创build文件夹结构,执行我的脚本后,文件夹结构看起来像这样

%SystemDrive%\ProgramData\Microsoft\Windows\Caches 

我正在执行从我的Java程序使用的VBScript

 Process p = Runtime.getRuntime().exec(cmd, env); result = p.waitFor(); 

cmd这里是wscript.exe (path of temp file which is the vbscript) env是我传递给vb脚本的参数

我的VBScript如下

 set WshShell = WScript.CreateObject("WScript.Shell") Set WshEnv = WshShell.Environment("Process") startMenu = WshShell.SpecialFolders("AllUsersStartMenu") shortcutPath=WshShell.ExpandEnvironmentStrings("%shortcut_path%") type=WshShell.ExpandEnvironmentStrings("%type%") mydir = "\Programs\" & type & "\" program_dir = startMenu & mydir Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FolderExists(program_dir) = 0) Then execCommand = "C:\Windows\system32\cmd.exe /C md """ & program_dir & "" Set execStatus = WshShell.Exec(execCommand) ' command md take a time, this can be fail for .Save If execStatus.Status = 0 Then WScript.Sleep 1000 End If End If Set fs1 = CreateObject("Scripting.FileSystemObject") If (fs1.FolderExists(program_dir)) Then fs1.CopyFile shortcutPath,program_dir End If Set fs1 = Nothing 

我没有太多的想法,为什么发生这种事情,并不总是发生。 任何帮助,以防止这将不胜感激,我知道我可以删除该文件夹,但我真的不想这样做,除非这是最后的手段。

谢谢

Solutions Collecting From Web of "%SystemDrive%\ ProgramData \ Microsoft \ Windows \caching获取创build时执行VB脚本"