| Вопрос: Вопрос про файлы | Добавлено: 03.03.07 20:45 |
Автор вопроса:  Maximus87
|
|
Я извлекаю файл из ресурсов в папку "TEMP" с помощью такого кода
Private Sub Command1_Click() Dim sFileName As String sFileName = Environ("TEMP") & "\Somefile.avi" SaveResItemToDisk "101", "CUSTOM", sFileName End Sub А как узнать была ли нажата Command1 или существует ли извлеченный файл в папке "TEMP" ? |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  »VladikComper« ICQ: 419668582 Вопросов: 23 Ответов: 147 |
Web-сайт: Профиль | | #1 | Добавлено: 04.03.07 10:27 |
|
Узнать, существует ли файл.
If Dir(Environ("TEMP"
 & "\Somefile.avi" = "" Then MsgBox "Файла не существует!!!" |
||
|
Номер ответа: 2 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #2 | Добавлено: 04.03.07 12:34 |
|
Private Sub Command1_Click()
dim nazhav as integer Dim sFileName As String a=1 sFileName = Environ("TEMP" & "\Somefile.avi"
SaveResItemToDisk "101", "CUSTOM", sFileName End Sub а потом провирянш где нада If a=1 then msgbox "Command1 била нажата." |
||
|
Номер ответа: 3 Автор ответа: Maximus87 Вопросов: 7 Ответов: 11 |
Профиль | | #3 | Добавлено: 04.03.07 13:08 |
| Спасибо большое!!! | ||
Страница: 1 |