表单如下

选择路径按钮代码如下:

SET DATE ANSI
SET CENTURY ON
cFileName="Backup"+STRTRAN(DTOC(DATE()),".","")  &&默认文件名称为"Backup"+当前日期
SET DATE LONG
cFile=PUTFILE("",cFileName,"rar")
IF NOT EMPTY(cFile)
    this.Parent.txtfile.Value=cFile
    IF FILE(cFile)
        DELETE FILE &cFile
    ENDIF
    IF NOT EMPTY(this.Parent.txtfile.Value)
        this.Parent.cmdbackup.Enabled = .T.
    ELSE
        this.Parent.cmdbackup.Enabled= .F.
    ENDIF
ENDIF
thisform.Refresh

开始备份代码如下:

CLOSE ALL
cDirFile=ALLTRIM(this.Parent.txtfile.Value)
IF SUBSTR(cDirFile,1,1)=="A"
    cCmd="winrar a-r-v1440-vd"+cDirFile+"@backup.lst"
ELSE
    cCmd="WinRAR a-r"+cDirFile+"@backup.lst"
ENDIF
RUN /N &cCmd

backup.lst文件内容如下:
DATA1.DBC
DATA1.DCT

运行后是这样,出什么问题了

该如何解决

PUTFILE()与GETFILE()是有区别的，看下帮助文件中的用法

[ 本帖最后由 sdta 于 2014-6-11 14:01 编辑 ]

总体来说，楼主的思路没有问题。错误出在为 winrar 指定参数时，没有在参数之间加空格。改正如下：

CLOSE ALL
cDirFile=ALLTRIM(this.Parent.txtfile.Value)
IF SUBSTR(cDirFile,1,1)=="A"
    cCmd="winrar a-r-v1440-vd "+cDirFile+" @backup.lst"
ELSE
    cCmd="WinRAR a-r "+cDirFile+" @backup.lst"
ENDIF
RUN /N &cCmd

注意：在“a-r-v1440-vd”和“a-r”之后添加一个空格，在“@backup.lst”之前添加一个空格。另外，一定要将 winrar 和 backup.lst 以及 backup.lst 文件中的 data1.dbc、data1.dct 放在系统默认访问路径下，否则，应该在文件名前添加路径。

cFileName="Backup"+STRTRAN(DTOC(DATE()),".","")
改为：
cFileName="Backup"+DTOS(DATE())

或者
cFileName="Backup"+DTOC(DATE(),1)

[ 本帖最后由 sdta 于 2014-6-11 14:04 编辑 ]

谢谢了,解决了

现在还用软盘吗？v1440，SUBSTR(cDirFile,1,1)=="A"

用压缩控件一步解决

各位老师,有个小小的问题借个旧贴问一下:
我在表单的load事件下创建一个临时表
CREATE CURSOR curl(日期 D,编号 C(3),项目名称 C(60),备注 C(100))
然后在表单的一个页框的page2里添加一个表格控件,其数据源是curl
在page2添加了文本框和编辑框和命令按钮,为curl插手数据
命令按钮的代码如下:

a = alltrim(thisform.页框.page2.text1.value)
      b = alltrim(thisform.页框.page2.text2.value) 
      c = alltrim(thisform.页框.page2.edit1.value)
      insert into curl (日期,编号,项目名称,备注) values (date(),a,b,c)
      thisform.页框.page2.refresh

我这样设计,插入第一条记录,表格还可以正常显示,可插入第二条记录时,表格就不能正常显示了,第一条记录不能显示了,表格显示三行记录,都是跟第二次插入的记录
这是为什么,我用命令窗口brow浏览curl里,curl也是只有2条记录啊

我在 Windows Xp + VFP 9.0 英文版下测试，没有出现你遇到的问题。