Scripting file system object - fail to write text and create file object

Question

I have most of the codes but cannot run it. Some basic info is that my username is nywongab, I want it as a text file and the text file placed on the desktop. Thanks

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

First issue: have you added the required reference? Second issue: your file path\name is incomplete — chris neilsen
– chris neilsen, Commented May 26, 2019 at 20:00

FAB · Accepted Answer · 2019-05-26 20:24:01Z

1

Not quite clear the question.. though from the subject you have a problem with writing to file. From the code is obviously not working, but you were close.

If you are trying to get the username or the desktop path more dynamically, you can use Environ like so:

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

answered May 26, 2019 at 20:24

FAB

2,5791 gold badge12 silver badges22 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Scripting file system object - fail to write text and create file object

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related