Total Commander

Flasher писал(а):

Тогда уж м.б. и дополнять, а не заменять?

Да, такое поведение устроит.

Flasher писал(а):Пустые строки можешь сделать между всеми подкаталогами, а не только папками, что в корне?

Tol!k писал(а):Можно и заменять. Сделать?

Tol!k писал(а):Теоретически можно. Если не получится запихнуть в кнопку, батник устроит?

Tol!k писал(а):Уникод или вин-1251 предпочтительнее?

Jonmey писал(а):А возможно сделать, чтобы в параметрах кнопки задавалось в каком формате выводить список - Unicode или Win-1251 (или ANSI, то есть равный локали системы)?

Batya писал(а):FSO.CreateTextFile(TargetList, True, True).Write List

Jonmey писал(а):И если файл со списком уже существует, то создавался новый файл? (например, если FileList.txt уже есть в целевой папке, то новый список записывался, например, в файл FileList2.txt и так по порядку).

Function NextName(pFilePath)
  Dim lPath, lName, lExt, li, lAdd
  Const lQ = 1 'Минимальное количество цифр в номере
  With CreateObject("Scripting.FileSystemObject")
    lPath = .GetParentFolderName(pFilePath)
    If lPath <> "" Then lPath = lPath & ""
    lName    = .GetBaseName(pFilePath)
    lExt     = .GetExtensionName(pFilePath)
    NextName = lPath & lName & lAdd & "." & lExt
    Do While .FileExists(NextName)
      li = li + 1
      If li < 10^lQ Then
        lAdd = Right(String(lQ, "0") & li, lQ)
      Else
        lAdd = li
      End If
      NextName = lPath & lName & lAdd & "." & lExt
    Loop
  End With
End Function

Batya писал(а):FSO.CreateTextFile(NextName(TargetList), True, True).Write List

Batya писал(а):В функции CreateTextFile третий параметр отвечает за кодировку создавемого файла: True - Unicode, False - ASCII.

Flasher писал(а):Там же проверка нужна для запуска с разных осей. Стационар тут не подходит.

Batya писал(а):Ты это для чего сказал?

Batya писал(а):Ты используешь скрипт? У тебя в каких-то случаях возникают ошибки?

Jonmey писал(а):существенно упрощая ряд задач

Flasher писал(а):Для призыва поправить скрипт.

Flasher писал(а):Я его проверял только в одном месте. Работает.

Flasher писал(а):Например, каких?

Batya писал(а):С чего ты взял, что будут какие-то проблемы на различных ОС?

Jonmey писал(а):Unicode или Win-1251 (или ANSI, то есть равный локали системы)

Batya писал(а):Ты знаешь, как MS раскручивает используемый мной метод объекта FileSystemObject?

Batya писал(а):У каждого могут быть свои узкоспециализированные задачи. "Будто не понятно."

Flasher писал(а):Batya писал(а):
Ты знаешь, как MS раскручивает используемый мной метод объекта FileSystemObject?
Ну, расскажи. Зачем было писать про два режима подхвата кодировки, если с единожды указанным всё будет работать аналогично?

object.CreateTextFile(filename[, overwrite[, unicode]])
...
unicode
Optional. Boolean value that indicates whether the file is created as a Unicode or ASCII file. The value is true if the file is created as a Unicode file, false if it's created as an ASCII file. If omitted, an ASCII file is assumed.