| |
|
|
| | После закачки данных, какой командой мохно удалить файл из c:\1.txt. | |
| |
| |
|
|
| |
|
|
| | ДрЮня
а можно вот так: 
if dir ("c:\1.txt")<> "" then
Kill("c:\1.txt")
else
msgbox "Abu Вам!"
end if
-----------------------------------------------------------
с уважением к ДрЮня!!! | |
| |
| |
| |
|
|
| | конечно можно :)
вообще обработка ошибок занимает больше половины кода программы | |
| |
| |
| |
|
|
| | Эт тошно (точно).  | |
| |
| |
| |
|
|
| | а если без обработки ошибок - то потом в два раза больше времени тратится на исправление ошибок в исходных данных.
обработка ошибок не так уж и много занимет. в программе. | |
| |
| |
| |
|
|
| | балин..
мне тоже нужна эта функция (Kill), но в А2007 она не работает ...
какие есть еще вариаты, подскажите..
п.с. а фсё..разобрался
ч-з DeleteFile | |
| |
| |
| |
|
|
| |
мне тоже нужна эта функция (Kill), но в А2007 она не работает ...
|
странно, вроде не было никаких проблем ... | |
| |
| |
| |
|
|
| | а у меня не работает
покопался в справке и вот что нашел:
Функции, выполнение которых в изолированном режиме ведет к возникновению ошибки
Вызов следующих функций Visual Basic для приложений (VBA) из выражения в запросе ядра базы данных Access или из свойства Access ведет к возникновению ошибки.
Дополнительные сведения об использовании наиболее распространенных функций см. по ссылкам в разделе См. также.
AppActivate
Beep
Calendar
CallByName
ChDir
ChDrive
Command
Command$
CreateObject
CurDir
CurDir$
DeleteSetting
.....
Kill
|
| |
| |
| |
|
|
| |
|
|
| |
' Удалить файл (путь к файлу)
Function fDeleteFile(strPatchFile As String) As Boolean
On Error GoTo Err_
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile strPatchFile
Set fs = Nothing
fDeleteFile = True
Exit Function
Err_:
Err.Clear
End Function
|
| |
| |
| |
| |
|
|
| | >Вы работаете в изолированном режиме?
>http://www.sql.ru/forum/actualthread.aspx?bid=4&tid=496505#4948252
а фик знает..
очевидно да, раз Kill не работает
я использовал для удаления вот такую конструкцию:
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Sub DeleteFileA()
DeleteFile "путь к файлу"
End Sub
|
| |
| |
| |
