수다닷컴

폴더를 클릭하면 폴더의 이미지의 를 다불러오는 아래의 소스가있습니다.여기서..*.jpg, *.jpeg, *.gif, *.png형식만 가져오게 하려면 어떻게 수정해야하나요
List7.Clear
On Error GoTo ErrHandler
Dim Imgpath As String, imgnamepath() As String, filenum As String, i As Integer
Imgpath = BrowserOpen(Me.hWnd) filenum = GetFileListInFolder(Imgpath, imgnamepath) For i = 0 To filenum - 1
If Dir$(Imgpath & \ & imgnamepath(i)) vbNullString Then List7.AddItem Imgpath & \ & imgnamepath(i)Else List7.AddItem Imgpath & \ & imgnamepath(i)End If
Next i
GoTo FunctionEnd
ErrHandler:
MsgBox 다시 시도해주세요
Exit Sub
FunctionEnd:
모듈 : Public Const BIF_RETURNONLYFSDIRS = 1 Public Const BIF_DONTGOBELOWDOMAIN = 2 Public Const MAX_PATH = 260
Public Declare Function SHBrowseForFolder Lib shell32 _ (lpbi As BrowseInfo) As Long
Public Declare Function SHGetPathFromIDList Lib shell32 _ (ByVal pidList As Long, _ ByVal lpBuffer As String) As Long
Public Declare Function lstrcat Lib kernel32 Alias lstrcatA _ (ByVal lpString1 As String, ByVal _ lpString2 As String) As Long
Public Type BrowseInfo hWndOwner As Long pIDLRoot As Long pszDisplayName As Long lpszTitle As Long ulFlags As Long lpfnCallback As Long lParam As Long iImage As Long End TypePublic Function BrowserOpen(hWnd As Long) As String Dim lpIDList As Long Dim sBuffer As String Dim szTitle As String Dim tBrowseInfo As BrowseInfo
szTitle = 이미지가 들어있는 폴더선택... With tBrowseInfo .hWndOwner = hWnd .lpszTitle = lstrcat(szTitle, ) ; .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN End With
lpIDList = SHBrowseForFolder(tBrowseInfo) If (lpIDList) Then sBuffer = Space(MAX_PATH) SHGetPathFromIDList lpIDList, sBuffer sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1) BrowserOpen = sBuffer Else End If End FunctionFunction GetFileListInFolder(ByVal FolderPath As String, ByRef Arr() As String) As LongDim FilePath As String, Path As String, Path2 As String, i As LongPath = FolderPathPath2 = IIf(Right$(Path, 1) = \, Path, Path & \)FilePath = Dir$(Path2, vbNormal)Do While LenB(FilePath) ReDim Preserve Arr(i) Arr(i) = FilePath FilePath = Dir$ i = i + 1 GetFileListInFolder = iLoopEnd Function

신청하기