Ausgabe in Datei

  • Allgemein

    Ausgabe in Datei

    Hallo,

    falls dieser post hier fehl am platze ist oder es schon etwas zu meinem problem gibt, möchte ich mich im Vorfeld schonmal entschuldigen - allerdings habe ich nichts passendes finden können.

    Mein Problem ist folgendes: Ich habe ein Skript, welches die Ordner und deren Dateien/Unterordner sowie wiederum deren Dateien/Unterordner usw usw ausgibt. Diese Ausgabe möchte ich zusätzlich in eine Textdatei schreiben. Der Befehl > blabla.txt via "Ausführen" ist allerdings keine Option, denn ich möchte per Input-Box einen Dateinamen festlegen können, mit dem die Ausgabe gespeichert werden soll.
    Mein Code dazu sieht bisher so aus:

    VB.NET-Quellcode

    1. ' Variablendeklaration erzwingen
    2. Option Explicit
    5. DIM objFSO
    6. DIM objFolder
    7. DIM objFileCollection
    8. DIM objFolderCollection
    9. DIM objFile
    10. DIM objSubfolder
    12. DIM strStartFolder
    13. DIM strOutputName
    18. ' Instanziieren des filesystemobject
    19. Set objFSO = CreateObject("Scripting.FileSystemObject")
    21. ' Festlegen des Suchordners als String
    22. strStartFolder = inputbox("Zu durchsuchender Ordner:")
    25. ' Festlegen des Speichernamen als String
    26. strOutputName = inputbox("Speichern unter dem Namen:")
    27. Set objFile = objFSO.CreateTextFile(strStartFolder & "\" & strOutputName)
    28. objFile.writeLine(wscript.echo)
    30. ' Instanziieren eines Folder-Objektes
    31. Set objFolder = objFSO.GetFolder(strStartFolder)
    35. ShowAllElements objFolder
    39. Sub ShowAllElements (objFolderInSub)
    40. ' Instanziieren einer File-Collection
    41. Set objFileCollection = objFolderInSub.Files
    43. For Each objFile in objFileCollection
    44. wscript.echo objFile.Path
    45. wscript.echo vbTab & "Größe (in Bytes):" & vbTab & objFile.size
    46. wscript.echo vbTab & "Erstelldatum:" & vbTab & vbTab & ObjFile.DateCreated
    47. wscript.echo vbTab & "Letzte Änderung:" & vbTab & ObjFile.DateLastModified
    48. wscript.echo
    49. Next
    52. ' Instanziieren einer Folder-Collection
    53. Set objFolderCollection = objFolderInSub.SubFolders
    55. For Each objSubfolder in objFolderCollection
    56. ShowAllElements objFSO.GetFolder(objSubfolder)
    57. Next
    58. End Sub


    Soo...wie ihr vielleicht sehen könnt wird der Dateiname per inputbox gewählt. Vom Pfad der zu verarbeitenden Ordner hängt auch der Pfad der "logdatei" ab, denn dahin wird diese gespeichert. So wie ich das sehe sind die beiden Zeilen

    VB.NET-Quellcode

    1. Set objFile = objFSO.CreateTextFile(strStartFolder & "\" & strOutputName)
    2. objFile.writeLine(wscript.echo)

    dafür verantwortlich, aber wenn ich das programm laufen lasse erzeugt es momentan natürlich verständlicherweise nur ein leeres dokument...und ich will wie gesagt einen kompletten mitschnitt von dem, was das Programm ausgibt.

    vielen Dank schonmal,
    mfg