用户复制多个excel文件,之后在PB开发的系统点:粘贴,PB如何获取复制后的文件清单?

FrankLiang 2016-03-01 05:08:56
例如用户选中了3个文件,最好能获取到类似以下列表:

C:\Program Files\1.xls
C:\Program Files\2.xls
C:\Program Files\3.xls

请帮指点一下,谢谢!
...全文
408 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
FrankLiang 2016-03-11
  • 打赏
  • 举报
回复
引用 2 楼 lzp_lrp 的回复:
这个就可以得到清单,多个文件放在docname这个数组里
谢谢回复,这样操作不够方便,因为用户用了远程桌面服务, 因为主要想:用户在自己电脑通过windows资源管理器,选中多个文件,之后按右键,选:复制 然后在系统中,点:粘贴,就可将几个文件复制过来,目前系统不知如何读取粘贴板中的文件目录+文件名
A啦Dbit 2016-03-02
  • 打赏
  • 举报
回复
http://blog.csdn.net/xiajinxian/article/details/50615841 这个demo里支持粘贴
WorldMobile 2016-03-01
  • 打赏
  • 举报
回复
这个就可以得到清单,多个文件放在docname这个数组里
WorldMobile 2016-03-01
  • 打赏
  • 举报
回复


string docpath, docname[], ls_list
integer i, li_cnt, li_rtn, li_filenum
li_rtn = GetFileOpenName("Select File", docpath, docname[], "DOC", + "Text Files (*.TXT),*.TXT," + "Doc Files (*.DOC),*.DOC," &
 + "All Files (*.*), *.*", "C:\Program Files\Sybase", 18)

IF li_rtn < 1 THEN return
li_cnt = Upperbound(docname)
for i=1 to li_cnt
	ls_list += string(docpath)+"\"+(string(docname[i]))+"~r~n"
next

messagebox('', ls_list)

740

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 脚本语言
社区管理员
  • 脚本语言社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧