ник: час
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
А ошибки нет , всё работает....