폴더지정하면 폴더의 이미지불러오기
난새
폴더를 클릭하면 폴더의 이미지의 를 다불러오는 아래의 소스가있습니다.여기서..*.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
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2676241 | 이거왜이래, 짜증나게 (4) | 각티슈 | 2024-11-25 |
| 2676213 | 네이버 글작성 도배기에 대한질문좀... (5) | Sona | 2024-11-25 |
| 2676183 | 후킹? (1) | 꼬꼬마 | 2024-11-24 |
| 2676153 | 아차! 음악링크좀 쓰게 올려주실분.. 많이있는곳으로! | 사이 | 2024-11-24 |
| 2676125 | Themida 패킹시 윈도우7은 호환 하지 못하나요? | 라 | 2024-11-24 |
| 2676093 | 현재프로그램 파일이름을 추출하는걸알고싶습니다 (1) | 도1도캣 | 2024-11-24 |
| 2676066 | exe를 소스로 만드는법좀.. (3) | 회전력 | 2024-11-23 |
| 2676034 | 이런 창은 어떻게 지우나요? | 수련 | 2024-11-23 |
| 2676006 | 질문하나더~ | 찬바리 | 2024-11-23 |
| 2675930 | 작업관리자 차단 | 별빛 | 2024-11-22 |
| 2675901 | 숫자를 제외한 문자를 어떻게 나타내야될까요? | 진나 | 2024-11-22 |
| 2675871 | 거의마지막질문인데요 | 아메 | 2024-11-22 |
| 2675846 | 제가 완성햇는데요 ㅎ; | 거늘 | 2024-11-21 |
| 2675824 | 타이머. 프로그래스바 코드 질문입니다. (10) | 빛글 | 2024-11-21 |
| 2675798 | 이걸 머라고해야 할지모르지만 질문합니다 (2) | 리라 | 2024-11-21 |
| 2675772 | 구구단 함수 질문이요~! (1) | 테이 | 2024-11-21 |
| 2675746 | exe저장시 런타임53 에러 | 아픔이보여 | 2024-11-20 |
| 2675718 | ocx 설치법 | 달달한캔디 | 2024-11-20 |
| 2675630 | ""안에 큰따음표 넣기. | 터전 | 2024-11-19 |
| 2675519 | 컴파일 오류 ?? | 슬아라 | 2024-11-18 |