Asp.net o成为一名可靠的开发人员。再次感谢你；很好，我很高兴它起作用了！ Protected Sub UploadFile(ByVal NewFilename As String) Dim myFtpWebRequest As FtpWebRequest

---

o成为一名可靠的开发人员。再次感谢你；很好，我很高兴它起作用了！

Protected Sub UploadFile(ByVal NewFilename As String)
    Dim myFtpWebRequest As FtpWebRequest
    Dim myFtpWebResponse As FtpWebResponse

    'Function one? - Problem, "NewFilename" depends on the output of the Wizard,
    '                but obviously it has not been called yet.
    myFtpWebRequest = CType(WebRequest.Create(ftpServer + ftpPath + NewFilename), FtpWebRequest)
    myFtpWebRequest.Method = WebRequestMethods.Ftp.UploadFile
    myFtpWebRequest.UseBinary = True

    Dim myFileStream As Stream = FileUpload1.FileContent
    myFtpWebRequest.ContentLength = myFileStream.Length

    'Function two?
    Dim requestStream As Stream = myFtpWebRequest.GetRequestStream()
    myFileStream.CopyTo(requestStream)
    requestStream.Close()

    myFtpWebResponse = CType(myFtpWebRequest.GetResponse(), FtpWebResponse)
    myFtpWebResponse.Close()
End Sub

'This function is what kicks things off...
Protected Sub UploadFileToWebServer() Handles btnUploadFile.Click
    Dim TempDir As String = "C:\TEMP", FileName As String = "uploadedfile.tmp", FilePath As String
    If Not Directory.Exists(TempDir) Then
        Directory.CreateDirectory(TempDir).Attributes = FileAttributes.Directory
    End If
    FilePath = TempDir + "\" + FileName
    Session.Add("FileName", File1.FileName) 'Keep track of uploaded file name
    File1.SaveAs(FilePath)
    Session.Add("File", FilePath)
End Sub

Protected Sub UploadFileToFtpServer(ByVal FileLinkStr As String)
    Dim myFtpWebRequest As FtpWebRequest
    Dim myFtpWebResponse As FtpWebResponse

    'Defines the filename, path, and upload method, and connection credentials
    myFtpWebRequest = CType(WebRequest.Create(ftpServer + ftpPath + FileLinkStr), FtpWebRequest)
    'Be sure to authenticate prior to uploading or nothing will upload and no error
    myFtpWebRequest.Credentials = New NetworkCredential(ftpUsername, ftpPassword)
    myFtpWebRequest.Method = WebRequestMethods.Ftp.UploadFile
    myFtpWebRequest.UseBinary = True

    'Streams the file to the FTP server
    'Retrieves File temporarily uploaded to the Web Server during Wizard Processing
    Dim iStream As New FileInfo(Session.Item("File"))
    Dim myFileStream As Stream = iStream.OpenRead
    myFtpWebRequest.ContentLength = myFileStream.Length
    Dim requestStream As Stream = myFtpWebRequest.GetRequestStream()
    myFileStream.CopyTo(requestStream)
    requestStream.Close()

    myFtpWebResponse = CType(myFtpWebRequest.GetResponse(), FtpWebResponse)
    myFtpWebResponse.Close()
End Sub

File.Delete(Path_to_file_uploaded_on_temp_directory);

if(FileUpload1.HasFile) //user selected a file
{
    try
    {
      //D:\temp is a temp directory on the Web Server
      FileUpload1.PostedFile.SaveAs(@"D:\temp\"+FileUpload1.FileName);
      //Store the FULL PATH TO the file just uploaded on Session 
      Session["FileName"]="D:\temp\"+FileUpload1.FileName;
    }
    catch (Exception ex)
    {
       //Handle it.
    }
}

 Dim myFtpWebRequest As FtpWebRequest
 Dim myFtpWebResponse As FtpWebResponse
 ' You know the NewFileName because it's the output of the wizard

 myFtpWebRequest = CType(WebRequest.Create(ftpServer + ftpPath + NewFilename),  FtpWebRequest)
 myFtpWebRequest.Method = WebRequestMethods.Ftp.UploadFile
 myFtpWebRequest.UseBinary = True

 'Here you need to read the Original File
 Dim myFileStream As Stream = new FileStream(Session["FileName"]),FileMode.Open,FileAccess.Read,FileShare.ReadWrite)
 myFtpWebRequest.ContentLength = myFileStream.Length


 Dim requestStream As Stream = myFtpWebRequest.GetRequestStream()
 myFileStream.CopyTo(requestStream)
 requestStream.Close()

 myFtpWebResponse = CType(myFtpWebRequest.GetResponse(), FtpWebResponse)
 myFtpWebResponse.Close()

 try
 {
    File.Delete (Session["FileName"]);
 }
 catch(Exception ex)
 {
    //Handle it.
 }