VFP 愛用者社區

[Ruey]

Visual Foxpro 錦囊妙計
在VFP要如何設計，讓使用者可以去 MAP 到一個網路的槽區?
By Visual Foxpro User Club

利用Win32 API中的函式，能夠讓我們在VFP來進行網路槽區的 Mapping。以下的程式碼假設您要讓 M: 對映至Server上的MyDirectory這個分享名稱上:
DECLARE integer WNetAddConnection IN win32api string,string,string
cShare_Name = "\\ServerName\MyDirectory"


nOK = WNetAddConnection(cShare_Name, .NULL., "M:")


IF nOK = 0
WAIT WINDOW cShare_Name +"連結成功!"
ELSE
WAIT WINDOW"無法連結至" + cShare_Name
ENDIF

如果要切斷與網路磁碟機的連結:
DECLARE integer WNetCancelConnection2 IN WIN32API string,INTEGER
IF WNetCancelConnection2("R:",1)
WAIT "網路磁碟機切斷成功!"
ENDIF




Visual Foxpro 錦囊妙計
在 VFP 應用程式中，如何取得已用及可用的磁碟機代號?
By Visual Foxpro User Club

問題:
如何在Visual Foxpro 的應用程式中，取得目前已被用及可用的磁碟機代號 ?
說明:
取得可用的磁碟機代號，在實務開發上非常實用，VFP能夠讓我們彈性來使用Windows的資源，您可以利用Win32 API來查詢這些資料，以下便是利用 GetLogicalDrives() 這個API來取得這些資訊。
GetLogicalDrives()函式，會傳回一個數值，數值中的每一個bit其值若為 1，則表示該磁碟機為已用，其值為0則表示磁碟機為可用。在這個技巧中筆者還使用了VFP中的BitLshift()函式，來執行bit的運算。
請看以下程式碼:
Declare integer GetLogicalDrives in kernel32.dll AS Is_Driver_Ready
nReslut = Is_Driver_Ready()
cUsed_Driver = "已被用的磁碟機代號有: "
cAvail_Driver = "可用的磁碟機代號有: "
nMask = 1
FOR i = 1 TO 26
IF BITAND( nReslut, nMask) != 0
cUsed_Driver = cUsed_Driver + CHR(64+i) + ","
ELSE
cAvail_Driver = cAvail_Driver + CHR(64+i) + ","
ENDIF
nMask = BITLSHIFT(nMask,1)
NEXT
WAIT cUsed_Driver + chr(13) + cAvail_Driver WINDOW

[Jerry]

請問....
有可以直接用類似Getdir()的方法取得我所想要的共享網路目錄嗎 ? Tks!

[小賴]

請問：
網路芳鄰，電腦名稱："小賴" ; 其d:磁碟機之temp目錄(D:\Temp)
如果要用WNetAddConnection Mapping 至 M: 應如何下參數 ?

[小桑•無痕]

[OLDSTONE]

**如果要切斷與網路磁碟機的連結:
Declare Integer WNetCancelConnection2 In WIN32API String,Integer
If WNetCancelConnection2('R:',1)
Wait "網路磁碟機切斷成功!"
Endif

執行出現錯誤訊息==> Data type mismatch

[小賴]

[小桑•無痕]

開放共用方式..如圖所示
下面程式我在本機測試OK...

如果是連至他台電腦...要注意權限問題.....
共享名稱 LAI_HDD_D_TEMP 可自行修改....(就是步驟(2)內，共用名稱所填的內容，當別人填的是ABC，那就要改成ABC)

[syntech]

windows 2003 server 還有其他群組權限,安全性,..... 的設定要作,

[Abel]

我想這一篇是亂碼吧 ~ ，請問 校主 有 解嗎 ？

[Abel]

抱歉是我沒有登入所至，登入後重新 view 就正常了，謝謝.