---

Hallo @all,

ich hab mich mit der VBA-Programmierung noch nicht beschäftigt, so daß ich bei einem Einzeiler schon meine Probleme habe.
Ich habe eine kleine Routine, die mir aus eine Textdatei den Inhalt einließt und einen gleichnamigen Ordner in einer definierten Verzeichnisstruktur erstellt. Das klappt soweit.
Wenn der Ordner allerdings schon existiert, dann sollte er keine Fehlermeldung bringen. Wenn dieser Fall eintritt, dann soll er gar nichts machen.
Ich poste man den Code der Routine :

Sub TESTTXTIN()

Dim Datei, zeichen As String
Dim Z, x As Integer

Datei = "D:\Daten\Order\LASSMICH.txt"
Z = FreeFile

Open Datei For Input As #Z    'Öffnet eine Datei zum Lesen
x = 1        'Zähler für die Zeile(da es wohl keine andere Möglichkeit gibt)

Line Input #Z, zeichen

Set fs = CreateObject("Scripting.FileSystemObject")

fs.createfolder ("D:\Daten\Order\" & zeichen & "")

Close #Z
       
End Sub

Für einen kleinen Anschub wäre ich sehr dankbar.
Gruß Kenny1

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

das "Scripting.FileSystemObject" hat auch eine Methode "folderexists",
also wenn nicht : fs.folderexists("D:\Daten\Order\" & zeichen & "")
           dann : fs.createfolder ("D:\Daten\Order\" & zeichen & "")

------------------
  - Thomas -
"Du bist einen uns unbekannten Weg in eine andere Form des Seins gegangen. - Wir sehen uns wieder in deinem Paradies! - Tschüß Axel.."

[Diese Nachricht wurde von CADmium am 03. Mrz. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Cadmium,

muß ich "fs.folderexists("D:\Daten\Order\" & zeichen & "")" irgenwie deklarieren ?
Wenn ich das so eingebe, kommt die gleiche Meldung.

Gruß Kenny1

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Kenny,

Code:

---

If Not fs.folderexists("D:\cad") Then
    'lege einen an
end if

---

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nancy,

danke, jetzt "funzt" es!

Gruß Kenny1

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP