Dim nl As StringDim fl As String
If dlg.ShowDialog = DialogResult.OK Then For Each fl In dlg.FileNames nl = ph & FileSys.GetName(fl)
Try
FileSys.MoveFile(fl,nl,False) lst.Items.Add(nl) Catch ex As Exception MessageBox.Show("文件正在使用","提示",MessageBoxButtons.OK) End Try
NextElse '单击取消,则不执行后面代码 Return
End If