| Вопрос: Существует ли файл? | Добавлено: 10.10.05 10:09 |
Автор вопроса:  Genetik | ICQ: 3212009 |
| Как проверить существует ли файл. Желаиельноо без апи функций (Просто как с ними я знаю, хочется без них)? |
| Ответы | Всего ответов: 15 |
|
Номер ответа: 1 Автор ответа:  Genetik ICQ: 3212009 Вопросов: 5 Ответов: 33 |
Профиль | | #1 | Добавлено: 10.10.05 10:40 |
|
И еще есть очень тупой вопрос. Забыл как пишется одна фигня (слово). Помню что с ее помощью определяется полный путь к папке где лежит экзешник программы. Помню также как использовал:
File = слово & "\test.txt" Переменная file хранит после полный путь например C:\ttt\aaa\test.txt. Файл test.txt лежит в папке C:\ttt\aaa там же лежит и экзешник. Что это за слово? Просто уже давно не кодил на вб и забыл много простых вещей. |
||
|
Номер ответа: 2 Автор ответа: AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #2 | Добавлено: 10.10.05 10:46 |
| FSO можешь поюзать. FileExists. | ||
|
Номер ответа: 3 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #3 | Добавлено: 10.10.05 10:48 |
| App.Path | ||
|
Номер ответа: 4 Автор ответа: GenetikICQ: 3212009 Вопросов: 5 Ответов: 33 |
Профиль | | #4 | Добавлено: 10.10.05 11:01 |
Я с FSO не в ладах. Можеш примерчиком. А за App.Path спасибо!!! Я уже всю голову сломал 
|
||
|
Номер ответа: 5 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #5 | Добавлено: 10.10.05 11:28 |
|
Dim fso As FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject" 
If fso.FileExists("C:\filename" Then
MsgBox "Файл существует" Else MsgBox "Файл не существует" End If |
||
|
Номер ответа: 6 Автор ответа: GenetikICQ: 3212009 Вопросов: 5 Ответов: 33 |
Профиль | | #6 | Добавлено: 10.10.05 12:16 |
| Ок. Сенкс. | ||
|
Номер ответа: 7 Автор ответа: Victor ICQ: 345743490 Вопросов: 42 Ответов: 385 |
Web-сайт: Профиль | | #7 | Добавлено: 11.10.05 21:02 |
|
Что такое FSO? Откуда его брать? Часто натыкаюсь на это в форуме, а что это - не знаю.
PS. А чем VB функций мало? If Len(Dir("C:\tmp\txt.txt"
)>0 Then Файл точно существует.Или Funtion FileExists(ByRef FileName as String) As Boolean Dim nmb As Long On Error Resume Next nmb = FreeFile Open FileName For Input As nmb FileExists = Err.Number = 0 Close nmb End Function |
||
|
Номер ответа: 8 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #8 | Добавлено: 11.10.05 22:03 |
|
FSO как я уже писал это File System Object - объектная модель, представляющая собой структуру объектов. В дополнение к стандартным командам VB они позволяют получать информацию о файловой системе и производить разные операции с каталогами и файлами. Не ручаюсь за точность цитаты учебника. Подключается библа Microsoft Scripting Runtime в References и вперед.
P.S.Кстати во многих учебниках она подробно описана. |
||
|
Номер ответа: 9 Автор ответа: VictorICQ: 345743490 Вопросов: 42 Ответов: 385 |
Web-сайт: Профиль | | #9 | Добавлено: 11.10.05 23:47 |
| А зачем она нужна? Чем она круче стандартных функций VB для работы с файлами? | ||
|
Номер ответа: 10 Автор ответа: GenetikICQ: 3212009 Вопросов: 5 Ответов: 33 |
Профиль | | #10 | Добавлено: 12.10.05 00:03 |
|
Victor может функций больше.
If Len(Dir("C:\tmp\txt.txt" за это спасиб, возьму на вооружение...
)>0 Then Файл точно существует. |
||
|
Номер ответа: 11 Автор ответа:  «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #11 | Добавлено: 12.10.05 11:36 |
|
И еще есть очень тупой вопрос. Забыл как пишется одна фигня (слово). Помню что с ее помощью определяется полный путь к папке где лежит экзешник программы. Помню также как использовал:
File = слово & "\test.txt" Text1.Text (например) = App.Path & "/" & App.EXEName & ".exe" ' ну это к твоей программе путь,
App.Path & "/text.txt" 'то что посил.. |
||
|
Номер ответа: 12 Автор ответа: GSergВопросов: 0 Ответов: 1876 
|
Профиль | | #12 | Добавлено: 12.10.05 12:25 |
| А когда вышло постановление о развороте слэшей? | ||
|
Номер ответа: 13 Автор ответа: GenetikICQ: 3212009 Вопросов: 5 Ответов: 33 |
Профиль | | #13 | Добавлено: 12.10.05 23:07 |
|
GSerg не понял ты о чем?
«Unknown Lamer» пасиб за App.EXEName не знал что есть такая фитча. |
||
|
Номер ответа: 14 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #14 | Добавлено: 13.10.05 01:55 |
| Это он о том, что в путях Windows используются обратные слэши \ | ||
|
Номер ответа: 15 Автор ответа: NecoICQ: 247906854 Вопросов: 133 Ответов: 882 |
Web-сайт: Профиль | | #15 | Добавлено: 13.10.05 04:58 |
|
If Len(Dir("C:\tmp\txt.txt"
)>0 Then Файл точно существует.А вот и нет. Скрытый файл на это не откликнется. Я обычно создаю паблик конст включающую все vbSystem+vbAlias+vbBlaBlaBla, типа ncAnyFile и ncAnyDir и потом уже их юзаю. А fso, имхо, имеет смысл юзать тока если собираешся в перспективе скрипты писать вэбэшные - а иначе лучше искать более короткие пути - быстрее будет работать. |
||
Страница: 1 |