Создание файла с использованием скрипта Vb

Question

Мне нужен VB-скрипт, который создаст текстовый файл с именем «listitem» в C: \ Documents and Settings \ All Users \ Application Data \ second \ smartapp до C: \ Documents and Settings \ Все пользователи \ Данные приложения \ мы можем сделать это как 'CommonAppDataFolder'

Кто-нибудь знает об этом

Answer 1

Вот несколько советов для вас:

• Чтобы получить путь CommonAppData программным способом, используйте метод Shell.Namespace(35).(35 - идентификатор папки в соответствии с перечислением ShellSpecialFolderConstants .) См. этот вопрос для примера.
• Чтобы объединить два пути, используйте FileSystemObject.BuildPath метод.
• Для создания текстовых файлов вы можете использовать метод FileSystemObject.CreateTextFile.

Надеюсь, вы сможете управлять остальными самостоятельно.:)

Answer 2

ОК, посмотрим, смогу ли я вспомнить, как это сделать ...

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