Подсчет файлов в папке

[Palomnik1096]

Добрый день! просто код для подсчета файлов в папке, в папке один файл с макросом, однако при подсчете выдает 2, если два файла, то считает, что 3, почему так не понимаю.

Public Sub Total_Workbooks_in_File()
Dim NamePath As String, NumberOfFiles As Integer, FilePath As Object

    NamePath = ThisWorkbook.Path
    Set FilePath = CreateObject("Scripting.FileSystemObject")
    NumberOfFiles = FilePath.GetFolder(NamePath).Files.Count

End Sub

[Serge_Bliznykov]

вы определяете количество файлов в папке с макросом.
Однако, когда Excel открывает файл, он создаёт в папке с файлом ещё один файл (временный). Его программа тоже подсчитывает:
excel2.png

[Hugo121]

А если будут открыты оба файла - то покажет что 4 (что и верно). Это я к тому, что тупо -1 не годится.
А ещё бывает, что эти временные после закрытия файлов не убиваются...

[Казанский]

Напомнило (http://anekdotov.net/anekdot/all/ktmtbrdplchsskl.htm)

Отправили на работы за территорию военной части 4-х бойцов и прапора. После окончания работ прапор построил бойцов и считает: — Раз, два, три, четыре. Нас было пятеро. Где пятый? Ищем пятого. Разойдись. Проходит 10 мин. Опять построение, та же история, команда "Разойдись. Ищем пятого". После третьего построения один боец говорит: — Товарищ прапорщик, давайте я посчитаю, а Вы становитесь в строй. Считает: "Раз, два, три, четыре, и показывая на себя — ПЯТЬ. Прапор подходит к этому бойцу, отвешивает ему подзатыльник и говорит: — Так, это мы тебя, урод, полчаса искали!

[Serge_Bliznykov]

Сообщение от Казанский

Так, это мы тебя, урод, полчаса искали!

[Serge_Bliznykov]

Сообщение от Palomnik1096

просто код для подсчета файлов в папке

а для чего это Вам? Что за файлы Вы хотите подсчитать, почему в папке, где лежит файл с макросом и какую задачу Вы пытаетесь решить?

[Palomnik1096]

Сообщение от Serge_Bliznykov

вы определяете количество файлов в папке с макросом.
Однако, когда Excel открывает файл, он создаёт в папке с файлом ещё один файл (временный). Его программа тоже подсчитывает:
Вложение 94637

Спасибо!))

[Serge_Bliznykov]

Сообщение от Palomnik1096

Спасибо!))

да вот уж не за что!