| |
|
|
| |
Function CreateAfile(Ima_File, Put_File)
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(Put_File & "\" & Ima_File & ".txt", True)
a.WriteLine ("пробная запись.")
a.Close
End Function
|
почему нет строк
dim fs as object
dim a as object
А ошибки нет , всё работает.... | |
| |
| |
|
|
| |
|
|
| | option explicit
работу программы у пользователя точно не гарантирует!
это просто директива интерпретатору - проверить синтаксис перед сборкой ехе-хи.
включать необязательно, но очень полезно | |
| |
| |
| |
|
|
| | Спасибо, дрюня!!!
Вставлю option explicit явный выбор ипосмотрю что будет.......  | |
| |
| |
