Inhalt einer Textdatei als Ordner wiedergeben

  • VBScript

Es gibt 42 Antworten in diesem Thema. Der letzte Beitrag () ist von Sachsenbauch.

    WScript.Echo "Folgende Ordner sind bereits vorhanden:" & vbcrlf & lustigerausgabestringboese & vbcrlf & vbcrlf & "Diese
    Ordner wurden neu erstellt:"     & vbcrlf & lustigerausgabestringgut

    das muß auf einer Zeile stehen im Editor also du darfst keinen Zeilenumbruch von Hand machen

    wenn du einen Zeilenumbruch im Quelltext machen willst würde das so aussehen

    WScript.Echo "Folgende Ordner sind bereits vorhanden:" & vbcrlf & lustigerausgabestringboese & vbcrlf & vbcrlf _

    & "Diese Ordner wurden neu erstellt:" & vbcrlf & lustigerausgabestringgut

    Variante

    Der Basti hat sich ganz toll Mühe gegeben und ich habe das Script gleich übernommen.
    Man kann übrigens auch die Unterordner im aktuellen Ordner anlegen. Man muß nur den Pfad weglassen - einzige Voraussetzung: der Weg (Pfad) zur "Ordnerliste" muss stimmen, also vorhanden sein:

    Visual Basic-Quellcode

    1. Const ForReading = 1
    2. Set objFSO = CreateObject("Scripting.FileSystemObject")
    3. dim ZeileTemp , objFolder
    4. dim lustigerausgabestringboese
    5. dim lustigerausgabestringgut
    6. FileName = "Ordnerliste.txt"
    7. Set objTextFile = objFSO.OpenTextFile(FileName, ForReading)
    8. Do Until objTextFile.AtEndOfStream
    9. ZeileTemp = objTextFile.Readline
    10. if zeileTemp <> "" And Not objFSO.FolderExists(ZeileTemp) then
    11. objFSO.CreateFolder(ZeileTemp)
    12. lustigerausgabestringgut = lustigerausgabestringgut & ZeileTemp & vbcrlf
    13. elseif objFSO.FolderExists(ZeileTemp) then
    14. lustigerausgabestringboese = lustigerausgabestringboese & ZeileTemp & vbcrlf
    15. end if
    16. Loop
    17. objTextFile.Close
    18. WScript.Echo "Folgende Ordner sind bereits vorhanden:" & vbcrlf & lustigerausgabestringboese & vbcrlf & vbcrlf & _
    19. "Diese Ordner wurden neu erstellt:" & vbcrlf & lustigerausgabestringgut

    In der Messagebox erscheinen dann eben nur die Ordnernamen ohne Pfad, so wie's in der Textdatei steht.
    Übrigens lassen sich in die Textdatei auch andere Wunschpfade eintragen, z.B. "E:\Dokumente\Privat" oder "Z:\wiebelrin\G". Das Script arbeitet wie ein Batch.
    8|