Click here to Skip to main content
11,930,788 members (53,944 online)
Rate this:
Please Sign up or sign in to vote.
See more: C# VB VB.NET
The Below Code i have used to Export for CSV Format
<  Dim FileFullPath As String = System.IO.Path.GetFullPath(psPhysicalFileName)
        Dim FileExtension As String = System.IO.Path.GetExtension(FileFullPath)
        ' Determine the original file name.
        ' When the download window opens, show the original file name in the File Name textbox.
        Dim OriginalFileName As String = System.IO.Path.GetFileName(psOriginalFileName)
        Dim FileType As String = String.Empty
        Dim FileContentType As String = String.Empty
            If Not IsDBNull(FileExtension) Then
                FileType = LCase(FileExtension)
                ' Determine the content type based on the file extension.
                Select Case FileType
                    Case ".html"
                        FileContentType = "text/HTML"
                    Case ".gif"
                        FileContentType = "image/GIF"
                    Case "jpeg"
                        FileContentType = "image/JPEG"
                    Case ".txt"
                        FileContentType = "text/plain"
                    Case ".csv"
                        FileContentType = "text/csv"
                End Select
            End If
            ' The dialog should show the original file name.
            If (forceDownload) Then
                Response.AppendHeader("content-disposition", _
                                      "attachment; filename=" & OriginalFileName)
            End If
            ' Sent the content type so that browser will know how to handle the file.
            If FileType <> String.Empty Then
                Response.ContentType = FileContentType
            End If

            ' Initiate the download
            ' Show the link to all the user to download the file if necessary.
            If Not LabelMessage Is Nothing Then
                lblMessage.Text = "You have downloaded the file " & OriginalFileName
            End If
        Catch oEx As Exception
            ' Show the error message if needed.
            If Not LabelMessage Is Nothing Then
                lblMessage.Text = "Error downloading the file " & OriginalFileName
            End If
            ' Clean up objects
        End Try

In one cell,i get output like
"Left Message – VM" Instead of "Left Message - VM"
Thanks in Advance
Posted 30-Aug-12 0:03am
Edited 30-Aug-12 0:05am

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
Top Experts
Last 24hrsThis month

Advertise | Privacy | Mobile
Web01 | 2.8.151126.1 | Last Updated 30 Aug 2012
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100