Dim fl As String
Dim fl2 As String
If Tables("表A").current.isnull("国家") = False Then
fl = "D:\通用旅游指南.xls" '指定目标文件
fl2 = ProjectPath & "Attachments\通用旅游指南.xls"
Else
fl = "D:\" & Tables("表A").current("国家") & "旅游指南.xls" '指定目标文件
fl2 = ProjectPath & "Attachments\" & Tables("表A").current("国家") & "旅游指南.xls"
if FileSys.FileExists(fl2) = false then fl2 = ProjectPath & "Attachments\通用旅游指南.xls"
End If