文件夾使用VBScript

我被困在下面的腳本鎖定，請幫助文件夾使用VBScript

' Discover Current Drive Path 
    curDrv = objFSO.GetParentFolderName(WScript.ScriptFullName) 'Drive Path 
    ulpath = curdrv & "\Locker" 
    propath = curdrv & "\Control_Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" 
    passFile = curdrv & "\pass.txt" 
    If objFSO.FolderExists (propath) Then call Unlock 

    If Not objFSO.FolderExists (ulpath) Then 
    objFSO.CreateFolder (ulpath) 
    MsgBox "Folder Created Successfully" , vbInformation, "Process Success" & WScript.Quit 
    end if 
    If objFSO.FolderExists (ulpath) Then call Lock 
    WScript.Quit 

    Sub PassCreate 
    PSCR = InputBox ("Type a password to lock folder.       Do Not use blank password for your safety.") 
    IF PSCR="" then MsgBox "Password cannot be blank" , vbCritical, "Faulty" 
    IF PSCR="" & objFSO.FileExists(passFile) then 
    objFSO.DeleteFile(passFile) 
    end if 
    IF PSCR="" then call PassCreate 
    Set objFile = objFSO.CreateTextFile(passFile,True) 
    objFile.Write PSCR & vbCrLf 
    objFile.Close 
    End Sub 

    Sub Unlock 
    PSW = InputBox ("Please Enter your 10 digit Password.    Example : 9867123456") 
    Set objFile = objFSO.OpenTextFile(passFile) 
    Do Until objFile.AtEndOfStream 
    strLine= objFile.ReadLine 
    Loop 
    objFile.Close 
If not PSW=strLine Then MsgBox "Wrong Password" , vbCritical, "Illegal Operation" & WScript.Quit 
objFSO.MoveFolder propath , ulpath 
Set FO = objFSO.GetFolder(ulpath) 
FO.Attributes = FO.Attributes AND 0 
MsgBox "Folder Unlocked Successfully" , vbInformation, "Success Operation" & WScript.Quit 
End Sub 

Sub Lock 
Message = "Are you Sure you want" & vbCr & vbCr 
Message = Message & "to Lock the folder ?" & vbCr & vbCr 
X = MsgBox(Message, vbOKCancel, "Confirmation") 
If not objFSO.FileExists (passFile) then call PassCreate 

Select Case X 

Case vbOK 
objFSO.MoveFolder ulpath , propath 
Set objFolder = objFSO.GetFolder(propath) 
Set FL = objFSO.GetFolder(propath) 
FL.Attributes = FL.Attributes XOR -1 
MsgBox "Folder Locked Sucessfully." , vbInformation, "Process Success" 

Case vbCancel 
MsgBox "Nothing Done." , vbExclamation, "Process Aborted" 
End Select 

End Sub

在分passcreate如果密碼爲空，第一次沒有被寫入pass.txt所以沒有密碼created.I希望防止意外空白的密碼創建。如果在兩個輸入框上都選擇了取消，我不知道如何取消腳本執行。

來源

2010-02-14 Dario Dias

如果您找到解決方案，您可以將其添加到原始帖子中並將其標記爲編輯，或者回答自己的問題並在其中發佈代碼。 – Tester101 2010-02-16 13:02:30

爲什麼不能在這樣的循環索要密碼。

PSCR = "" 
DO While PSCR = "" 
    PSCR = InputBox ("Type a password to lock folder.       Do Not use blank password for your safety.") 
    IF PSCR="" then 
     MsgBox "Password cannot be blank" , vbCritical, "Faulty" 
    END IF 
Loop

這樣用戶將不得不輸入密碼才能繼續運行腳本。編輯：這應該做你想做的一切。

Sub TheScript 
    password = GetPassword 
    If password = "" Then Exit Sub 
    MsgBox password 
End Sub 

Function GetPassword 
    PSCR = "" 
    DO While PSCR = "" 
     PSCR = InputBox ("Type a password to lock folder. Do Not use blank password for your safety.") 
     If IsEmpty(PSCR) Then 
      MsgBox "Cancel Pressed" 
      Exit do    
     ElseIf PSCR = "" Then 
      MsgBox "Password cannot be blank" , vbCritical, "Faulty"    
     End If 
    Loop 
    GetPassword = PSCR 
End Function

來源

2010-02-15 13:33:50 Tester101

Tester101你的答案工作除了如果我想取消即不鎖定文件夾，我不能。我發現一個更好的解決方案，同時谷歌搜索，粘貼在這裏爲了方便像我這樣的其他新手。 Dim vResponse vResponse = InputBox（「Enter Name：」，「Data Entry」）If IsEmpty（vResponse）Then MsgBox「No data entered」，vbExclamation，「Cancel Pressed」ElseIf Len（vResponse）= 0 Then MsgBox「Ah！The man沒有名字。「，vbInformation，」確定按下「Else MsgBox」Greetings「」＆vResponse＆「'。」，vbInformation，「OK pressed」結束如果對不起，不知道如何粘貼腳本的腳本格式 – 2010-02-16 09:20:48

只是你在哪裏檢查，如果密碼爲空例如，以下條件使用exit sub：

IF PSCR="" then 
    MsgBox "Password cannot be blank" , vbCritical, "Faulty" 
    Exit Sub 
End If

來源

2010-02-14 19:27:25 Sarfraz

條件仍然存在。密碼爲空。 – 2010-02-15 09:27:34

文件夾使用VBScript

回答

相關問題