以下用VFP6 ，

nian=thisform.spinner1.value
yue=thisform.spinner2.value
nianyue=allt(str(thisform.spinner1.value))+alltrim(str(thisform.spinner2.value))
zggzd1=”A”+ nianyue+".TXT"

      IF File('&zggzd1','txt')   
        =messagebox("GGG.TXT 文件已生成" ,"提示")
      Else
        =messagebox("GGG转换文件不成功" ,"提示")
      Endif

运行至 IF File('&zggzd1','txt')   电脑程序的提示： 参数太多
该语句后无法运行。
求助？


[ 本帖最后由 tjdeming 于 2014-3-2 20:36 编辑 ]

set defa to e:\

zggzd1="wp231957"

IF File("&zggzd1..txt")  
        =messagebox("GGG.TXT 文件已生成" ,"提示")
      Else
        =messagebox("GGG转换文件不成功" ,"提示")
      Endif

谢谢!
IF File("&zggzd1..txt")  请问".."是什么?


[ 本帖最后由 tjdeming 于 2014-3-2 20:34 编辑 ]

首先看你想干什么  或者你想实现什么

zggzd1="wp231957"

IF File("&zggzd1..txt")  
这里 & 代表宏替换 替换区域到第一个点 不含第一个点  所以这2条语句和起来就是 判断wp231957.txt是否存在

再谢.
我想实现当2014年1月时,判断A201401.txt是否存在?,2月时判断A201402.txt是否存在?……
IF File("&zggzd1..txt")  这条命令我去试一下。

或者改成：IF File('&zggzd1'+'.txt')

a=2014
b=1
s="a"+str(a,4)+str(b,1)  && 这里把1变成01 再花点心思单独写一下
IF File("&s..txt")  
        =messagebox("GGG.TXT 文件已生成" ,"提示")
      Else
        =messagebox(s+".txt文件不存在" ,"提示")
      Endif

你的变量中已经含有文件后缀名，只要IF File(zggzd1)就行了，弄啥宏替换啊？

zggzd1=”A”+ nianyue+".TXT"

看这两处引号 ”A”   ".TXT"