使用Vb脚本创建文件

Question

我需要一个VB脚本，它将在C：\ Documents and Settings \ All Users \ Application Data \ secon \ smartapp中创建名为“listitem”的文本文件 至C：\ Documents and Settings \ All Users \ Application Data \我们可以将其设为'CommonAppDataFolder'

任何人都知道这个

Answer 1

好的，让我们看看我是否记得如何做到这一点......

Dim fso 'As Scripting.FileSystemObject
Dim stream 'As Scripting.TextStream

Set fso = CreateObject("Scripting.FileSystemObject")

'Check that the secon folder exists
If fso.FolderExists("C:\Documents and Settings\All Users\Application Data\secon") Then
Else
    fso.CreateFolder("C:\Documents and Settings\All Users\Application Data\secon")
End If

'Check that the smartapp folder exists
If fso.FolderExists("C:\Documents and Settings\All Users\Application Data\secon\smartapp") Then
Else
    fso.CreateFolder("C:\Documents and Settings\All Users\Application Data\secon\smartapp")
End If

'Create the file as ASCII text, overwrite it if it already exists
Set stream = fso.CreateTextFile("C:\Documents and Settings\All Users\Application Data\secon\smartapp\listitem.txt", true, false)

'Close it neatly
stream.Close

'Clean up
Set stream = Nothing
Set fso = Nothing

Answer 2

以下是一些提示：

• 要以编程方式获取CommonAppData路径，请使用Shell.Namespace(35)方法。 （35是根据ShellSpecialFolderConstants Enumeration的文件夹ID。）有关示例，请参阅this question。
• 要连接两个路径，请使用FileSystemObject.BuildPath方法。
• 要创建文本文件，您可以使用FileSystemObject.CreateTextFile方法。

希望你能亲自管理好自己。 ：）