全部

怎样得到当前盘下的目录，或者当前目录下的子目录？急!

991zwl 2002-02-24 10:58:24

是用API函数吗？

...全文

31 点赞收藏 7

写回复

7 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

zyqherozyqhero 2002-02-25

同意 programbcb(datawindow）意见

回复赞

sorrow_arrow 2002-02-25

收藏先

回复赞

daiwoo_wang 2002-02-25

补充:如果将盘符图片放在DDPLB中,效果更好,可以查到包括网络驱动器在内的所有类型

回复赞

daiwoo_wang 2002-02-25

可以这样解决:
建窗口,其上有DDPLB(图形下拉框),LB控件,窗口的OPEN事件中如下:
String ls_Item
Integer li_Index, li_Drives, li_DriveType
String ls_Drive

this.inv_base.of_Center()

lb_file.DirList("*.*",49152,st_curr_path)

li_Drives = lb_file.TotalItems()
For li_Index = 1 To li_Drives
ls_Drive = mid(lb_file.text(li_index),3,1)
li_DriveType = wf_get_drive_index(ls_Drive)
ddplb_drive.AddItem(ls_Drive + ":\", li_DriveType)
Next

DDPLB的SELECTIONCHANGED事件如下:
String ls_CurPath

ls_CurPath = this.Text
ii_level = 1
is_parentpath[ii_level] = ls_Curpath

lb_file.Reset()
lb_file.DirList(ls_CurPath + "*.*", 32784)

lb_1.DirList(ls_CurPath + "*.*", 32784)

窗口函数WF_GET_DRIVE_INDEX(STRING AS_DRIVE)函数如下:
Uint lui_RC
string drv_name

as_drive = upper(as_drive) + ":\"

lui_RC = GetDriveTypeA (as_drive)

Choose Case lui_RC
Case 2
Return 1

Case 3
Return 2

Case 4
Return 3

Case 5
Return 4

Case Else
Return 0
End Choose

窗口定义实例变量
string is_parentpath[]
integer ii_level

注意定义API函数:
FUNCTION ulong GetDriveTypeA(ref string nDrive) LIBRARY "kernel32.DLL"

在选择路径的确定按钮中可以如下写:
string s_path
int i

i = UPPERBOUND(is_parentpath)

s_path = lb_1.selecteditem()

IF i > 0 THEN
s_path = is_parentpath[i] + mid(s_path,2,len(s_path) - 2)
ELSE
s_path = ''
END IF

IF right(s_path,1) <> '\' AND len(s_path) >0 THEN
s_path = s_path + "\"
END IF

IF len(s_path) = 0 THEN
messagebox("系统提示","请选择一个目录!",Stopsign!)
ELSE
CloseWithReturn(parent,s_path)
END IF

以上在PB7中通过,我放在了我的公共库中,以后都可以用了,嘿嘿.
另外窗口OPEN事件中的INV_BASE.OF_CENTER()是PFC的函数,没有用PFC的同志可以将其去掉,其他不变!

回复赞

pbworm 2002-02-24

使用listBox的dirlist函数就可以了，具体怎么用你自己查一下帮助

回复赞

programbcb 2002-02-24

API函数可以得到的FUNCTION boolean SetCurrentDirectoryA(ref string cdir) LIBRARY "kernel32.dll"
string ls_Buffer

ls_Buffer=Space(255)

IF GetCurrentDirectoryA(255,ls_Buffer)=0 THEN SetNull(ls_Buffer)

RETURN ls_Buffer

回复赞

daiwoo_wang 2002-02-24

绝对可以，我用过，具体代码要查一下。看一下PB6自带的例子，可以解决。如果需要，我可以把SCRIP贴上来

回复赞

Linux学习：Linux 的文件权限与目录配置引用：《鸟哥的Linux私房菜基础篇第三版》 Linux最优秀的地方之一就在于他的多人多任务环境。而为了让各个使用者具有较保密的文件数据，因此文件的权限管理就变的很重要了。 Linux一般将文件可存取的身份...

实验楼-Linux基础-实验四：Linux目录结构及文件基本操作目录一、实验介绍 1.1 实验内容 1.2 实验知识点二、Linux目录结构 2.1FHS标准 2.2目录路径自我补充：Linux下的绝对路径与相对路径三、Linux文件的基本操作 3.1新建 3.2复制 3.3删除 3.5 查看文件 ...

Linux基础（3）—— 目录结构及文件基本操作 Linux 目录结构在讲 Linux 目录结构之前，你首先要清楚一点，那就是 Linux 的目录与 Windows ...Windows 以存储介质为主，主要以盘符（C 盘，D 盘…）及分区来实现文件管理，然后之下才是目录，目录就显得不是那么...

实验 4 Linux 目录结构及文件基本操作实验 4Linux 目录结构及文件基本操作一、实验介绍 Linux 的文件组织目录结构。相对路径和绝对路径。对文件的移动、复制、重命名、编辑等操作。 1.1 实验知识点每个目录的大体内容文件的属性 touch，file...

【Linux】实验楼-Linux 目录结构及文件基本操作【Linux】Linux 目录结构及... 一种不同是体现在目录与存储介质（磁盘，内存，DVD 等）的关系上，以往的 Windows 一直是以存储介质为主的，主要以盘符（C 盘，D 盘...）及分区来实现文件管理，然后之下才是目录，...

LeetCode解题汇总目录此篇为学习完《数据结构与算法之美》后，在LeetCode刷题的汇总目录，方便大家查找（Ctrl+Find），一起刷题，一起PK交流！另有解题：《剑指Offer》、《程序员面试金典》、LintCode代码能力测试CAT。如果本文对你有...

相见恨晚的编程学习词典！谁还不是南极滑冰的那个崽儿？！ received: 审查，复习，回顾，评论 de facto standard: 约定成俗的 spot: 地点，部位，场所，斑点，污点，点；太阳黑子；局部，地区；亮点；现货 linguistic: 语言学 AI - Platform : 人工智能平台 ...

linux时间戳_linux学习笔记（实验楼）实验4 linux目录结构及文件基本操作昨天作业的解析：第一步：先在命令行输入以下命令添加用户loutest：sudo adduser loutest第二步：创建文件forloutest：sudo touch /opt/forloutestcd /optsudo chown loutest forloutest第三步：进入用户loutest，并...