FindFirstFile не находит элементы добавленные после вызова?

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Pantalone
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 687
Зарегистрирован: 12.11.2005 (Сб) 16:46
Откуда: Сапог

FindFirstFile не находит элементы добавленные после вызова?

Сообщение Pantalone » 02.10.2006 (Пн) 21:26

Хочу уточнить, делаю обработку папки "c:\temp\" через FindFirstFile. Получаю такую вещь, что как только я вызвал FindFirstFile для этой папки, то какие бы я папки и файлы в нее не добавил после этого, они не будут обработаны FindNextFile? Это так задумано?

Dmitriy2003
Постоялец
Постоялец
 
Сообщения: 690
Зарегистрирован: 27.05.2003 (Вт) 22:47
Откуда: Deutschland

Сообщение Dmitriy2003 » 02.10.2006 (Пн) 21:57

почему же так работает ?

Код: Выделить всё
hFile = FindFirstFile(sGetPath & Trim$(cmbMask.Text), fd)
    RetOK = (hFile <> INVALID_HANDLE_VALUE)
    '
    If RetOK Then
        lvwFiles.ListItems.Clear
    Else
        lvwFiles.ListItems.Clear
        Set ItemX = lvwFiles.ListItems.Add(, sErrNofile, sErrNoFileOut, , 3)
        RetOK = FindClose(hFile)
        Exit Sub
    End If
    '
    FileCopy "C:\Temp\0001.bmp", "C:\Temp\0002.bmp"
    FileCopy "C:\Temp\0001.bmp", "C:\Temp\0003.bmp"
    FileCopy "C:\Temp\0001.bmp", "C:\Temp\0004.bmp"
    '
    Select Case nLevel
        Case nLevelFile
            Do While RetOK
                If fd.dwFileAttributes = lGetAttributes Then
                    '
                    lFileCounter = lFileCounter + 1
                    sName = Left$(fd.cFileName, lstrlen(fd.cFileName))
                    Set ItemX = lvwFiles.ListItems.Add(, , sName, , 1)
                        ItemX.SubItems(1) = GetFileExtention(sName)
                        ItemX.Selected = False
                End If
                '
                RetOK = FindNextFile(hFile, fd)
            Loop

Dmitrich

Pantalone
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 687
Зарегистрирован: 12.11.2005 (Сб) 16:46
Откуда: Сапог

Сообщение Pantalone » 02.10.2006 (Пн) 22:31

Да, видимо у меня проглючило где-то.


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 54

    TopList