Считывание имён файлов

[valerij]

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

Вставь этот код в чистый файл, и проверь.

Вставил, ошибки нет, но я вставляю в файл в аттаче, тогда ошибка.
Вставил отдельно синие строчки, все работает, а общего размера папки, НЕТ

[EducatedFool]

Не понимаю, что тут сложного?

[valerij]

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

Не понимаю, что тут сложного?

Да то для тебя, а для меня....
А точность, мона менять, а то расхождение с Свойством папки, ну то ладно

[maxopking]

спасибо. очень помогло

[bygaga1]

а как сделать чтоб в соседнем столбце выдавало не путь с названием, а часть названия файла (например, \\servak\Documents\(Магазин обуви)+++.doc, а надо просто Магазин обуви) ?

[DiemonStar]

A = Split(FileName, "\")
A = Split(A(UBound(A)), ".")
MsgBox A(0)

можно так сделать...

[bygaga1]

ааа... куда этот код вписать?%)
в смысле, в какое место на примере файла "Просмотр содержимого папки.rar"?

[DiemonStar]

Блин, сразу не понял о чём Вы. В данном случае можно пойти двумя путями:
1) написать парсер имён файлов, который вычленяет только нужную Вам информацию по сделанным вами критериям (о которых можно только догадываться)
2) удалить все лишние символы из имени файла (но тут опять непонятно, какие имена вы планируете обрабатывать)

[bygaga1]

А разве нельзя задать параметр типа все буквы с пробелами после последней косой линии \, то есть если есть путь \\servak\Комп\Documents\(Магазин обуви)+++.doc, то после последнего знака "\" вывести в ячейку все буквы с пробелами без плюсов и "()", ну хотя би без плюсов?

[doober]

Юзайте

Function FileName(s)
Dim RegEx As Object
Set RegEx = CreateObject("VBScript.RegExp")
    With RegEx
        .Global = False
        .Pattern = "[(](.*)[)]"
    
    End With
          If RegEx.Test(s) Then
            Set oMatches = RegEx.Execute(s)
             oMatch = oMatches(0).SubMatches(0)
             FileName = oMatch
             Exit Function
    End If
    FileName = "No"
End Function