怎样使用vbs/bat对一个文件夹加密

Set Args = WScript.Arguments Set FSO = CreateObject("Scripting.FileSystemObject") strPath = CreateObject("Wscript.Shell").CurrentDirectory Set ReadFile = FSO.OpenTextFile(Args(0), 1) ReadAllText = ReadFile.ReadAll ReadFile.Close F