7 / 7 / 1
Регистрация: 11.06.2012
Сообщений: 352
1

Поиск файла по имени без расширения

08.01.2013, 14:26. Показов 2528. Ответов 5
Метки нет (Все метки)

Необходимо в указанной папке найти файл. Ищу так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
FileName = "C:\Users\Lenovo\Desktop\фото для поиска\п.1.JPG"
............................
Function ФайлСуществует(ИмяФайла As String) As Boolean
Dim nf
On Error Resume Next
nf = FreeFile
Open ИмяФайла For Input As #nf
If Err Then
    ФайлСуществует = False
Else
    ФайлСуществует = True
End If
Close #nf
End Function
Так все нормально, файл ищется.
Но мне нужно чтобы он находил файл без расширения т.е. п.1?????????
Чтобы все равно было просто папка, doc, pdf, JPG итд
когда пробую:
Visual Basic
1
FileName = "C:\Users\Lenovo\Desktop\фото для поиска\п.1"
ТО УВЫ НИЧЕГО НЕ НАХОДИТ!!!???
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.01.2013, 14:26
Ответы с готовыми решениями:

Как запустить программу по имени (без пути и расширения) из ComboBox`a
Как сделать так, чтобы выполнялось следующее: Есть 4 файла с расширением .bat: 1.bat 2.bat...

Отправка файла без расширения
Доброго времени суток!!! ;) Народ подскажите как быть мне нужно отправить на почту файл без...

Поиск имени файла без расширения
Нужно из строки найти имя файла без расширения.Пример C:\users\downloads\abv.jpg должно вывести...

Вывод на экран пути и имени файла без расширения без одного символа
Вывод на экран пути и имя файла -1 символ без расширения Не передает ARG значение. Что я делаю...

5
Заблокирован
08.01.2013, 14:53 2
Visual Basic
1
ФайлСуществует= dir(ИмяФайла & ".*")<>""
1
7 / 7 / 1
Регистрация: 11.06.2012
Сообщений: 352
08.01.2013, 20:13  [ТС] 3
А это в функции надо прописать или в основной проге???
Имя файла это весь путь указать???

Добавлено через 4 часа 18 минут
что то запутался и так и так, а без расширения найти не могу

Добавлено через 38 минут
Все разобрался... Спасибо Апострофф

Добавлено через 7 минут
Хотя все таки не конца...
Если лежит папка с таким именем, то прога на нее не реагирует...????
Все остальные файлы... В принципе все логично, но как сделать чтобы реагировало на папку???
0
7 / 7 / 1
Регистрация: 11.06.2012
Сообщений: 352
21.01.2013, 12:26  [ТС] 4
Люди подскажите может есть какой-нибудь способ определять наличие ПАПКИ а НЕ файла в дирректории?

Добавлено через 11 минут
Я вот подумал может наличие каталога определять?!
0
es geht mir gut
11263 / 4744 / 1183
Регистрация: 27.07.2011
Сообщений: 11,437
21.01.2013, 12:56 5
Цитата Сообщение от Техник55 Посмотреть сообщение
Я вот подумал может наличие каталога определять?
Visual Basic
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
' Описание:     Пример демонстрирует работу с объектной моделью FileSystemObject.
 
' Ссылки:
'   Visual Basic For Applications
'   Visual Basic runtime objects and procedures
'   Visual Basic objects and procedures
'   OLE Automation
'   Microsoft Scripting Runtime
       
Dim fso As FileSystemObject
Dim sFolder, sPath As String
 
Private Sub Form_Load()
Set fso = New Scripting.FileSystemObject
sPath = "C:\FsoTest\FsoTest.txt"
sFolder = "C:\FsoTest"
End Sub
 
'Объект FileSystemObject
' /////////////////////////////////////////////////////////////////////////////////
 
Private Sub cmdFileExists_Click()
' Служит для проверки существования файла с заданным именем.
If fso.FileExists(sPath) Then
    MsgBox "Файл " & sPath & " существует"
Else
    MsgBox "Файл " & sPath & " не существует"
End If
End Sub
 
Private Sub cmdFolderExists_Click()
' Служит для проверки существования папки с указанным именем.
If fso.FolderExists(sFolder) Then
    MsgBox "Папка " & sFolder & " существует"
Else
    MsgBox "Папка " & sFolder & " не существует"
End If
End Sub
2
Заблокирован
21.01.2013, 13:34 6
Visual Basic
1
ИпостасьСуществует=Dir(name & ".*",vbDirectory)<>""
Возвратит, существует ли файл или папка, подходящая под приведенную маску, но ведь таких файлов(папок) может быть несколько?
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.01.2013, 13:34
Помогаю со студенческими работами здесь

Задание имени нового создаваемого файла без указания расширения
На форме есть текстовое поле где пользователь задаёт имя создаваемого файла без указания...

Поиск файла по имени и вывод его пути и расширения
Всем привет. Задача такая: поиск файла по его имени по всему диску, если файл найден, то вывести...

Проверка расширения имени файла
Добрый день. Хотелось бы узнать, есть ли в builder-е что то стандартное для проверки расширения...

Изменение расширения файла/имени
Всем добрый день! Интересно есть ли способ изменить расширение/имя файла без перезаписи файла?Т.е....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru