Public Function FUN_IN_TXT(Path_Name As String, Str As String)
' Ñîçäàíèå ôàéëà è çàïèñü â èìåþùèéñÿ ôàéë
Dim ts
Set ts = fso.OpenTextFile(Path_Name, ForAppending, True) ' åñëè ôàéëà íåò, îí ñîçäà¸òñÿ
ts.Write (Str & vbCrLf) ' ñ íîâîé ñòðîêè
ts.Close
End Function
|