|
If GetConfigValue("文件夹路径1" & ComputerId,"") = "" Then
MessageBox.Show("请先指定存储路径!","提醒")
Return
Else
Dim dlg As new OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
If Tables("文件管理").Current("文件") > "" Then
dim Result = MessageBox.Show("是否删除?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = DialogResult.Yes Then
If FileSys.FileExists(Tables("文件管理").Current("文件")) Then
FileSys.DeleteFile(Tables("文件管理").Current("文件"), 2, 2)
End If
Dim i As Integer = dlg.FileName.LastIndexOf("\")
Dim wjm As String = dlg.FileName.SubString(i+1)
Tables("文件管理").Current("文件") = wjm
e.Form.Controls("文件名").text = wjm
FileSys.CopyFile(dlg.FileName,e.Form.Controls("路径").text & "\" & wjm,True)
Functions.Execute("文件管理") '义函数名
Else
msgbox("请新增行输入")
End If
End If
End If
End If
|
加好友 
发短信
Post By：2017/10/16 15:20:00 [只看该作者]
