MVB 97

[PVL]

В VB 6.3 этот код работает нормально

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


Private Sub TextStreamTest()
    fileToOpen = Application _
    .GetOpenFilename("Excel Files (*.xls), *.xls")
If fileToOpen <> False Then
    DirPath = Left(fileToOpen, InStrRev(fileToOpen, "\"))
    MsgBox "Open " & DirPath
End If
   
End Sub


DirPath - это полный путь к открытому файлу. В VB'97 нету функции InStrRev. Вопрос в том, чем ее можно заменить, или как по-другому получить этот путь ?

[RayShade]

Ну заменить ее допустим можно вот таким:

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

function instrrev(lwhat as string, lwhere as string, optional byval lstart as long = -1) as long
if lstart =- 1 then lstart= len(lwhere)
for i = lstart to 1 step -1
if mid(lwhere,i,1) = lwhat then
instrrev = i
exit function
end if
next i
instrrev = -1
end function

[PVL]

Попробовал, выдает ошибку компиляции: "Не соответствие типа аргумента ByRef ". Это что означает ?

[RayShade]

Ошибочный кусок кода (твоего) в студию

[PVL]

Ошибку выдает при обращении к функции:

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

instrrev(fileToOpen, "\")


Выделеным остается "fileToOpen".

[RayShade]

Ну так проверь тип переменной filetoopen.

Она должна быть string



PS. И вызывать надо instrrev ("\",filetoopen)

[PVL]

Попробовал поменять, не ругается при вызове instrrev, но DirPath = " "

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

DirPath = Left(fileToOpen, instrrev("\", fileToOpen))


А fileToOpen содержит строку полного пути с именем файла

[RayShade]

Внимательно мои постинги прочитай все.

[PVL]

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

Dim fileToOpen As String


Или я еще что-то пропустил ?

[RayShade]

Не

DirPath = Left(fileToOpen, instrrev("\", fileToOpen))

а

DirPath = Left(fileToOpen, instrrev(fileToOpen, "\"))

[PVL]

Но ведь ты писал:

Ну так проверь тип переменной filetoopen.
Она должна быть string

PS. И вызывать надо instrrev ("\",filetoopen)

Но и это не помогло, DirPath = " "

[RayShade]

Тьфу, блин.

Запутался я.

DirPath = Left(fileToOpen, instrrev("\", fileToOpen)) это, конечно, верный вариант. У меня он работает во всяком случае.

[PVL]

Да, так будет верно, твой кусок кода работает, ошибка где-то дальше, запустил по-шагово

[PVL]

Ругается вот на эту строку

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

Dim fs As New FileSystemObject


Пишет "Не описан определяемый пользователем тип". Т.е. в VB'97 нету такого типа данных.
А код такой:

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

Set fs = Application.FileSearch             
With fs
    .LookIn = DirPath
    .Filename = "*.xls"
    If .Execute(SortBy:=msoSortByFileName, _
    SortOrder:=msoSortOrderAscending) > 0 Then
    ...
    Else
        MsgBox "There were no files found."
    End If
End With


Здесь организуется выборка файлов и некоторые действия с ними.
Можно ли как-то решить и эту проблему ?

[RayShade]

Подключи библиотеку Microsoft Scripting Runtime.

Это насчет неопределенного типа данных. Только я в толк не возьму, зачем тебе FSO если ты используешь app.filesearch?

[PVL]

Если не обьявлять, то вылетает ошибка при обращении к .Filename = "*.xls", а без этой строки в отбор попадает все подряд ..

[RayShade]

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

dim fso as new filesystemobject
dim fl as file
dim spath as string
for each fl in fso.getfolder(dirpath)
if fl.name like "*.xls" then
.........
end if
next fl

Вот такой вот код.