以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  继续学习嵌套函数copyfile getfilename  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=21349)
--  作者：Egei
--  发布时间：2012/6/9 21:18:00
--  继续学习嵌套函数copyfile getfilename

CopyFile(GetFileName("图形文件|*.jpg","选择照片",0),docdir+[酒店]+CLNum([楼层])+".jpg")

 

这个应该怎么写呢？
--  作者：wjq1072
--  发布时间：2012/6/10 15:22:00
--  

拷贝一个图片文件。

设置表达式变量%B%：
GetFileName("图形文件|*.jpg","选择照片",0)

设置字符型变量%A%

设置按钮公式：
SetVariable("%A%",[%B%]) And CopyFile([%A%],docdir+"文件名.jpg")
--  作者：wjq1072
--  发布时间：2012/6/10 15:42:00
--  

也可以拷贝到具体文件夹！

SetVariable("%A%",[%B%]) And CopyFile([%A%],docdir+"文件夹\\"+"文件名.jpg")

 

 

选择拷贝文件。

设置字符型变量%C%:
易表文件/*.egd|电子表格/*.xls|文本文件/*.txt|图片文件/*.jpg

设置表达式变量%B%：
GetFileName(Substitute([%C%],"/","|"),"选择文件",0)

设置字符型变量%A%

在窗口插入变量%C%
设置按钮公式：
SetVariable("%A%",[%B%]) And CopyFile([%A%],docdir+"文件名."+Split([%C%],".",2))

可以选择拷贝“egd”、“xls”、“txt”、“jpg”4种文件。

[此贴子已经被作者于2012-6-10 16:22:56编辑过]
--  作者：Egei
--  发布时间：2012/6/10 20:35:00
--  

可以用Eval的方法吗？
--  作者：wjq1072
--  发布时间：2012/6/10 20:45:00
--  

你可以自己试试啊？

直接按钮公式：

Eval("CopyFile("""+GetFileName("图形文件|*.jpg","选择照片",0)+""",docdir+""图片001.jpg"")")

[此贴子已经被作者于2012-6-10 21:01:57编辑过]