kuklp,
авторнек-рые программы, например винрар, не хотят с пробелами воспринимать путьЭто Вас кто-то обманул. Пути, (содержащие пробелы), заключаете в кавычки и будет Вам счастье.
авторП.С. Если в ответе прочитаю, что проблема не в пробелах а в точкеПозволю себе процитировать себя же:
авторФайл в указанном месте существует. Более того,
если убрать злосчастную точку из имени, то подключается нормально .Ни одного слова про злосчастные пробелы, длинные имена, etc
Проблема действительно в точке :-)
Помогло, в который раз, использование короткого имени файла
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
Option Explicit
Private Declare Function GetShortPathName& _
Lib "kernel32.dll" Alias "GetShortPathNameA" ( _
ByVal lpszLongPath$, _
ByVal lpszShortPath$, _
ByVal cchBuffer&)
' ===============================================
Sub fff()
Dim sq$, scn$, stmpdir$, sfile$, rs
Dim sfilelng$
Set rs = CreateObject("adodb.recordset")
scn = "Provider=Microsoft.Jet.OLEDB.4.0;Mode=Read;" _
& "Extended Properties='text;Delimited=(;);HDR=YES';" _
& "Data Source="
stmpdir = "E:\VB6prj\DFPRV_\gabage\SAVE_\"
sfile = "Укр. _нститут автобусотролейбусобудування.txt" '45
' ^ злосчастная точка
'"про всяк выпадок" проверил, как поведёт себя, если в имени только латинница
'полёт нормальный
'sfile = "U.BCD.txt"
Call WinAPI_GetShortPathName(stmpdir & sfile, sfile)
sfile = RTrim(Mid(sfile, InStrRev(sfile, "\") + 1 )) 'всего лишь выделяем имя фала из полного имени
sq = "select * from [" & sfile & "]"
rs.Open sq, scn & stmpdir, 3 , 3 , 1
MsgBox rs.getstring(, 32 ), , sfile
rs.Close
Set rs = Nothing
End Sub
' ===============================================
Private Sub WinAPI_GetShortPathName(sLongName$, sShortName$)
Const lMaxPath& = 255
Dim k&
sShortName = Space(lMaxPath)
Call GetShortPathName(sLongName, sShortName, lMaxPath)
k = InStr( 1 , sShortName, Chr( 0 ))
If k Then sShortName = Left(sShortName, k - 1 )
End Sub
