|
|
|
Используя OPENFILE.lpstrFile можно получить
|
|||
|---|---|---|---|
|
#18+
каталог и плюс файл а как получить просто каталог в котором файл лежит? Яиспользую для открытия файла окно диалога - стандартное. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.06.2003, 10:52 |
|
||
|
Используя OPENFILE.lpstrFile можно получить
|
|||
|---|---|---|---|
|
#18+
Dim strDir As String, Path As String Dim position As Integer Path = "C:\eee\wwwww\r.dbf" strDir = "" Do Until (InStr(Path, "\") = 0) position = InStr(Path, "\") strDir = strDir + Left(Path, position) Path = Right(Path, Len(Path) - position) Loop MsgBox strDir ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.06.2003, 11:35 |
|
||
|
|
start [/forum/topic.php?fid=45&fpage=1793&tid=1681140]: |
0ms |
get settings: |
10ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
54ms |
get topic data: |
14ms |
get forum data: |
4ms |
get page messages: |
41ms |
get tp. blocked users: |
2ms |
| others: | 235ms |
| total: | 388ms |
| 0 / 0 |
