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
Сейчас этот форум просматривают: Mail.ru [бот], SemrushBot и гости: 100