小编Sim*_*mon的帖子

我需要创建vbscript,它将创建新文件夹'test'和子文件夹'Output'.已经有一个文件夹结构C:\ Documents and Settings\All Users\Application Data\Fmwire,我需要在这些结构下创建test\Output

我已经创建了这样的vbscript但是我得到了这样的错误

错误:找不到路径代码:800A004C源:Microsoft VBScript运行时错误

Const OSCPATH = "\Fmwire\test\Output"
Const ALL_USERS_APPLICATION_DATA = &H23&

Dim fso                 ' File System Object
Dim objApplication      ' Application object
Dim objFolder           ' Folder object
Dim objFolderItem       ' FolderItem object
Dim fname               ' Path to Settings folder 






                Set objApplication  = CreateObject("Shell.Application")
                Set objFolder = objApplication.Namespace(ALL_USERS_APPLICATION_DATA)
                Set objFolderItem = objFolder.Self
                fname = objFolderItem.Path & OSCPATH

                Set fso = CreateObject("Scripting.FileSystemObject")
                If fso.FolderExists(fname) Then
                Set objFolder = fso.GetFolder(fname)
                Else
                Set objFolder = fso.CreateFolder(fname)
                   If Err …