GetOpenFileName

函式原型

BOOL GetOpenFileName（LPOPENFILENAME Ipofn）；

參數

Ipofn：指向包含初始化對話框的信息的一個OPENFILENAME結構。當OpenfileName函式返回時，此結構包含有關用戶檔案選擇的信息。

返回值：如果用戶指定了一個檔案名稱，點擊OK按鈕，返回值為非零。由OPENFILENAME結構的IPstrFile成員指向的緩衝區含有全路徑和用戶指定的檔案名稱。如果用戶取消或關閉Open對話框或錯誤出現，返回值為零。若想獲得更多的錯誤信息，請調用CommDlgExtendedError函式。

備註：從Windows 95和Windows NT 4.0版開始，預設的Open對話框提供了與Windows Explorer相似的用戶界面特徵。可以為一個瀏覽器風格的Open對話框提供一個OFNHOOKProc掛鈎函式。設定OPENFILFNAME結構的Flags成員中OFN_EXPLORER和OFN_ENABLEHOOK標示和指定IpfnHook成員中掛鈎函式的地址，可使掛鈎函式生效。

Windows 95和Windows NT仍支持舊風格的Open對話框以便維持與一個Windows 3.1或Windows NT3.51用戶界面相一致的用戶界面。使OFNHOOKProcOldstyle掛鈎函式生效和保證OFN_EXPLORER標誌沒有被設定，就可以顯示舊式的Open對話框。

為顯示允許用戶選擇一個目錄而不是一個檔案的對話框，要調用SHBrowseForFolder函式。

Windows CE：並不是每一個OPENFILENAME結構的成員都在Windows CE中被定義。有關定義成員的更多的信息，請參見OPENFILENAME結構的資料主題。

速查：Windows NT：3.1及以上版本；Windows：95及以上版本；Windows CE：1.0及以上版本；頭檔案：COmmdlg.h；庫檔案：comdlg32.lib；Unlcode：在Windows NT環境中實現為Unicode和ANSI兩個版本。

使用方法：Nextss'TesttoseeifanyScopeFolderscollectionswereaddedto'theSearchFolderscollection.If.SearchFolders.Count>0Then'SettheLookInpropertytothepathof'thefirstScopeFolderobjectintheSearchFolders'collection.Thisisheresothatanyprevious'settingoftheLookInpropertydoesn'taffect'thesearch..LookIn=.SearchFolders.Item(1).Path'Executethesearchandtesttoseeifanyfiles'werefound.If.Execute<>0Then'Displaythenumberoffilesfound.MsgBox"Filesfound:"&.FoundFiles.Count'Loopthroughthelistoffoundfilesand'displaythepathofeachoneinamessagebox.ForlngCount=1To.FoundFiles.CountIfMsgBox(.FoundFiles.Item(lngCount),vbOKCancel,_"Foundfiles")=vbCancelThen'BreakoutofthelooplngCount=.FoundFiles.CountEndIfNextlngCountEndIfEndIfEndWithEndSub'ThissubroutineloopsthroughalloftheScopeFolderscollections'inagivenScopeFolderscollection.Itaddsanyfolder'thathasthesamenameasthevalueofstrFolder'totheSearchFolderscollection.SubOutputPaths(ByValsfsAsScopeFolders,_ByRefstrFolderAsString)'DeclareavariableasaScopeFolderobjectDimsfAsScopeFolder'LoopthrougheachScopeFolderobjectinthe'ScopeFolderscollection.ForEachsfInsfs'TesttoseeifthefoldernameoftheScopeFolder'matchesthevalueofstrFolder.UseLCasetoensure'thatcasedoesnotaffectthematch.IfLCase(sf.Name)=LCase(strFolder)Then'AddtheScopeFoldertotheSearchFolderscollection.sf.AddToSearchFoldersEndIf'IncludeaDoEventscallbecausethereisthepotentialforthis'looptolastalongtime.TheDoEventscallallowsthisprocessto'continuehandlingevents.DoEvents'TesttoseeiftheScopeFolderscollectioninthe'currentScopeFolderisempty.Ifitisn'tempty,then'thatmeansthatthecurrentScopeFolderobjectcontainssubfolders.Ifsf.ScopeFolders.Count>0Then'Thissubroutinerecursivelycallsitselfsothat'itcanaddthesubfoldersofthecurrentScopeFolderobject'totheSearchFolderscollection.CallOutputPaths(sf.ScopeFolders,strFolder)EndIfNextsfEndSubSearchScopes屬性返回SearchScopes集合。本示例顯示SearchScopes集合中所有當前可用的SearchScope對象。SubDisplayAvailableScopes()'Declareavariablethatreferencesa'SearchScopeobject.DimssAsSearchScope'UseaWith...EndWithblocktoreferencethe'FileSearchobject.WithApplication.FileSearch'LoopthroughtheSearchScopescollectionForEachssIn.SearchScopesSelectCasess.TypeCasemsoSearchInMyComputerMsgBox"MyComputerisanavailablesearchscope."CasemsoSearchInMyNetworkPlacesMsgBox"MyNetworkPlacesisanavailablesearchscope."CasemsoSearchInOutlookMsgBox"Outlookisanavailablesearchscope."CasemsoSearchInCustomMsgBox"Acustomsearchscopeisavailable."CaseElseMsgBox"Can'tdeterminesearchscope."EndSelectNextssEndWithEndSubSearchScopes集合SearchScope對象的集合。使用FileSearch對象的SearchScopes屬性返回SearchScopes集合，例如：DimsssAsSearchScopesSetsss=Application.FileSearch.SearchScopes不能向SearchScopes集合中添加或從中刪除SearchScope對象。SearchSubFolders屬性如果搜尋範圍包括LookIn屬性指定的資料夾中的所有子資料夾，則返回True。Boolean類型，可讀寫。TextOrProperty屬性返回或設定在查找檔案的過程中要搜尋的單詞或短語，它們可位於一個檔案的正文或檔案屬性中。該單詞或短語可包含*（星號）或?（問號）通配符。String類型，可讀寫。用問號通配符可匹配任意單個字元。例如，鍵入“gr?y”可找到符合如下條件的所有檔案，即檔案中至少有一處出現單詞“gray”或“grey”。用星號通配符可匹配任意數目的字元。例如，鍵入“San*”可找到符合如下條件的所有檔案，即文件中至少有一處出現以“San”開頭的單詞。本示例可實現的功能為：搜尋“C:\MyDocuments”資料夾及其子資料夾，並返回所有這樣的檔案，該檔案在檔案正文或檔案屬性中包含以“San”開頭的單詞。TextOrProperty屬性設定要查找的單詞，並將搜尋範圍限制在檔案正文或檔案屬性中。WithApplication.FileSearch.NewSearch.LookIn="C:\MyDocuments".SearchSubFolders=True.TextOrProperty="San*".FileType=msoFileTypeAllFilesEndWithExecute方法開始對指定檔案的搜尋。返回一個Long類型，如果沒有找到檔案，則返回零(0)，如果找到一個或多個檔案，則返回一個正數。expression.Execute(SortBy,SortOrder,AlwaysAccurate)其中，expression必需。該表達式返回一個FileSearch對象。參數SortBy，MsoSortBy類型，可選。該方法用於對返回的檔案進行排序。MsoSortBy可以為下列MsoSortBy常量之一。msoSortByFileName默認值、msoSortByFileType、msoSortByLastModified、msoSortByNone、msoSortBySize。參數SortOrder，MsoSortOrder類型，可選。表明所返回檔案的排序順序。參數MsoSortOrder，可以為下列MsoSortOrder常量之一。msoSortOrderAscending，默認值、msoSortOrderDescending。參數AlwaysAccurate，Boolean類型，可選。設定為True使檔案搜尋包括上次更新檔案索引以來添加、修改或刪除的檔案。默認值為True。本示例在MyDocuments資料夾中搜尋以擴展名“.doc”結尾的所有檔案，然後顯示找到的每個檔案的位置和名稱。本示例還以字母升序排序返回的檔案名稱稱。Setfs=Application.FileSearchWithfs.LookIn="C:\MyDocuments".FileName="*.doc"If.Execute(SortBy:=msoSortByFileName,_SortOrder:=msoSortOrderAscending)>0ThenMsgBox"Therewere"&.FoundFiles.Count&_"file(s)found."Fori=1To.FoundFiles.CountMsgBox.FoundFiles(i)NextiElseMsgBox"Therewerenofilesfound."EndIfEndWithNewSearch方法將所有搜尋條件重置為默認設定。搜尋條件的設定在應用程式的一個會話中將保持不變。每次更改搜尋條件時可用此方法。此方法不會重新設定LookIn屬性的值。本示例可實現的功能為：在開始新一輪搜尋過程之前用NewSearch方法重新設定默認的搜尋條件。WithApplication.FileSearch.NewSearch.LookIn="C:\MyDocuments".SearchSubFolders=True.FileName="run".TextOrProperty="San*".MatchAllWordForms=True.FileType=msoFileTypeAllFilesIf.Execute()>0ThenMsgBox"Therewere"&.FoundFiles.Count&_"file(s)found."Fori=1To.FoundFiles.CountMsgBox.FoundFiles(i)NextiElseMsgBox"Therewerenofilesfound."EndIfEndWithRefreshScopes方法刷新當前可用ScopeFolder對象的列表。下面的示例將顯示“我的電腦”C:\驅動器上所有當前可用的ScopeFolder對象，並說明在對資料夾列表進行更改時需要使用RefreshScopes方法。SubTestRefreshScopesMethod()'DisplayswhathappensbeforeandaftertheRefreshScopes'methodiscalledwhenanewfolderisaddedtothelist'ofscopefolders.'Listbeforethefolderiscreated.CallListFolderNames'CreateanewfolderontheC:\driveinMyComputer.'Anerrorwilloccurifthisfolderalreadyexists.MkDirPath:="C:\Delete_After_Using"'Listafterthefolderiscreated.'Thenewly-createdfolderdoesnotappearinthelist.CallListFolderNames'Refreshthelistoffolders.Application.FileSearch.RefreshScopes'Thenewly-createdfoldernowappearsinthelist.CallListFolderNamesEndSubSubListFolderNames()DimiAsIntegerDimstrResultsAsString'Loopthroughallthetop-levelfoldernamesontheC:\drive'inMyComputerandreporttheresults.'.SearchScopes.Item(1)="MyComputer"'.ScopeFolders.Item(2)="C:\"WithApplication.FileSearch.SearchScopes.Item(1)._ScopeFolder.ScopeFolders.Item(2)Fori=1To.ScopeFolders.CountstrResults=strResults&.ScopeFolders._Item(i).Name&vbCrLfNextiMsgBox"FolderNamesonC:\...."&vbCrLf&strResultsEndWithEndSub

GetOpenFileName

基本介紹

函式原型

參數

相關詞條

熱門詞條