0
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 = "[email protected]"
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
任意のアイデア？
私はSystem.IO.Fileを参照することになり::移動（）メソッド。 http://msdn.microsoft.com/en-us/library/system.io.file.move.aspx – dubs
それを試してみました、用量の仕事 – pelleg
何がうまくいかない？スローされた例外に関するいくつかのサンプルコードと詳細がありますか？ – dubs