2,722
社区成员
发帖
与我相关
我的任务
分享在线等,在表单中如何建立输入文本的目录??
我有一个表单,建立了一个text1,一个命令按钮.我想在text1中输入一串字符,然后按确定后就在相应的目录中建立一个子目录(判定假如目录已经建立就不重复建立了),命令按钮代码设置如下:
a=allt(thisform.text1.value)
cd f:\sjcz\vnet
if dire(&a)=.f.
md &a
endif
cd f:\sjcz\vnet\charge
if dire(&a)=.f.
md &a
endif
怎么不行呢?
a=allt(thisform.text1.value)
cd f:\sjcz\vnet
if dire(&a)=.f.
md &a
endif
cd f:\sjcz\vnet\charge
if dire(&a)=.f.
md &a
endif
怎么不行呢?
...全文
请发表友善的回复…
发表回复
dfwxj 2003-10-17
- 打赏
- 举报
第3行和第7行的宏代换的命令格式错了
dfwxj 2003-10-17
- 打赏
- 举报
dire()函数的参数应该是字符型，第3行和第7行不应该用宏代换，直接用变量引用，代码修改如下:
a=allt(thisform.text1.value)
cd f:\sjcz\vnet
if ！dire(a)
md &a
endif
cd f:\sjcz\vnet\charge
if ！dire(a)
md &a
endif
a=allt(thisform.text1.value)
cd f:\sjcz\vnet
if ！dire(a)
md &a
endif
cd f:\sjcz\vnet\charge
if ！dire(a)
md &a
endif
dbcz444 2003-10-17
- 打赏
- 举报
怎样才是对的呢?请指教.
dbcz444 2003-10-17
- 打赏
- 举报
谁能帮我解决呢?
dbcz444 2003-10-16
- 打赏
- 举报
a=allt(thisform.text1.value)
if dire(f:\sjcz\vnet\&a)=.f.
cd f:\sjcz\vnet
md &a
endif
if dire(f:\sjcz\vnet\charge\&a)=.f.
cd f:\sjcz\vnet\charge
md &a
endif
这样也不行.
if dire(f:\sjcz\vnet\&a)=.f.
cd f:\sjcz\vnet
md &a
endif
if dire(f:\sjcz\vnet\charge\&a)=.f.
cd f:\sjcz\vnet\charge
md &a
endif
这样也不行.
