Не ординарное поведение операторов с файлами

[David]

В Excel & Word вот на следующую программу выскаивает ошибка 53

Код: Выделить всё

Function DD()
       Open "c:\txt.txt" For Output As #1
End

Ошибка 53 - файл не найден
Вопрос: какой файл если я хочу его создать?

Тоже самое, но с Random проходит без ошибки

Код: Выделить всё

Function DD()
       Open "c:\txt.txt" For Random As #1
End

Права у меня администраторские, что ещё, да вроде всё. Ну ничего не понимаю, самое главное не в первый раз этот оператор использую, может какая-то программа блокирует функцию? Да, тоже самое протестировал на Visual Basic - без проблем?!
Может какой-то dll испортился на компе? Функция Kill тоже ведёт себя станно, ни каких сообщений не выносит, но и команду невыполняет а вообще покидает пргорамму так если бы всретил оператор Exit Sub
Помогите, вся надежда на профи. Спасибо

[Tanya]

это только кусок кода?
как-то странно заканчивается функция: просто End а не End Function
и не закрывать файл так и нужно?

[David]

Ну добавить конечно можно и

Код: Выделить всё

Close #1
End Function

но к сожалению ничего не меняется.
Я где-то читал что это может быть связано с версией Excel 2003, если это правда как выкрутиться из этой ситуации?

В надежде на ваши идеи. Спасибо

[Nicky]

FileSystemObject.CreateTextFile

[David]

Nicky
Спасибо конечно, но как не обидно признавать, я любитель а не профи, потому, если это тебе не очень трудно, подскажи где бы я мог получить более полную информацию, как открыть, создать, удалить файл(ы), как в эти файлы записать информацию, как прочитать её.
Понимаю много, но ой как надо, помоги!
Конечно, я попробую найдти что-нибудь в сети, но надежды поучить помощи от тебя не теряю. СПАСИБО

[Nicky]

Код: Выделить всё

Sub MyFirstExperience()
  With CreateObject("Scripting.FileSystemObject").CreateTextFile("c:\MyFirstTextFile.txt", True)
    .WriteLine "MyFirstWrittenString"
    .Close
  End With
End Sub


[Pavel55]

угу, и вроде для того, чтобы работал FileSystemObject необходимо подключить Microsoft Scripting Runtime библиотеку в References

[Nicky]

угу, и вроде для того, чтобы работал FileSystemObject необходимо подключить Microsoft Scripting Runtime библиотеку в References

Таки нет

[David]

Вообщем, если кому-то интересно.

После консильтаций с Microsoft, долгих поисков в интернете и среди людей меня окружающих ... мой антивирус блокировал DLL работы с файлами

Всем спасибо, тема может быть закрыта