Конференция VBStreets

**Space** » 25.05.2009 (Пн) 22:53

Если у меня получается путь в формате DOS + длинное имя файла, нормально ли будут с таким полным путём работать ф-и VB, API?

**arvitaly** » 25.05.2009 (Пн) 23:08

Длиннее чем 255?

**Space** » 25.05.2009 (Пн) 23:22

нет, почему? Полный путь не длинне 260.

**arvitaly** » 25.05.2009 (Пн) 23:33

Код: Выделить всё: Dim f As String, cf As Long, i As Integer For i = 1 To 255 f = f & "1" Next cf = CreateFile("d:\" & f, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, 2, 0, 0) Open "d:\" & cf For Binary As 1 Get 1, , f Debug.Print f Close

Работает без проблем

**Space** » 25.05.2009 (Пн) 23:54

arvitaly, ты не понял. Ну да ладно, на Open пашет, API теж должны понимать.

**arvitaly** » 25.05.2009 (Пн) 23:59

А чего я не понял?

**iGrok** » 26.05.2009 (Вт) 1:52

arvitaly писал(а):А чего я не понял?

Того, что у него путь в формате DOS 8.3, а имя файла - нормальное "длинное".

2Space: должно работать.

**arvitaly** » 26.05.2009 (Вт) 1:56

program~1
???

**iGrok** » 26.05.2009 (Вт) 13:03

arvitaly писал(а):program~1
???

Тогда уж "progra~1". 8 символов, а не 9.
Пример: "C:\Progra~1\Micros~1\VB98\Projects\My_long_filename_project"

Путь Short + Long