怎么获取光盘盘符？

2002-07-29 03:52:38 97 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

在卸载过VMware的设备上重新安装VMware全过程以前装过VMware的机子上清理不干净就会装不了虚拟机。就算用了传说中那个什么cleaner也不可以。我的这台电脑就遇到这种情况。下载好VMware后，按照一般顺序进行安装会显示错误信息。第一步：打开360安全卫士的主界面，打开木马防火墙，在系统防护中，找到“注册表防火墙”关闭。（注册表防火墙要在你安装完VMware后再开启，保护注册表安全）第二步：此时出现错误信息如下阅读详情

1、怎么获取光盘盘符？
2、怎么给文件改名？
3、获取网络驱动器？

...全文

ArcGIS 10.2 保姆级安装与破解教程（含License Manager启动失败解决方案）本文提供ArcGIS 10.2中文版的保姆级安装与破解教程，详细讲解从环境检查到License Manager配置的全流程，特别针对License Manager启动失败等常见问题提供专业解决方案，帮助用户顺利完成地理信息系统软件的安装与激活。阅读详情

gxbhhp

PowerBuilder 1,111 成员 66,454 内容

+ 关注 + 加入社区

切换为时间正序

zhanwei 2002-07-29

打赏
举报

1、
Get the CDROM drive letter
[Function declarations]
FUNCTION ulong GetLogicalDrives() LIBRARY "Kernel32.dll"
FUNCTION uint GetDriveType( Ref String as_root_path )
LIBRARY "kernel32.dll" ALIAS FOR "GetDriveTypeA"

[PB function String of_GetCDRootPath()]

integer li_ctr
string ls_root
ulong lul_drives, lul_rem

lul_drives = GetLogicalDrives()

DO
lul_rem = MOD(lul_drives, 2)
IF lul_rem = 1 THEN
ls_root = Char(li_ctr + 64) + ":\"
IF GetDriveType(ls_root_path) = 5 THEN
Return ls_root_path
END IF
li_ctr ++
END IF
lul_drives /= 2
LOOP UNTIL lul_drives = 0

RETURN ""

2、Rename a file
Simply "move" it under a new name with the function FUNCTION BOOLEAN MoveFileA(STRING oldfile, STRING newfile)
LIBRARY "Kernel32.dll"

3、Retrieve the UNC from a mapped drive
To convert a normal paths (N:\PATH) to UNC (\\SERVER\PATH). [local external function declaration]
FUNCTION ulong WNetGetConnectionA ( ref string drv, ref string unc, ref ulong buf ) &
LIBRARY "mpr.dll"

[powerscript]
string ls_tmp, ls_unc
Ulong ll_rc, ll_size

ls_tmp = upper(left(as_path,2))
IF right(ls_tmp,1) <> ":" THEN RETURN as_path

ll_size = 255
ls_unc = Space(ll_size)

ll_rc = WNetGetConnectionA (ls_tmp, ls_unc, ll_size)
IF ll_rc = 2250 THEN
// prbably local drive
RETURN as_path
END IF

IF ll_rc <> 0 THEN
MessageBox("UNC Error","Error " + string(ll_rc) + " retrieving UNC for " + ls_tmp)
RETURN as_path
END IF

// Concat and return full path
IF len(as_path) > 2 THEN
ls_unc = ls_unc + mid(as_path,3)
END IF

RETURN ls_unc

joss 2002-07-29

打赏
举报

PB编程俱乐部有这文面的例子，比我们讲得详细！！

hjd_cw 2002-07-29

打赏
举报

FUNCTION BOOLEAN MoveFileA(STRING oldfile, STRING newfile)
LIBRARY "Kernel32.dll"

hjd_cw 2002-07-29

打赏
举报

定义外部函数
FUNCTION ulong GetLogicalDrives() LIBRARY "Kernel32.dll"
FUNCTION uint GetDriveType( Ref String as_root_path )
LIBRARY "kernel32.dll" ALIAS FOR "GetDriveTypeA"

[PB 函数 String of_GetCDRootPath()]

integer li_ctr
string ls_root
ulong lul_drives, lul_rem

lul_drives = GetLogicalDrives()

DO
lul_rem = MOD(lul_drives, 2)
IF lul_rem = 1 THEN
ls_root = Char(li_ctr + 64) + ":\"
IF GetDriveType(ls_root_path) = 5 THEN
Return ls_root_path
END IF
li_ctr ++
END IF
lul_drives /= 2
LOOP UNTIL lul_drives = 0

RETURN ""

怎么获取光盘盘符？

相关推荐