VFP 愛用者社區

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

Visual Foxpro �A�n妙�p
�bVFP�n�p何設�p�A讓使用者�i�H�h MAP 到一個網路的槽區?
By Visual Foxpro User Club

�Q用Win32 API中的函式�A能夠讓我們�bVFP來�i行網路槽區的 Mapping�C�H�U的程式�X假設�z�n讓 M: 對�M至Server�W的MyDirectory�o個分享�W稱�W:
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 +"�s結成功!"
ELSE
WAIT WINDOW"�L�k�s結至" + cShare_Name
ENDIF

�p�G�n切�_�P網路磁碟機的�s結:
DECLARE integer WNetCancelConnection2 IN WIN32API string,INTEGER
IF WNetCancelConnection2("R:",1)
WAIT "網路磁碟機切�_成功!"
ENDIF

Visual Foxpro �A�n妙�p
�b VFP 應用程式中�A�p何取�o�w用及�i用的磁碟機�N號?
By Visual Foxpro User Club

問�D:
�p何�bVisual Foxpro 的應用程式中�A取�o目�e�w�Q用及�i用的磁碟機�N號 ?
說明:
取�o�i用的磁碟機�N號�A�b實務開�o�W�D常實用�AVFP能夠讓我們�u性來使用Windows的資源�A�z�i�H�Q用Win32 API來�d詢�o些資料�A�H�U�K�O�Q用 GetLogicalDrives() �o個API來取�o�o些資�T�C
GetLogicalDrives()函式�A會傳回一個數值�A數值中的�C一個bit其值�Y為 1�A�h表示該磁碟機為�w用�A其值為0�h表示磁碟機為�i用�C�b�o個技巧中筆者還使用�FVFP中的BitLshift()函式�A來執行bit的�B算�C
請看�H�U程式�X:
Declare integer GetLogicalDrives in kernel32.dll AS Is_Driver_Ready
nReslut = Is_Driver_Ready()
cUsed_Driver = "�w�Q用的磁碟機�N號有: "
cAvail_Driver = "�i用的磁碟機�N號有: "
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 · 發表於: 星期三八月 13, 2003 4:57 pm 文章主題:

請問....
有�i�H直接用類似Getdir()的方�k取�o我所�Q�n的共享網路目錄嗎 ? Tks!

小賴 · 註冊時間: 2004-12-27 文章: 476 第 3 樓

請問�G
網路芳�F�A�q腦�W稱�G"�p賴" ; 其d:磁碟機之temp目錄(D:\Temp)
�p�G�n用WNetAddConnection Mapping 至 M: 應�p何�U參數 ?

小桑‧無痕 · 發表於: 星期二七月 05, 2005 11:20 am 文章主題:

OLDSTONE · 註冊時間: 2003-09-30 文章: 29 第 5 樓

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

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

小賴 · 註冊時間: 2004-12-27 文章: 476 第 6 樓

小桑‧無痕 · 發表於: 星期四七月 07, 2005 9:28 am 文章主題:

開放共用方式..�p圖所示
�U面程式我�b本機測試OK...

�p�G�O�s至�L�x�q腦...�n注�N�v限問�D.....
共享�W稱 LAI_HDD_D_TEMP �i自行修改....(�N�O�B�J(2)內�A共用�W稱所填的內�e�A當�O�H填的�OABC�A那�N�n改成ABC)

syntech · 發表於: 星期四七月 07, 2005 11:20 am 文章主題:

windows 2003 server 還有其�L�s組�v限,�w全性,..... 的設�w�n作,

Abel · 發表於: 星期一十一月 26, 2007 3:03 pm 文章主題:

我�Q�o一�g�O亂�X�a ~ �A請問校�D 有解嗎 �H

Abel · 發表於: 星期一十一月 26, 2007 3:18 pm 文章主題:

抱�p�O我�S有�n�J所至�A�n�J後重�s view �N正常�F�A謝謝.