Visualizzazione dei risultati da 1 a 2 su 2

Discussione: creare file csv

  1. #1

    creare file csv

    ciao a tutti avrei bisogno di creare un file csv ma non ricordo bene i vari passaggi.

    'setto il percorso corretto
    strPath_Prof = server.mappath(".") & percorso


    Dim objFso, objFile
    Set objFso=Server.CreateObject("scripting.FileSystemOb ject")


    If objFso.FileExists(strPath_Prof) then
    objFso.DeleteFile strPath_Prof,true
    end if




    objFso.CreateTextFile (strPath_Prof)
    Set Ogg = objFso.GetFile (strPath_Prof)
    Set OggText = Ogg.OpenAsTextStream(2)


    Riga = " Cognome; Nome; Codice fiscale; Scuola Iscrizione"
    OggText.WriteLine Riga

    'ripeto le ultime due righe per ogni record presente nel db.
    Dopo cosa devo fare per salvare questo documento?

  2. #2
    ObjFile.Close
    set ObjFile= Nothing
    set ObjFso = Nothing

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2021 vBulletin Solutions, Inc. All rights reserved.