Kiểm tra xem thư mục là có, nếu không tạo ra nó trên người dùng hiện đăng nhập VBS

Question

Hiện nay đây là kịch bản của tôi

Set oWS = WScript.CreateObject("WScript.Shell") 
' Get the %userprofile% in a variable, or else it won't be recognized 
userProfile = oWS.ExpandEnvironmentStrings("%userprofile%") 

Những gì tôi đang cố gắng để làm là lấy người dùng hiện đã đăng nhập, tôi muốn nó để kiểm tra thư mục D: \ "personsuser" \ Appdata \ Roaming \ Local để xem thư mục "Local" có được tạo ra không, nếu nó không được tạo, tôi muốn tạo một thư mục thông qua createobject trong vbs. Các kịch bản trên từ những gì tôi biết lấy người dùng đăng nhập hiện tại, tuy nhiên tôi không chắc chắn làm thế nào để sử dụng biến này để tạo ra một thư mục.

Tôi biết tôi sẽ phải kết hợp một cái gì đó dọc theo những dòng:

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFSO.CreateFolder("C:\FSO") 

Và hoặc một cái gì đó dọc theo những dòng:

Dim objNetwork 
Dim userName 
Dim FSO 

Set FSO = CreateObject("Scripting.FileSystemObject") 

Set objNetwork = CreateObject("WScript.Network") 
userName = objNetwork.userName 

If fso.driveExists("D:\" & userName & "\AppData\Local\") Then 
    FSO.CreateDirectory ("D:\" & userName & "\AppData\Local\") 
End If 

Cảm ơn trước, không phải là rất quen thuộc với VBS tuy nhiên đó là nền tảng duy nhất tôi có thể hoạt động từ môi trường mà tôi đang sử dụng nó.

Answer 1

Set oWS = WScript.CreateObject("WScript.Shell") 
' Get the %userprofile% in a variable, or else it won't be recognized 
userProfile = oWS.ExpandEnvironmentStrings("%userprofile%") 

Dim objNetwork 
Dim userName 
Dim FSO 
Dim Folder 

Set FSO = CreateObject("Scripting.FileSystemObject") 

Set objNetwork = CreateObject("WScript.Network") 
userName = objNetwork.userName 

If NOT (FSO.FolderExists(userProfile + "\AppData\Roaming\Local")) Then 
    ' Delete this if you don't want the MsgBox to show 
    MsgBox("Local folder doesn't exists, creating...") 
    splitString = Split(userProfile, "\") 

    ' Create folder 
    MsgBox("D:\" + splitString(2) + "\AppData\Roaming\Local") 
    'FSO.CreateFolder(splitString(2) + "\AppData\Roaming\Local") 
End If 

Ở đây bạn hãy đến với con người, điều này sẽ hoạt động hoàn hảo, liên quan đến Daniel.