[olga87]

Здравствуйте Уважаемые программисты!

Подскажите пожалуйста, как исправить код ниже, чтобы он работал с подкаталогом "C:\\Folder1\\Folder" (т.е. вместо "C:\\Folder1" работало "C:\\Folder1\\Folder")?
Заранее спасибо!

Код:

[Выделить все]

  (setq my_tool_path "C:\\Folder1")
  (setq my_tool_path_filename "1.txt")
  (setq my_tool_path_filename_full (strcat my_tool_path "\\" my_tool_path_filename))

  (setq file_paths_read_list nil)
  (if (null (vl-file-directory-p my_tool_path))
    (vl-mkdir my_tool_path)
      (cond
        (
          (findfile my_tool_path_filename_full)
            (setq file (open (princ my_tool_path_filename_full) "r"))
            (while (setq path_line_read (read-line file))
              (setq file_paths_read_list (append file_paths_read_list (list path_line_read)))
              (princ path_line_read)
            )
            (close file)
        )
        (
          t
        )
      )
  )

[Кулик Алексей aka kpblc]

Код:

[Выделить все]

 (defun _kpblc-dir-create (path / tmp) ;|
*    Гарантированное создание каталога.
*    Параметры вызова:
  path  создаваемый каталог
|;
  (cond ((vl-file-directory-p path) path)
        ((setq tmp (_kpblc-dir-create (vl-filename-directory path)))
         (vl-mkdir (strcat tmp
                           "\\"
                           (vl-filename-base path)
                           (cond ((vl-filename-extension path))
                                 (t "")
                                 ) ;_ end of cond
                           ) ;_ end of strcat
                   ) ;_ end of vl-mkdir
         (if (vl-file-directory-p path)
           path
           ) ;_ end of if
         )
        ) ;_ end of cond
  ) ;_ end of defun

[olga87]

Спасибо!