---

Morgen,
Ich will mir einer String eingabe (zb:7630-02/01) mit den ersten vier Stellen einen Ordner erstellen aber als Ergebnis erhalte ich immer NIL.
Kann mir jemand helfen wie ich dieses Problem gelöst bekomme.
Hier der Auszug aus dem Programm:
(defun C:test ()
(vl-load-com)
(setq MBLNR (getstring "\nMappenblattnummer eingeben (Eingabeformat z.B: 7630-02/1): "))
(setq NR1234 (substr MBLNR 1 4))
(setq testpfad (strcat "C:\\TEST\\G" NR1234 "\\"))
(vl-mkdir testpfad)
)

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

---

hallo aufi,
ich geh mal davon aus, das das verzeichnis "test" noch nicht existiert.
du musst als erstes
(vl-mkdir "c:\\TEST")
ausführen und dann
(vl-mkdir (strcat "C:\\TEST\\G" NR1234 "\\"))

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

---

Morgen,

Code:

---

(defun mkdir (dirname / pos mddir)
  (if (and
(setq pos (vl-string-position 92 dirname))
(setq mddir (substr dirname 1 pos))
      )
    (while pos
      (setq pos   (vl-string-position 92 dirname (+ pos 1))
    mddir (substr dirname 1 pos)
      )
      (if (not (vl-directory-files mddir))
(vl-mkdir mddir)
      )
    )
  )
)

---

(mkdir "C:\\test\\test1\\test2\\")
(mkdir <deinstring> )

ein paar Abfragen und Rückmeldungen fehlen noch...

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."   (www.uni-leipzig.de/~rotheh/elefant.htm)

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

---

Danke für die schnellen Antworten, jetzt hats geklappt, Ihr bekommt von mir 10 Unities !!

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