ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / директория файла
10 сообщений из 10, страница 1 из 1
директория файла
    #35132310
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
Туплю страшно…:/
Есть ли функция, которая извлекает директорию из полного пути к файлу?
...
Рейтинг: 0 / 0
14.02.2008, 12:16:41
| Ответить | Цитировать | Написать  
директория файла
    #35132382
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
LETMEТуплю страшно…:/
Есть ли функция, которая извлекает директорию из полного пути к файлу?
Всмысле ?
...
Рейтинг: 0 / 0
14.02.2008, 12:35:45
| Ответить | Цитировать | Написать  
директория файла
    #35132389
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Если путь - это текстовая строка, то соответственно все обычные фукнции для работы с текстом. Обратите внимание на функцию Split
...
Рейтинг: 0 / 0
14.02.2008, 12:37:39
| Ответить | Цитировать | Написать  
директория файла
    #35132422
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
... ну в смысле для того чтобы вычленить название файла, можно использовать Dir(FullPath).
А вот есть ли подобная не для названия, а именно для директории? :)

ЗЫ: ды работа с текстом - эт понятно. Обидно будет если такая функция есть, а я с текстом работаю))
...
Рейтинг: 0 / 0
14.02.2008, 12:45:13
| Ответить | Цитировать | Написать  
директория файла
    #35132496
Pavel55
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pavel55
Гость
Может быть это?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub Макрос1()
Dim iFullPath$, iShortPath$, iFileName$
    'поиск в текстовой строке знака "\"
    iFullPath = "C:\Test1\Test2\Книга1.xls"
    iShortPath = Mid(iFullPath,  1 , InStrRev(iFullPath, "\"))
    iFileName = Mid(iFullPath, InStrRev(iFullPath, "\") +  1 )
    MsgBox "Файл " & iFileName & " лежит в папке " & iShortPath, vbInformation, ""
End Sub
...
Рейтинг: 0 / 0
14.02.2008, 13:02:37
| Ответить | Цитировать | Написать  
директория файла
    #35132519
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
Pavel55Может быть это?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub Макрос1()
Dim iFullPath$, iShortPath$, iFileName$
    'поиск в текстовой строке знака "\"
    iFullPath = "C:\Test1\Test2\Книга1.xls"
    iShortPath = Mid(iFullPath,  1 , InStrRev(iFullPath, "\"))
    iFileName = Mid(iFullPath, InStrRev(iFullPath, "\") +  1 )
    MsgBox "Файл " & iFileName & " лежит в папке " & iShortPath, vbInformation, ""
End Sub


Нет, это как раз работа с текстом.
Я понял, что нет такой функции.

Всем спасибо!
...
Рейтинг: 0 / 0
14.02.2008, 13:08:55
| Ответить | Цитировать | Написать  
директория файла
    #35132566
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
LETME Pavel55Может быть это?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub Макрос1()
Dim iFullPath$, iShortPath$, iFileName$
    'поиск в текстовой строке знака "\"
    iFullPath = "C:\Test1\Test2\Книга1.xls"
    iShortPath = Mid(iFullPath,  1 , InStrRev(iFullPath, "\"))
    iFileName = Mid(iFullPath, InStrRev(iFullPath, "\") +  1 )
    MsgBox "Файл " & iFileName & " лежит в папке " & iShortPath, vbInformation, ""
End Sub


Нет, это как раз работа с текстом.
Я понял, что нет такой функции.

Всем спасибо!

Вы толком и не объяснили какой функции. Если у вас есть имя каталога зачем вам его ещё раз узнавать. Если у вас есть полное имя файла какой смысл пихать его в DIR, чтобы получить
сокращённое имя.
...
Рейтинг: 0 / 0
14.02.2008, 13:23:36
| Ответить | Цитировать | Написать  
директория файла
    #35132611
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
...ды вроде понятен вопрос.

А про зачем извлекать - в том то и дело, что нет у меня имени каталога, а есть полный путь к файлу, включая его имя:
Код: plaintext
1.
ActiveWorkbook.FullName
Поэтому здесь мне и Dir полезна и эта самая недостающая функция.
...
Рейтинг: 0 / 0
14.02.2008, 13:34:34
| Ответить | Цитировать | Написать  
директория файла
    #35132806
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
Код: plaintext
1.
2.
Sub f()
    a = Dir(ActiveWorkbook.Path, vbDirectory)
End Sub
...
Рейтинг: 0 / 0
14.02.2008, 14:15:41
| Ответить | Цитировать | Написать  
директория файла
    #35132861
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
vkodor
Код: plaintext
1.
2.
Sub f()
    a = Dir(ActiveWorkbook.Path, vbDirectory)
End Sub

Чувствовал, что страшно туплю...

Спасибо, vkodor!
...
Рейтинг: 0 / 0
14.02.2008, 14:26:34
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / директория файла
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=35132861&tid=2181428]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 47ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 223ms
total:  359ms
созд. / загр.: 359ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]