VFP 愛用者社區

Ruey · 註冊時間: 2003-03-12 文章: 1698 來自: tunglo 第 1 樓

【在 sdlf 的大作中提到：】
: 我想得到网上邻居上的一个路径名，可是用getdir()函数只能看到本地的驱动器，看不到网上邻居，请问怎么实现！谢谢！
:......

FUNCTION GetFolder
DECLARE INTEGER FindWindow IN WIN32API STRING,STRING
DECLARE INTEGER SHBrowseForFolder IN "Shell32.DLL" INTEGER @
DECLARE INTEGER SHGetPathFromIDList IN "Shell32.DLL" INTEGER,STRING @
lcTitle=_SCREEN.CAPTION &&取当前主窗口标题。
hOwner=FindWindow(0,lcTitle) &&取当前主窗口句柄
pidl=SHBrowseForFolder(hOwner) &&如果成功,将显示文件夹树,并将选择后的列表框指针,返回给pidl变量。
IF !ISNULL(pidl)
SelectPath=SPACE(512)
=SHGetPathFromIDList(pidl,@SelectPath)
ELSE
SelectPath=""
ENDIF
RETURN IIF(!EMPTY(SelectPath),LEFT(SelectPath,LEN(ALLT(SelectPath))-1),"")

朱育興 · 發表於: 星期一八月 25, 2003 12:49 am 文章主題:

記得 7.0 版的 GETDIR() 有新的參數可以使用，應該可以直接滿足你的需求，請直接看說明檔

Ruey · 發表於: 星期一八月 25, 2003 1:04 am 文章主題:

朱育興 · 發表於: 星期一八月 25, 2003 1:57 am 文章主題:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=big5">
<TITLE>GETDIR( ) 函數</TITLE>
<style>
<link disabled rel=stylesheet href=/stylesheets/msdn_ie3.css>
<style type="text/css">
@import url(/stylesheets/msdn_ie4.css);
</style></HEAD>

<H1><A NAME="lnggetdirlp_rp"></A>GETDIR( ) 函數</H1>

<A HREF="lnggetdirlp_rpsa.htm">相關資訊</A>

顯示一個<A HREF="cmdselect_directory_dialog_box.htm">[選擇目錄]對話方塊</A>來讓您選擇磁碟目錄。

語法

6.0 版：

GETDIR([cDirectory [, cText]])
7.0 版：

GETDIR([cDirectory [, cText [, cCaption [, nFlags [, lRootOnly]]]]])

傳回值

Character

參數

cDirectory

在對話方塊中指定一個啟始顯示之預設目錄。如果並未指定 cDirectory，[選擇目錄]對話方塊開啟時，將顯示 Visual FoxPro 之預設目錄(依 SET DEFAULT 或 CD 命令目前所設定者)。

cText

自行指定選擇磁碟目錄路徑之對話方塊的提示文字。

cCaption

指定對話方塊的標題。其預設值為"選擇目錄"(Browse for Folder)。

nFlags

為對話方塊指定選項。nFlags 可以包含 0 或額外的值之組合。下表包括一些更常見的選項。詳細資訊，請參閱 MSDN 的 SHBrowseForFolder。

<div class="tablediv"><table border=1 cellspacing="0" class="dtTABLE">

<TR VALIGN="top">
<TH width=13%>nFlag</TH>
<TH width=41%>值</TH>
<TH width=46%>敘述</TH>
</TR>

<TR VALIGN="top">
<TD width=13%>1</TD>
<TD width=41%>BIF_RETURNONLYFSDIRS</TD>
<TD width=46%>只傳回檔案系統目錄 (物理位置)。如果使用者選擇的資料夾不是檔案系統的一部分，則確定 (OK) 按鈕是灰色。</TD>
</TR>

<TR VALIGN="top">
<TD width=13%>2</TD>
<TD width=41%>BIF_DONTGOBELOWDOMAIN</TD>
<TD width=46%>在樹狀檢視(tree view)控制項(例如：My Computer 和 My Networks)中不包括網路資料夾下面的域名層級(domain level)。</TD>
</TR>

<TR VALIGN="top">
<TD width=13%>8</TD>
<TD width=41%>BIF_RETURNFSANCESTORS</TD>
<TD width=46%>只傳回檔案系統的 ancestors。如果使用者選擇了任何其他非檔案系統的 ancestors，則確定 (OK) 按鈕是灰色。</TD>
</TR>

<TR VALIGN="top">
<TD width=13%>16</TD>
<TD width=41%>BIF_EDITBOX</TD>
<TD width=46%>瀏覽對話方塊包括一個編輯控制項讓使用者可以打入一個項目的名稱。Windows 98 及以上版本，或 Internet Explorer 4.0 及以上 (假設選定了 shell integration 選項) 可用。要求 4.71 版的 shell32.dll。</TD>
</TR>

<TR VALIGN="top">
<TD width=13%>64</TD>
<TD width=41%>BIF_USENEWUI</TD>
<TD width=46%>使用新的使用者介面。設定該 nFlags 可以為使用者提供一種較大的、可調整大小的對話方塊。其他功能包括：在對話方塊中的拖放能力、重排序、上下文相關功能表、新建資料夾、刪除和其他上下文相關功能表命令。僅支援 Windows 2000 及以上。要求 5.00 版的 shell32.dll。</TD>
</TR>

<TR VALIGN="top">
<TD width=13%>16384</TD>
<TD width=41%>BIF_BROWSEINCLUDEFILES </TD>
<TD width=46%>瀏覽對話方塊將可以像資料夾一樣顯示檔案。Windows 98 及以上版本，或 Internet Explorer 4.0 及以上 (假設選定了 shell integration 選項) 可用。要求 4.71 版的 shell32.dll。</TD>
</TR>
</table></div>

lRootOnly

指定只顯示 cDirectory 及其子目錄。該參數防止向上定位到根目錄。如果沒有指定 cDirectory，就使用預設目錄 (SET DEFAULT 值)。

說明

GETDIR( ) 將您選擇之磁碟目錄的名稱以一個文字串傳回。

如果您沒有選擇一個資料夾 (您按下「取消」(Cancel) 按鈕、ESC 鍵或從視窗功能表選擇關閉)，GETDIR( ) 將傳回一個空字串。
自 Visual FoxPro 7 開始，GETDIR(&) 支援兩種不同的對話方塊。如果您提供少於三個參數，GETDIR(&) 傳回早期版本的對話方塊。如果提供大於兩個參數，Visual FoxPro 使用 Win32 API 中的 SHBrowseForFolder 常式來顯示對話方塊。

</HTML>

Ruey · 發表於: 星期一八月 25, 2003 3:24 am 文章主題:

如果能把那煩人的HTML去掉會更好

朱育興 · 發表於: 星期一八月 25, 2003 10:37 am 文章主題:

GETDIR( ) 函數

顯示一個[選擇目錄]對話方塊來讓您選擇磁碟目錄。

語法
6.0 版： GETDIR([cDirectory [, cText]])
7.0 版： GETDIR([cDirectory [, cText [, cCaption [, nFlags [, lRootOnly]]]]])

傳回值
Character

參數
cDirectory
在對話方塊中指定一個啟始顯示之預設目錄。如果並未指定 cDirectory，[選擇目錄]對話方塊開啟時，將顯示 Visual FoxPro 之預設目錄(依 SET DEFAULT 或 CD 命令目前所設定者)。

cText
自行指定選擇磁碟目錄路徑之對話方塊的提示文字。

cCaption
指定對話方塊的標題。其預設值為"選擇目錄"(Browse for Folder)。

nFlags
為對話方塊指定選項。nFlags 可以包含 0 或額外的值之組合。下表包括一些更常見的選項。詳細資訊，請參閱 MSDN 的 SHBrowseForFolder。

nFlag　值　　　　　　　　　　　　　　敘述
1　　　BIF_RETURNONLYFSDIRS　　　只傳回檔案系統目錄 (物理位置)。如果使用者選擇的資料夾
　　　　　　　　　　　　　　　　　　　　不是檔案系統的一部分，則確定 (OK) 按鈕是灰色。
2　　　BIF_DONTGOBELOWDOMAIN　　在樹狀檢視(tree view)控制項(例如：My Computer 和
　　　　　　　　　　　　　　　　　　　　 My Networks)中不包括網路資料夾下面的域名層級
　　　　　　　　　　　　　　　　　　　　(domain level)。
8　　　BIF_RETURNFSANCESTORS　　只傳回檔案系統的 ancestors。如果使用者選擇了任何其他
　　　　　　　　　　　　　　　　　　　　非檔案系統的 ancestors，則確定 (OK) 按鈕是灰色。
16　　 BIF_EDITBOX　　　　　　　　　瀏覽對話方塊包括一個編輯控制項讓使用者可以打入一個項
　　　　　　　　　　　　　　　　　　　　目的名稱。Windows 98 及以上版本，或 Internet
　　　　　　　　　　　　　　　　　　　　Explorer 4.0 及以上 (假設選定了 shell integration
　　　　　　　　　　　　　　　　　　　　選項) 可用。要求 4.71 版的 shell32.dll。
64　　 BIF_USENEWUI　　　　　　　　　使用新的使用者介面。設定該 nFlags 可以為使用者提
　　　　　　　　　　　　　　　　　　　　供一種較大的、可調整大小的對話方塊。其他功能包括：
　　　　　　　　　　　　　　　　　　　　在對話方塊中的拖放能力、重排序、上下文相關功能表、
　　　　　　　　　　　　　　　　　　　　新建資料夾、刪除和其他上下文相關功能表命令。僅支
　　　　　　　　　　　　　　　　　　　　援 Windows 2000 及以上。要求 5.00 版的 shell32.dll。
16384　　BIF_BROWSEINCLUDEFILES　　瀏覽對話方塊將可以像資料夾一樣顯示檔案。
　　　　　　　　　　　　　　　　　　　　Windows 98 及以上版本，或 Internet Explorer 4.0
　　　　　　　　　　　　　　　　　　　　及以上 (假設選定了 shell integration 選項) 可用。
　　　　　　　　　　　　　　　　　　　　要求 4.71 版的 shell32.dll。

lRootOnly
指定只顯示 cDirectory 及其子目錄。該參數防止向上定位到根目錄。如果沒有指定 cDirectory，就使用預設目錄 (SET DEFAULT 值)。

說明
GETDIR( ) 將您選擇之磁碟目錄的名稱以一個文字串傳回。
如果您沒有選擇一個資料夾 (您按下「取消」(Cancel) 按鈕、ESC 鍵或從視窗功能表選擇關閉)，GETDIR( ) 將傳回一個空字串。

自 Visual FoxPro 7 開始，GETDIR(&) 支援兩種不同的對話方塊。如果您提供少於三個參數，GETDIR(&) 傳回早期版本的對話方塊。如果提供大於兩個參數，Visual FoxPro 使用 Win32 API 中的 SHBrowseForFolder 常式來顯示對話方塊。

Jerry · 發表於: 星期四八月 28, 2003 12:44 pm 文章主題: TKS!

感謝大大的分享~
我找這個已經找好久了~~ Razz

真是感動~~

jerryclt · 發表於: 星期三六月 24, 2015 4:37 pm 文章主題:

請教一下,
開版這一篇的方式,
每次都指在根目錄(WIN-7 是指在[電腦]),
有沒有辦法指定任何一個資料夾當預設資料夾?

謝謝指教