НАпишите кто-ньть..  как роботать с файлами

У там создавать, открывать, провирять есть ли он, считовать записовать и т.п.

Зарание спасибо!)    

Уже все давно написано!
Ты когда начнеш хоть что-то делать сам?

FAQ 

Dredina, пишите грамотно! 

Ну краткий так сказать курс:

Open "Путь_до_нужного_файла" For Для_чего_открыть As Под_каким_именем
Close Имя_файла

Для чего открыть это в смысле тип доступа: для чтения, для добавления, для перезаписи и т.д.
Input - чтение
Append - добавление (дозапись)
Output - перезапись
Random - random (к стати этим типом можно создать файл, если такового нет)

Под каким именем - Имя, по которому к фалу будет идти обращение в программе.

Запись:
Write Имя_файла, данные
Print Имя_файла, данные

Считывание:
Line Input Имя_файла, переменная_куда_считывать

Вот например полное считывание:

Open "С\test.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, newtext
    vestext = vestext + newtext
    Loop
Close #1

А вот запись:

Open "C:\Program Files\data.nkt" For Append As #1
Print #1, "Hello world!"
Close #1
ВАЖНО: после того, как отработал с файлом нужно обязательно его закрыть. 

про который лучше давно забыть - это не QB 4.5 уже...

FileSystemObject