File List Using PathMatchSpec

Date: 02-16-2022

Return to Index

 
'Compilable Example:  (Jose Includes)
#Compiler PBWin 9, PBWin 10
#Compile EXE
#Dim All
%Unicode=1
#Include "Win32API.inc"
Declare Function PATHMATCHSPEC Lib "SHLWAPI.DLL" Alias "PathMatchSpecA" ( pszFile As AsciiZ, pszSpec As AsciiZ ) As Long
Global hDlg As Dword
 
Function PBMain() As Long
   Dialog New Pixels, 0, "Button Test",300,300,200,200, %WS_OverlappedWindow To hDlg
   Control Add Button, hDlg, 100,"Push", 50,10,100,20
   Dialog Show Modal hDlg Call DlgProc
End Function
 
CallBack Function DlgProc() As Long
   Local i As Long
   If Cb.Msg = %WM_Command And Cb.Ctl = 100 And Cb.CtlMsg = %BN_Clicked Then
      Local iPos As Long, tempDIR As DirData, temp$, filelist$, FileSpec$
      FileSpec$ = "*.jpg;*.gif;*.bmp"
      temp$ = Dir$("*.*")
      Do While Len(temp$)
         If PathMatchSpec((temp$), (FileSpec$)) Then FileList$ = FileList$ + $CrLf + temp$
         temp$ = Dir$
      Loop
      ? FileList$
   End If
End Function
 
'gbs_01135
'Date: 03-10-2012

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm