アップロードしたファイルの名前を変更する方法は？

Question

VBのバックグラウンドコードを使用してASP.NETでフォームを作成しました。 私の問題は、私は、フォーム によってアップロードされているファイルではなく、例えば「Resemey.doc」「012 MaraCSD.doc」に変更することにしたいです

研究のビットを行なったし、私が見つけました私のVBコードにいくつかのコードを追加する必要があります。 しかし、何をどこに置くべきかを見つけることができませんでした。

これは私のコードです：

'Add the namespace for the email-related classes 
Imports System.Net.Mail 

Partial Class SendAttachment  
    Inherits System.Web.UI.Page 

    Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click 
     'Make sure a file has been uploaded 

     If String.IsNullOrEmpty(AttachmentFile.FileName) OrElse AttachmentFile.PostedFile Is Nothing Then 
      Throw New ApplicationException("לא העלאת קבצים.") 
     End If 

     if AttachmentFile.PostedFile.ContentLength >600000 then 
      'display error file size should be less than 100kb 
     end if 


     '!!! UPDATE THIS VALUE TO YOUR EMAIL ADDRESS 
     Const ToAddress As String = "pelleg@gmail.co.il" 
     dim textMsg as String 
     textMsg ="שאלות סינון" & 
(vbCrLf) & (vbCrLf) & (vbCrLf) & question1.text & (vbCrLf) & q1.text & 
(vbCrLf) & (vbCrLf) & question2.text & (vbCrLf) & q2.text & 
(vbCrLf) & (vbCrLf) & question3.text & (vbCrLf) &q3.text & 
(vbCrLf) & (vbCrLf) & "ממליצים" & (vbCrLf) & c1.text & (Space(5)) & c2.text & (Space(5)) & c3.text & (vbCrLf) & 
(vbCrLf) & question4.text & (vbCrLf) & q5.text & (vbCrLf) & 
(vbCrLf) & "פרטים אישיים" & (vbCrLf) & 
(vbCrLf) & "שם מלא" & (vbCrLf) & pi1.text & (vbCrLf) & 
(vbCrLf) & "כתובת מייל" & (vbCrLf) & UsersEmail.Text & (vbCrLf) & 
(vbCrLf) & "טלפון" & (vbCrLf) & pi2.text & (vbCrLf) & 
(vbCrLf) &"שעות נוחות" & (vbCrLf) & pi3.text & (vbCrLf) & 
(vbCrLf) & (vbCrLf) & "הערות" & 
(vbCrLf) & body.text & (vbCrLf) & 
(vbCrLf) & "מעוניין בהצעות נוספות" & (vbCrLf) & q4.text 
' 

     '(1) Create the MailMessage instance 
     Dim mm As New MailMessage(UsersEmail.Text, ToAddress) 

     '(2) Assign the MailMessage's properties 
     mm.Subject = Subject.text & "-" & pi1.text 
     mm.Body = textMsg 

     mm.IsBodyHtml = false 

     'Attach the file 
     mm.Attachments.Add(New Attachment(AttachmentFile.PostedFile.InputStream, AttachmentFile.FileName)) 
     mm.Attachments.Add(New Attachment(AttachmentFile2.PostedFile.InputStream, AttachmentFile2.FileName)) 

     '(3) Create the SmtpClient object 
     Dim smtp As New SmtpClient 

     '(4) Send the MailMessage (will use the Web.config settings) 
     smtp.Send(mm) 

     'Show the EmailSentForm Panel and hide the EmailForm Panel 
     EmailSentForm.Visible = True 
     EmailForm.Visible = False 
    End Sub 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
     If Not Page.IsPostBack Then 
      'On the first page load, hide the EmailSentForm Panel 
      EmailSentForm.Visible = False 

     End If 
    End Sub 
End Class 

任意のアイデア？

Answer 1

あなたはPostedFileのSaveAsメソッドを使用して、あなたが好きな名前として保存することができるはずです。..

http://msdn.microsoft.com/en-us/library/system.web.httppostedfile.saveas.aspx