主题：[求助]文件管理

AfterLoad事件代码改一下

If GetConfigValue("文件夹路径" & ComputerId,"") = "" Then  '若未指定存储路径
    e.Form.Controls("路径").text = "尚未指定文件存储路径!"
Else
    e.Form.Controls("路径").text = GetConfigValue("文件夹路径" & ComputerId,"")
End If

If Tables("表A").Current.Isnull("文件名") = True Then '若文件名为空
    e.Form.Controls("文件名").text = "未上传文件!"
    e.Form.Controls("PictureBox1").image = getimage("other.png")
Else
    If filesys.FileExists(e.Form.Controls("路径").text & "\" & Tables("表A").Current("文件名")) = False Then
        e.Form.Controls("文件名").text = "文件已被删除!"
        e.Form.Controls("PictureBox1").image = getimage("del.png")
    Else
        e.Form.Controls("文件名").text = Tables("表A").Current("文件名")
        Functions.Execute("刷新图标")
    End If
End If