用vbs创建隐藏的txt文件

Question

我目前有一个vbscript，它在目录中创建一个txt文件并打开它，但我喜欢将其隐藏起来，现在我有这个代码：

Set objFSO=CreateObject("Scripting.FileSystemObject")
outFile="C:UsersUserDesktopNew map"
Set objFile = objFSO.CreateTextFile(outFile,True)
objFile.Write "test line 1" & vbCrLf
objFile.Write "test line 2" & vbCrLf
objFile.Close
CreateObject("WScript.Shell").Run("""C:UsersUserDesktopNew map""")

Answer 1

您可以像这样设置属性

Const cHidden = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
outFile = "C:UsersUserDesktopNew map"
Set objFile = objFSO.CreateTextFile(outFile, True)
objFile.Write "test line 1" & vbCrLf
objFile.Write "test line 2" & vbCrLf
objFile.Close
Set mapFile = objFSO.GetFile(outFile)
mapFile.Attributes = cHidden
CreateObject("WScript.Shell").Run Chr(34) & outFile & Chr(34)

快速参考-->https://www.thevbprogrammer.com/ch06/06-09-fso.htmhttps://ss64.com/vb/filesystemobject.html