Два вопроса и я опозорен.

[Leon144]

Всем приятного время суток! Вопросы в следующем: 1. Есть filesystemwatcher и listbox в котором находятся раем ше маски файлов. Нужно чтобы Вотчер отслеживал все файлы указанные в этом списке? Ломаю голову вторую неделю. 2 имеем путь : c:\windows\1.exe, как его разделить непосредственно на там путь, без имени файла и на само имя и отправить на разные лейблы? Знаю, мне самому стыдно за такие вопросы, но что делать. Заранее благодарю за помощь.

[Nord777]

2 имеем путь : c:\windows\1.exe......

System.Io.Path.Get...

[Calhoon]

System.Io.Path.Get работает, если файл существует. Вот вариант для несуществующих файлов (т.е. имеется некий путь к файлу, и нужно получить из него, скажем, имя без расширения)
Писал давно функцию, еще на VB6, для получения частей пути, и не важно, существует ли файл на машине, нужно тупо разрезать полный путь на части. Код, думаю, стоит немного улучшить (три парамтра boolean как-то не очень по мне), но так все работает.

Код: Выделить всё

    '============================================================'
    ' функция извлекает из полного пути файла нужную часть       '
    '------------------------------------------------------------'
    ' работает для несуществующих файлов, где Dir() не применить '
    '============================================================'
    Public Function CutFileTitle(ByVal FileName As String, ByVal bPath As Boolean, ByVal bName As Boolean, ByVal bExt As Boolean) As String
        CutFileTitle = ""
        Dim n As Integer = Len(FileName)

        Do
            If Mid$(FileName, n, 1) = "\" Then
                If bPath Then CutFileTitle = Mid$(FileName, 1, n)
                Exit Do
            End If
            n = n - 1
        Loop Until n = 0

        If (n + 1) <= Len(FileName) Then
            FileName = Mid$(FileName, n + 1) 'после слеша еще что-то есть, отделяем
            For n = Len(FileName) To 1 Step -1
                If Mid$(FileName, n, 1) = "." Then
                    If bName And n > 1 Then CutFileTitle = CutFileTitle & Mid$(FileName, 1, n - 1)
                    If bExt And n < Len(FileName) Then CutFileTitle = CutFileTitle & Mid$(FileName, n)
                    Exit Function
                End If
            Next n
            If bName Then CutFileTitle = CutFileTitle & FileName
        End If
    End Function

[MIT]

System.Io.Path.Get работает, если файл существует.

Не правда.

[Calhoon]

Не правда.

пошел проверять

[Dmitry81]

а че там проверять. Прекрасно работает и без наличия файла (с абстрактной строкой пути).