Vbscript 使用vbs创建隐藏的txt文件

Vbscript 使用vbs创建隐藏的txt文件,vbscript,hidden-files,Vbscript,Hidden Files,我目前有一个vbscript,可以在目录中创建一个txt文件并将其打开,但我想将其设置为隐藏该文件, 目前我有以下代码: Set objFSO=CreateObject("Scripting.FileSystemObject") outFile="C:\Users\User\Desktop\New map" Set objFile = objFSO.CreateTextFile(outFile,True) objFile.Write "test line 1" & vbCrLf obj

我目前有一个vbscript,可以在目录中创建一个txt文件并将其打开,但我想将其设置为隐藏该文件, 目前我有以下代码:

Set objFSO=CreateObject("Scripting.FileSystemObject")

outFile="C:\Users\User\Desktop\New 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:\Users\User\Desktop\New map""")

可以这样设置属性

Const cHidden = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")

outFile = "C:\Users\User\Desktop\New 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)
快速参考-->

参数to.Run需要引号。不要使用,请将值定义为命名常量。在这种情况下,
Const Hidden=2
Const ReadOnly=1
并像这样使用它们
mapFile.Atributes=Hidden+ReadOnly
@Ekkehard.Horner-我不知道OP正在创建什么类型的文件。如果它类似于批处理文件,则变量不需要引号。文件名包含空格的事实足以让它需要双引号来封装它。