Как сделать файл...

[Algol]

А нельзя ли потом брать из этого блокнота адреса и вставлять в Filelistbox.

[hCORe]

А нельзя ли потом брать из этого блокнота адреса и вставлять в Filelistbox

Algol, ну ты и садюга ... FileListBox это элемент для просмотра содержимого папок . А запихнуть что-нибудь реально можно только в ListBox, Combo или ListView (если нужны картинки и т.п.)

[Algol]

Вот смотрите код :

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

Private Sub Command13_Click()
  Open "C:\Read.txt" For Input As #1
Timer3.Enabled = True
End Sub

Private Sub Timer3_Timer()
Dim s As String
If Not EOF(1) Then
  Line Input #1, s
  Picture1.Picture = LoadPicture(s)
Else
  Close (1)
  Timer3.Enabled = False
End If
End Sub

Так вот когда я запускаю прогу мне сразу пишут :
error 52.
Останавливается прога в этот момент:

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

If Not EOF(1) Then

Хотя если я пишу этот код с чистого листа то все идет.
Не подскажите че с ним?

И еще вопрос как мне удалить этот блокнот?

[A.A.Z.]

Насчет ошибки: EOF(1) действует тогда, когда открыт файл под номером 1 (Open "C:\Список.txt" As #1).
Как исправить: проверь, стоит ли у тебя в свойствах таймера Enabled = False, если нет - поставь.
Насчет "удалить этот блокнот" -
1) это не "блокнот" ( ), а текстовый файл / документ,
2)

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

Kill "C:\Список.txt"

[Algol]

Огромное спасибо всем кто мне помог в этой нелегкой теме. Ура