Проблемы с слайд шоу

[Rostik Ultra (2)]

Два варианта кода для слайд шоу рисунков

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

Dim i As Long
Private Sub Form_Load()
    File1.Path = "D:\1\"
        File1.Pattern = "*.*"
End Sub
Private Sub Timer1_Timer()
    i = i + 1
        Image1.Picture = LoadPicture("D:\1\" & File1.List(i))
End Sub

или

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

Dim picName As String

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If picName = "" Then picName = Dir("c:\1\*.*")
Image1.Picture = LoadPicture("c:\1\" & picName)

Form1.Caption = picName
picName = Dir
End Sub

В обоих случаях не все картинки из папок удаётся просмотреть - другие картинки не воспринимаются как будто их нет (все имена картинок состоят из цифр)

В чём проблема ?

[Nicky]

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

Private Sub Timer1_Timer()
If picName = "" Then picName = Dir("c:\1\*.*")
Image1.Picture = LoadPicture("c:\1\" & picName)


И что ты предполагаешь увидеть?