主题：备份文件的源代码问题

Dim f As String

Dim fc As String

Dim rqf As Date = Date.today

Dim rq As String=Format(rqf, "yyyyMMdd")

Dim q As Date = Date.now

Dim s As String=Format(q, "HHmmss")

Dim Names As String() = {"设置"}

For Each Name As String In Names

    Dim ex As New Exporter

    ex.SourceTableName = name '指定导出表

    ex.filepath = ProjectPath & "backup" & "\" & rq & "-" & s & ".mdb" '指定目标文件

    ex.PassWord="shoubang.com"

    ex.Export() '开始导出

    f=ex.filepath

    fc=f & "c:/"

Next

EncryptFile(f, fc, "fox")

FileSys.DeleteFile(f,2,2) 

MessageBox.Show("备份数据保存成功!" & fc)

备份找不到路径。不知道什么原因，谁能分析一下。