---

Hallo,

ich möchte gerne eine Anwendung im Batch laufen lassen.
Nur habe ich nun folgene Fragen offen:

1.) wie kann man in einem bestimmten Verzeichnis alle Dateien in 
    einer txt Datei untereinander auflisten/anlegen lassen und so
    abspeichern.

2.) wie kann man:

wenn man z.B. in einer txt Datei folgene Angaben hat:

Blatt1.model
Blatt2.model
Blatt3.model

diese zeilenweise als eine Variable z.B. FileDataInhalt zuweisen?

Danke Euch
Feyza

------------------
   

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

---

Inputtest.zip

Hallo Feyza,

also ich benutze dafür immer die Input # und Print # Anweisungen.
Habe Dir mal ein Beispiel gemacht.
Viel Spaß damit

Gruß Andreas

------------------

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

---

Hallo Andreas,

danke für den Testscript.

Hier legst Du fest, wie die Dateien heissen sollen und da sind
noch Commandosklicks nötig, um eine txt Datei auszuschreiben.

Ich möchte von einem bestimmten Verzeichnis alle Dateien in einer txt Datei untereinander zusammenfassen.
Sagen wir mal, alle Dateien in C:\Temp\ mit der Endung .model

Kannst Du mit bitte dazu auch eine kleine Hilfestellung geben : ) ?!

Danke

------------------
   

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

---

Inputtest2.zip

Hallo,

da würde mir dann noch der Umweg über eine Filebbox einfallen.
Vielleicht kommt das ja Deinen Vorstellungen entgegen...

Gruß Andreas

------------------

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

---

Hallo Andreas,

leider konnte ich mir deinen Script immer noch nicht anschauen.... hoffentlich kriege ich es morgen hin : ))

Danke vorab mal : )

Feyza

------------------
   

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

---

Das kannste auch mit dem Dir-Befehl erreichen. Der Trick dabei ist, nur beim Ersten Mal den Pfad anzugeben. Danach nur noch mit DIR die weiteren Dateien auslesen.

Hier ein Beispiel

Code:

---

Public Sub test()
    Dim xStr As String
   
    xStr = Dir("C:\winnt\*.txt")
    Do
        Debug.Print xStr
        xStr = Dir
    Loop Until xStr = ""
    Debug.Print "Ende Liste"
End Sub

---

HTH Gruß Andy

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

---

Dein Problem mittlerweile gelöst ?

Gruß Andy

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

---

Hallo Andi,

noch nicht....... muss leider zuerst ein anderes Problem lösen.

Ich hoffe, das ich trotzdem bald Hilfestellung bekomme : )

Bis dann : )
Feyza

------------------
   

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