![]() SortOrder:=msoSortOrderAscending) = 0 Then Exit FunctionįileList(FileCount) =. StrFolder = BrowseForFolderShell(,, , 0) If FileFilter = "" Then FileFilter = "*.*" ' all files ' the filter criteria in the current folderĭim FileList() As String, FileCount As Long ' returns the full filename for files matching SzItem = objFolder.GetDetailsOf(objFolderItem, 2)įunction CreateFileList(FileFilter As String, _ Set objFolderItem = objFolder.ParseName("clock.avi") Set objFolder = objShell.Namespace("C:\WINDOWS") Set objFolder = objShell.BrowseForFolder(0, "", BIF_BROWSEINCLUDEFILES, &H6) '// This will not only limit the User to a specific Folder StrFolderFullPath = & Application.PathSeparator ![]() If IsError() Then strFolderFullPath = CStr(objFolder): GoTo GotIt Set objFolder = objShell.BrowseForFolder(Hwnd, sTitle, BIF_Options, vRootFolder) Set objShell = CreateObject("Shell.Application") Optional vRootFolder As Variant) As String Optional BIF_Options As Integer = BIF_VALIDATE, _ '// objFolder = objShell.BrowseForFolder(Hwnd, sTitle, BIF_Options ) '// Windows 98, Windows 95 with Internet Explorer 4.0 '// Minimum operating systems Windows 2000, Windows NT 4.0 with Internet Explorer 4.0, '// Minimum DLL version shell32.dll version 4.71 or later Public Const BIF_NONEWFOLDERBUTTON = &H200 ![]() Public Const BIF_BROWSEINCLUDEURLS = &H80 Public Const BIF_BROWSEINCLUDEFILES = &H4000 Public Const BIF_BROWSEFORPRINTER = &H2000 Public Const BIF_BROWSEFORCOMPUTER = &H1000
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |