Существует ли файл?

[arthur2]

Dir не катит, поскольку путь может быть уникодным

Собственно, пользуюсь FindFirstFileW, но подозреваю, что есть способ проще... Или нету?

[arthur2]

Вопрос решен
Способ 3 (GetFileAttributes)

[Andrey Fedorov]

Dir не катит, поскольку путь может быть уникодным

С чего это функции VB перестали уметь работать с такими файлами?
Dir для данной цели лучше не использовать, но совсем по другой причине.

Собственно, пользуюсь FindFirstFileW, но подозреваю, что есть способ проще... Или нету?

Если чисто на VB:

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

Public Function IsFile(sFile As String) As Boolean
    On Error Resume Next
    IsFile = ((GetAttr(sFile) And vbDirectory) = 0)
    If Err.Number Then Err.Clear
End Function


Ну или FileExists метод объекта FileSystemObject.

[arthur2]

С чего это функции VB перестали уметь работать с такими файлами?

Прежде чем возразить, надо, наверное, попробовать? Даже проект не запустится из папки, если в пути есть уникодные символы. Бейсик напрочь не умеет работать с уникодными путями. Стандартными средствами можно открыть файл, содержащий в пути уникод, но нужно сначала преобразовать путь GetShortPathNameW. Ну а Dir на уникодном пути просто вываливается Как и GetAttr. Собственно, последней можно скормить преобразованный путь и она сможет не подавиться... но зачем, если GetFileAttributes даёт тот же результат без необходимости преобразовывать путь. Говорю же, вопрос решен

Да, для эксперементов не подходять пути, набранные по-русски, на русской машине они преобразуются к ANSI. Попробуй проверить на папках и файлах, в названии которых намешаны несколько языков. Что-нибудь вроде "уникод\עברית\Ελληνικά.txt"

[iGrok]

Я вот думаю, а почему реально никто не пользуется вот этим:
http://msdn.microsoft.com/en-us/library/bb773559.aspx

Там есть, к примеру http://msdn.microsoft.com/en-us/library/bb773584.aspx
И её уникодная версия.

[arthur2]

Я вот думаю, а почему реально никто не пользуется вот этим:

Это я тоже нашел (по моей ссылке этот способ тоже есть - под номером 7)
Не пользуюсь, потому что http://forum.sources.ru/index.php?showt ... &p=2524424 и ниже по топику

[iGrok]

Я вот думаю, а почему реально никто не пользуется вот этим:

Это я тоже нашел (по моей ссылке этот способ тоже есть - под номером 7)
Не пользуюсь, потому что http://forum.sources.ru/index.php?showt ... &p=2524424 и ниже по топику

На самом деле, не особо убедительно. =)
UNC он поддерживает (в том случае, если это именно UNC ссылка на файл, а не на шару/сервер/принтер и т.п.) - http://msdn.microsoft.com/en-us/library/bb773584.aspx
Ну а актуальность nt4.0 и win95 это как-то.. Ну не знаю. )

[arthur2]

Главный аргумент: зачем использовать то, если можно использовать это К тому же, в системе может просто не быть IE (хитрый юзер руками выдрал, а то и штатрыми средствами - в молодых виндах вроде как, это возможно, ЕМНИП)

[iGrok]

Главный аргумент: зачем использовать то, если можно использовать это К тому же, в системе может просто не быть IE (хитрый юзер руками выдрал, а то и штатрыми средствами - в молодых виндах вроде как, это возможно, ЕМНИП)

Главный аргумент я, конечно, принимаю.

А вот второй - нет. Почему? Всё очень просто. =)
В системе может не быть IE, но в системе не может не быть shlwapi.dll =)
Только если какой-то придурок её именно что "руками удалил". Но тогда у него много чего не будет работать.

А IE4 там упомянуто только к тому, что эта ф-ция есть только в версиях библы, начиная с 4.71. В win95/NT4 версия этой библы младше, а эта версия ставится вместе с IE4.

[arthur2]

На Сорцах добавили аргумент против моего способа

Так что может всё-таки остановлюсь на PathFileExists

[Andrey Fedorov]

С чего это функции VB перестали уметь работать с такими файлами?

Прежде чем возразить, надо, наверное, попробовать? Даже проект не запустится из папки, если в пути есть уникодные символы. Бейсик напрочь не умеет работать с уникодными путями.

Дело не в бэйсике, а в кривых ручках.
Можете сами попробовать:

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

Option Explicit

Public Sub Main()
    Dim m() As Byte
    Dim fs As New FileSystemObject, t As TextStream, s As String, ss As String
   
    s = "Проба "
    m = s
    ReDim Preserve m(17)
    m(12) = &H1D
    m(13) = &H6D
    m(14) = &H1F
    m(15) = &H9D
    m(16) = &H1F
    m(17) = &HCC
    s = m
   
    ss = App.Path & "\" & s
   
    On Error Goto Err_
    If Not fs.FolderExists(ss) Then fs.CreateFolder (ss)
    ss = ss & "\" & s & ".txt"
    If Not fs.FileExists(ss) Then
        Set t = fs.CreateTextFile(ss, , True)
    Else
        Set t = fs.OpenTextFile(ss, ForAppending, False, TristateTrue)
    End If
    t.WriteLine Now & " - " & s
    t.Close

Err_:
    MsgBox "Бэйсик " & IIf(fs.FileExists(ss), vbNullString, "не ") & "умеет работать у уенкодом"
End Sub

Поняли в чем ваша ошибка?
-----------------------------------------
По меньшей мере такую ерунду как проверить существование файла или записать в него можно без проблем.

А если что либо более серьезное то проще сразу писать на VB.NET

[arthur2]

При чем здесь кривые руки и фсо? Речь изначально шла о том, что бейсик не умеет работать с уникодными путями. Кстати, с уникодом в отрыве от путей бейсик работает отлично (судя по странным манипуляциям с байтовым массивом, ты в это не очень вникал - логичнее было бы сделать так: s="Проба " & chrw(&H6D1D) & chrw(&H9D1F)& chrw(&HCC1F) - с тем же результатом )

Итак бейсик сам, без фсо, работать с уникодными путями не умеет. Встроенные функции - Dir, GetAtr и пр. уникодных путей не понимают. Open не откроет файл, если указать уникодный путь. App.Path вернёт вопросики. Даже файл проекта не запустится из уникодной папки - бейсик просто не найдёт файла.

Если чисто на VB:

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

Public Function IsFile(sFile As String) As Boolean
    On Error Resume Next
    IsFile = ((GetAttr(sFile) And vbDirectory) = 0)
    If Err.Number Then Err.Clear
End Function

Вот это - НЕ ЗАРАБОТАЕТ, если передать уникодный путь. "Можете сами попробовать"

А фсо - да, умеет работать с уникодом. Но я прекрасно обхожусь и без фсо, на АПИ и W-версиях функций. Так что мои программы на бейсике - с уникодными путями работать умеют. И без фсо.

А ещё - скомпилируй свой FSO-пример, положи экзешник внутрь уникодной папки и запусти. Он подавится на строке App.Path

[Andrey Fedorov]

А ещё - скомпилируй свой FSO-пример, положи экзешник внутрь уникодной папки и запусти. Он подавится на строке App.Path

Да влом уже, честно говоря. Для меня сейчас любой намек на том что при написании программы будет подобный геморой это повод к отказу от VB6 и написанию программы на VB.NET. Ну нафига самому продолжать изобретать лисапеды и костыли, когда все уже давно сделано до нас? И сделано весьма неплохо. Потому уже не вижу повода скрипя зубами и обертываясь в WinApi продолжать упорно держаться за все устаревающее средство разработки...