問題
另存檔案
解決方法
Public Shared Sub CopyCSVToFileReceivedPath(ByVal strFileName As String)
Try
Dim pathlocal As String = HttpContext.Current.Server.MapPath("..\down\") '暫存路徑
Dim pathReceived As String = ConfigurationManager.AppSettings("FileReceivedPath") '存檔路徑
pathlocal += strFileName
pathReceived += strFileName
File.Copy(pathlocal, pathReceived, True)
File.Delete(pathlocal)
Catch ex As Exception
'lblMessage.Text = ex.Message
Throw ex
End Try
End Sub
沒有留言:
張貼留言