プロセスは別のプロセスで使用されているため、ファイルにアクセスできません。コード：80070020、VBScriptの

Question

私は私のVBScriptを実行すると、それは（Windowsスクリプトホストでは）言う：

---

C：\ Users \ユーザー管理\デスクトップ\ Test.vbsを

ライン：34

文字：1

エラー：プロセスが別のプロセスで使用されているため、ファイルにアクセスできません。

コード：80070020

出典：（ヌル）

---

どのように私はこの問題を解決することができるだろうか？また、ここでのヘルプから

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Dim objFSO, objFolder, objShell, objFile 
Dim strDirectory, strFile 
strDirectory = "c:\Folder" 
strFile = "\Hidden.bat" 
If objFSO.FolderExists(strDirectory) Then 
    Set objFolder = objFSO.GetFolder(strDirectory) 
Else 
Set objFolder = objFSO.CreateFolder(strDirectory) 
End If 


If objFSO.FileExists(strDirectory & strFile) Then 
Set objFolder = objFSO.GetFolder(strDirectory) 
Else 
Set objFile = objFSO.CreateTextFile(strDirectory & strFile) 
End If 

set objFolder = nothing 
set objFile = nothing 

Const fsoForAppend = 8 

Set objFSO = CreateObject("Scripting.FileSystemObject") 

Dim objTextStream 
Set objTextStream = objFSO.OpenTextFile("C:\Folder\Hidden.bat", fsoForAppend) 

objTextStream.WriteLine "attrib ""Folder"" +s +h" 

Set objShell = WScript.CreateObject("WScript.Shell") 
objShell.Run """C:\Folder\Hidden.bat""" 
Set objShell = Nothing 

Answer 1

：

Option Explicit 
Dim objFSO,objFolder,strDirectory,Command,Result,objShell 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
strDirectory = "C:\Folder" 

If objFSO.FolderExists(strDirectory) Then 
    Set objFolder = objFSO.GetFolder(strDirectory) 
Else 
Set objFolder = objFSO.CreateFolder(strDirectory) 
End If 
set objFolder = nothing 

Command = "Cmd /c Attrib +s +h "& DblQuote(strDirectory) &"" 
Set objShell = CreateObject("WScript.Shell") 
Result = objShell.Run(Command,0,True) 
Set objShell = Nothing 
'**************************************************************** 
Function DblQuote(str) 
    DblQuote = Chr(34) & Str & Chr(34) 
End Function 
'**************************************************************** 

Answer 2

Closes an open TextStream file.

object.Close 

...スクリプトです。

使用する前に、書き込み後に閉じる必要があります。あなたのフォルダを非表示にする任意のバッチファイルを作成せずに