Wie kann man bei VBS ein Ordner mit Inhalt erstellen?

Es ist dringend, bitte helft mir! Außerdem soll man bestimmen können, wo er hin soll (Desktop, Private Dateien etc.)!

 

Entweder mit dem Common Dialog oder mit dem FSO-Objekt:
http://www.vbarchiv.net/workshop/workshop_40-fso-arbeiten-mit-dateien-und-ordner-teil-1.html.

 

Ich finde da nichts... Kann jemand da das wichtigste rausschreiben? Und wie kann man die Datei dann umbenennen?

 

Der Link von chipchap ist doch exzellent und sagt eigentlich alles was du willst. Lesen solltest du allerdings selbst auch wenn es dringend ist! Oder soll wer deine Aufgaben lösen?

 

Ich kann nicht so gut Englisch...

Und Google-Übersetzer zeigt nichts an, was ich will.

Da habe ich was verwechselt... Aber bei mir kommen nur Fehler... Und wie kann ich die Datei umbenennen?

EDIT von Feuerfux: Beiträge zusammengeführt. Künftig "Bearbeiten" nutzen.

 

Du brauchst kein Englisch. Du brauchst Eigeninitiative, steht doch alles in dem Link. Z.B.:

Dateien verschieben, umbenennen, kopieren und löschen
Das Umbenennen, Verschieben, Kopieren und Löschen von Dateien erfolgt analog der gerade beschriebenen Vorgehensweise für Ordner. Anstelle der ...Folder-Methoden verwenden Sie hierfür einfach die entsprechenden ...File-Methoden.

Datei umbenennen
Das Umbenennen einer Datei erfolgt über die MoveFile-Methode.

Nachfolgendes Beispiel benennt die Datei "test.txt" im Ordner F:\temp nach test1.txt um:

' Datei umbenennen
oFSO.MoveFile "f:\temp\test.txt", "f:\temp\test1.txt"

 

Zuerst das FSO einbinden:

Code:

' In Modul
' Verweis auf das FileSystemObject
Public oFSO As New FileSystemObject

Ordner erstellen:

Code:

' Existiert der Ordner?
If Not oFSO.FolderExists("F:\temp") Then
  ' Nein! Jetzt erstellen...
  If oFSO.CreateFolder("F:\temp") Then
    ' Ordner wurde korrekt erstellt!
  End If
End If

Text-Datei erstellen:

Code:

' Neue Textdatei erstellen. Falls vorhanden überschreiben!
Set oStream = oFSO.CreateTextFile(Filename, True)

So:

Code:

' Datei umbenennen
oFSO.MoveFile "f:\temp\test.txt", "f:\temp\test1.txt"

 

Danke!

 

Grundlegend kann man das so machen, obwohl es ...ich will nicht sagen falsch, aber sinnfrei ist.

Hier wird durch die zweite Schleife nochmal abgeprüft, ob der Ordner vorhanden ist. Nachdem aber der Ordner in der ersten Schleife erstellt wird, falls er nicht vorhanden ist, wird die zweite Schleife immer TRUE zurück werfen. Man kann sich die Schleife also in dem Fall gertost sparen.

Außerdem Ist eine IF Schleife in einer IF Schleife syntaktisch auch nicht korrekt. Wenn schon weitere Abfragen innerhalb der Schleife, dann mittels ElseIF oder direkt ELSE. Ansonsten die aktuelle Schleife abschließen und eine neue eröffnen. Gerade bei größeren Scripten ist es sinnvoll diesen IF If IF .... Fehler zu vermeiden. Sonst geht es ganz schnell und man verliert den Überblick. Oder vergisst mal ein End IF, oder setzt es zu früh. Was fatale Folgen hat. Und dann viel Spass bei der Fehlersuche ;-)

Code:

Public oFSO As New FileSystemObject

' Existiert der Ordner nicht? 
If Not oFSO.FolderExists("F:\temp") Then 
' dann erstelle ihn... 
End IF
'wenn er existiert mache hier weiter...

 

Klar ist das effektiver.

Aber der TO hat wohl noch nicht so die Routine im Programmieren.

Die ganze Fehlerbehandlung fehlt auch noch.