Wie erstellt man einen Ordner und speichert dann eine generierte Textdatei in diesem Ordner in VBA?

Question

Ich möchte einen Ordner erstellen und dann meine automatisierte Textdatei in diesem Ordner in VBA speichern. Ich habe Code geschrieben, der automatisch eine Datei mit Daten darin erstellt und ich möchte die Datei in einem benutzerdefinierten Ordner speichern. Unten ist der Code, den ich versucht, aber es funktioniert nicht:

Sub test() 

'Declaring variables 
Dim equipID As String, destgroup As String, sourceparmname As String, descript As String 
Dim lsb As Integer, msb As Integer, signed As String, sformat As String, units As String 
Dim scalefact As Variant, numbits As Integer, decim As Integer 
Dim ssystem As String 
Dim vDB 
Dim FName As String, stream As TextStream 
Dim fso As Scripting.FileSystemObject, NewFolderPath As String 

'Retrieve Target Folder Path From User 
NewFolderPath = Application.GetSaveAsFilename("") 


Set fso = New Scripting.FileSystemObject 
If Not fso.FolderExists(NewFolderPath) Then 
    fso.CreateFolder NewFolderPath 
    End If 

'Create txt file 
    Set stream = fso.CreateTextFile("NewFolderPath\test.txt") 

.......... 

ich irgendwelche Eingänge/Vorschläge schätzen würde :)

Vielen Dank im Voraus!

Answer 1

Ihre Aussage

Set stream = fso.CreateTextFile("NewFolderPath\test.txt") 

versucht, eine Datei „test.txt“ im Ordner „NewFolderPath“ innerhalb des aktuellen Verzeichnisses zu erstellen.

Sie wollen

Set stream = fso.CreateTextFile(NewFolderPath & "\test.txt")