Path = CreateObject("Shell.Application")._
    NameSpace("shell:Common Documents\NAME\logs").Self.Path

вместо громоздкого и не вполне корректного:

Path = FSO.BuildPath(_
    CreateObject("Shell.Application")._
      NameSpace("shell:Common Documents").Self.Path, _
    "NAME\logs"_
  )

На всякий случай изменил #3 с учётом ".LOG" и "%CommonDocuments%".

Огромное спасибо!!

PS я брал отсюда:

PS Может, если по другому нельзя, перед выполнением основной части скрипта просто удалять лишние файлы из директории?
Не соображу, как использование регулярных выражений привязать к имени и расширению файла.

Я в ступоре :-(

Переменная-то есть (Windows у меня)

Значит, нет такой переменной окружения, Вы её выдумали .

Естественно: нет переменной — нечего и разворачивать.

Наши тоже не лыком шиты : Серый форум / WSH: перечень предопределённых символьных имён Shell.Application. Ваше имя — «shell:Common Documents». Однако же это не переменная окружения.

C:\Users\DVS>set CommonDocuments
Переменная среды CommonDocuments не определена

Странно...

А Ваш скрипт выдаёт кстати:

%CommonDocuments%\NAME\logs

Но - моя наработка заработала как надо...

Спасибо ещё раз!!

Option Explicit

 Const COMMONDOCUMENTS = &H2e 
 Dim objShell : Set objShell = CreateObject("Shell.Application") 
 Dim objFolder : Set objFolder = objShell.Namespace(COMMONDOCUMENTS) 
 Dim objFolderItem : Set objFolderItem = objFolder.Self 
 Wscript.Echo objFolderItem.Path

Dim P1 : P1 = objFolderItem.Path
Const P2 = "\NAME\logs"
Dim PATH : PATH = P1 + P2
 
Wscript.Echo PATH

И т.д...
Всё работает!  :-)

Всем огромное Спасибо за помощь!!

Завтра буду в божеский вид скрипт приводить...

Людям раздайте ... ярлык со строкой запуска скрипта

О чём я и говорю. Положить ярлык рядом со скриптом, в поле "Объект" вписать след. конструкцию:

set CommonDocuments

в командной строке?

2. Если есть, то для использования в WSH её надо развернуть:

Const PATH = "%CommonDocuments%\NAME\logs"

Dim objWshShell

Set objWshShell = WScript.CreateObject("WScript.Shell")

WScript.Echo objWshShell.ExpandEnvironmentStrings(PATH)

А вообще: один вопрос — одна тема.

Const PATH = "%CommonDocuments%\NAME\logs"

в то время когда

Const PATH = "c:\Users\Public\Documents\NAME\logs"

прекрасно работает?

Не злоупотребляйте цитированием.

Я не удержался, чтоб не потестировать) Класс!

Спасибо. Делал для разминки.)

Параметры как раз создаются для удобства. Комстрока не только в cmd бывает, но и в кнопках тулбаров, ярлыках, что позволяет при одном скрипте иметь несколько вариантов для разных файлов/папок и значений переменных.

_D_V_S_ пишет:

А если в папке единственный .log , но есть файлы с другими расширениями?

Используйте:

    If  StrComp(.GetExtensionName(F), "log", 1) = 0 Then

отсюда.

Огромное спасибо!!

_D_V_S_ пишет:

Flasher пишет:

В моём скрипте именно так.

Ваш скрипт с параметрами.
А мне надо "без". Чтобы человек запустил его и увидел MsgBox :-)

Ну, Вы даете)
Вот как я тестировал сей скрипт (замена первой строки)

' With WScript.Arguments : Path = .Item(0) : N = .Item(1) : End With
Path = "c:\R\Develop\last_row_from_log\" : N = 5

Да Вы не допоняли...
Куча людей, у каждого свой лог.
Имена файлов - разные, но находятся они по одному пути.

По этому пути - единственный файл с раширением .log, но могут быть другие файлы с другими расширениями (грубо говоря - лишний мусор).

Эти люди должны просто запустить скрипт и увидеть MsgBox :-)