0

何らかの理由で、次のコードが機能しません... VBS を学習しようとしており、Google のリソースからいくつかのコードをつなぎ合わせています。なぜこれを機能させることができないのかわかりません。

Option Explicit
Dim objNetwork, objComputer
Dim objFSO, objFSOText, objFolder, objFile
Dim strDirectory, strFile, MakeObject

strDirectory = "C:\test"
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(strDirectory) Then
Wscript.Echo strDirectory & " already exists"
Else
Wscript.Echo "The folder " & strDirectory & " does not exist"
Wscript.Echo "The folder " & strDirectory & " has just been created"
End if

Wscript.Quit
4

2 に答える 2

1

エッケハルト・ホーナーが言おうとしているのは、次のことだと思います。

スクリプトに次を追加すると、機能します。初歩的なミスですが、頑張ってください。

objFolder = objFSO.CreateFolder(strDirectory) を設定します。

これが、追加されたコードとそれを追加する場所のメモを含むスクリプトです...

Option Explicit
Dim objNetwork, objComputer
Dim objFSO, objFSOText, objFolder, objFile
Dim strDirectory, strFile, MakeObject

strDirectory = "C:\test"
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(strDirectory) Then
Wscript.Echo strDirectory & " already exists"
Else
Wscript.Echo "The folder " & strDirectory & " does not exist"
'Below is the added line
Set objFolder = objFSO.CreateFolder(strDirectory)
Wscript.Echo "The folder " & strDirectory & " has just been created"
End if

Wscript.Quit
于 2013-02-14T21:38:29.633 に答える
0

C:\ にフォルダーを作成することを許可されている (または許可されるべきである) かどうかの質問を無視します。

objFSO.CreateFolder strDirectory

(おそらくWScript.Echo、Elseブランチのこれら 2 つの間) 何も起こりません。

于 2013-02-14T19:31:29.633 に答える