Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA. Как получить имя файла из пути? / 12 сообщений из 12, страница 1 из 1
31.10.2006, 11:51
    #34093593
Evgeshka
Evgeshka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA. Как получить имя файла из пути?
Есть ли в VBA стандартные функции для получения имени файла из полного пути к нему. Свою функцию не хотелось бы писать!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.10.2006, 11:55
    #34093606
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA. Как получить имя файла из пути?
а кроме вба средства другие не интересуют?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.10.2006, 12:14
    #34093691
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA. Как получить имя файла из пути?
Можно так
Код: plaintext
1.
2.
3.
4.
5.
Dim objFSO As Object,strFileName$,strFilePath$
Set objFSO=CreateObject("Scripting.FileSystemObject")
strFilePath="C:\Temp\1.txt"
strFileName=objFSO.GetFileName(strFilePath)
MsgBox strFileName
Set objFSO=Nothing
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.10.2006, 12:31
    #34093771
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA. Как получить имя файла из пути?
Можно так:
Код: plaintext
1.
2.
3.
4.
Function FileName(ByVal strFilePath) As String
      Dim intPos%
      intPos=InStrRev(strFilePath,"\")
      FileName=Right(strFilePath,Len(strFilePath)-intPos)
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.10.2006, 15:02
    #34094498
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA. Как получить имя файла из пути?
Код: plaintext
    MsgBox Dir("C:\Temp\1.txt")

Если файл не найден Dir возвратит ""

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.10.2006, 17:22
    #34095234
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA. Как получить имя файла из пути?
KL (XL)
Код: plaintext
    MsgBox Dir("C:\Temp\1.txt")

Если файл не найден Dir возвратит ""

KL
[MVP - Microsoft Excel]
:cool: очень эффективно ;-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
03.02.2013, 12:48
    #38135204
Алексей982
Алексей982
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA. Как получить имя файла из пути?
Как получить имя файла без расширения?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.02.2013, 13:27
    #38135226
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA. Как получить имя файла из пути?
Код: vbnet
1.
2.
3.
4.
5.
Dim fn$, fnWoExt$, i&
fn = "2013.02.03 awefc.part"           'имя файла
i = InStrRev(fn, ".")                  'положение последней точки
fnWoExt = IIf(i, Left$(fn, i - 1), fn) 'имя файла без расширения
MsgBox fnWoExt
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.02.2013, 09:34
    #38137376
катастрофа
катастрофа
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA. Как получить имя файла из пути?
Код: vbnet
1.
2.
3.
4.
Полное_имя_файла_с_расширением_и_местом_его_нахождения = ActiveDocument.FullName
Имя_файла_с_расширением = ActiveDocument.Name
Имя_файла_без_расширения = CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveDocument.Name)
Расширение_файла = CreateObject("Scripting.FileSystemObject").GetExtensionName(ActiveDocument)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.02.2013, 19:11
    #38138766
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA. Как получить имя файла из пути?
катастрофа , в своём репертуаре?
Надо же не из текущего документа имя выцепить, а из произвольной строки с FullName. И мы придём к 3334732
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.02.2013, 07:38
    #38139286
катастрофа
катастрофа
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA. Как получить имя файла из пути?
AndreTM,
>Надо же не из текущего документа имя выцепить, а из произвольной строки с FullName
тогда согласен
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
19.09.2016, 10:04
    #39311164
NemoSUN
NemoSUN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA. Как получить имя файла из пути?
катастрофа
Код: vbnet
1.
2.
3.
4.
Полное_имя_файла_с_расширением_и_местом_его_нахождения = ActiveDocument.FullName
Имя_файла_с_расширением = ActiveDocument.Name
Имя_файла_без_расширения = CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveDocument.Name)
Расширение_файла = CreateObject("Scripting.FileSystemObject").GetExtensionName(ActiveDocument)



Спасибо большое !!! Помогло в написании скрипта для Корела.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / VBA. Как получить имя файла из пути? / 12 сообщений из 12, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 413ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2172950]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 40ms
get topic data:
 13ms
get forum data:
 2ms
get page messages:
 52ms
get tp. blocked users:
 2ms
others: 278ms
total:  413ms
x
x
Закрыть


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