Сценарий объект файловой системы - не удается написать текст и создать объект файла

Question

У меня есть большинство кодов, но я не могу его запустить. Некоторая основная информация состоит в том, что мое имя пользователя nywongab, я хочу, чтобы это был текстовый файл и текстовый файл, размещенный на рабочем столе. Спасибо

Sub createsth()        
    Dim abbyFilesystem As filesystemobject    
    Dim abbyfile As File

    Set abbyFilesystem = CreateObject("scripting.filesystemobject")   
    Set abbyfile =_
        abbyFilesystem.createtextfile("C:\Users\nywongab\Desktop"_ 
        & ".txt")_

    Dim result As String
    result = "A"

    abbyfile.write (result)
End Sub

Answer 1

Не совсем понятен вопрос .. хотя из темы у вас проблемы с записью в файл.Из кода, очевидно, не работает, но вы были близки.

Если вы пытаетесь получить имя пользователя или путь к рабочему столу более динамично, вы можете использовать Environ примерно так:

Sub createsth()

Dim pathDesktop As String
pathDesktop = Environ("USERPROFILE") & "\Desktop\"

Dim pathSave As String
pathSave = pathDesktop & Environ("USERNAME") & ".txt"

Dim abbyFileSystem As Object
Set abbyFileSystem = CreateObject("Scripting.FileSystemObject")

Dim abbyFile As Object
Set abbyFile = abbyFileSystem.CreateTextFile(pathSave)

Dim result As String
result = "A"

abbyFile.Write result
abbyFile.Close

End Sub