Dim txt As String = e.Form.Controls("TextBox1").Text
If txt.Contains("FileNam") Then ‘FileNam要获取的文件名 FileSys.CopyFile("源路径\FileName", "指定路径\FileName")End If