creare file txt

[s.ef]

ciao
devo creare un file txt

ho provato cosi ma non crea niente:

 FileLog = Path.GetFullPath(Percorso1) + "\log\" + "LogApplication"
        FileLog += Now.Year.ToString() + Right("00" + Now.Month.ToString(), 2) + Right("00" + Now.Day.ToString(), 2) + ".txt"
        Try
            'se esiste proseguo con l'applicazione altrimenti ne creo uno nuovo con data del giorno
            If File.Exists(FileLog) Then
                Exit Try
            Else
                Write("D:\Progetti\PowerStoreSentinel\PowerStoreSentinel\PowerStoreSentinel\CartellaProvaFile\txt.txt", "creo file ")
                'creo il file di LogApplication all'interno della directory predefinita
                Dim file As System.IO.FileStream
                file = System.IO.File.Create(FileLog)
........

uso VB.net per una applicazione windows

[Napster]

 If System.IO.File.Exists("C:\Users\proprietario\Documents\fileditesto.txt") Then

            Dim result As MsgBoxResult

            result = MessageBox.Show("Il file esiste, Sovrascriverlo?", "attenzione", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)

            If result = MsgBoxResult.Yes Then
                Dim scrivi As New System.IO.StreamWriter("C:\Users\proprietario\Documents\fileditesto.txt")
                scrivi.Write("testo sovrascritto")
                scrivi.Close()
            ElseIf result = MsgBoxResult.No Then

            End If
        Else
            Dim scrivi As New System.IO.StreamWriter("C:\Users\proprietario\Documents\fileditesto.txt")
            scrivi.Write("Prova")
            scrivi.Close()
        End If

così dovrebbe andare..ho implementato anche la chicca del messagebox(giusto x fare un pò piu di scena )

per qlcs altro chiedi pure qui..ciaoo

[oregon]

Beh questa e' sicuramente una chicca ...

  If result = MsgBoxResult.Yes Then
                Dim scrivi As New System.IO.StreamWriter("C:\Users\proprietario\Documents\fileditesto.txt")
                scrivi.Write("testo sovrascritto")
                scrivi.Close()
            ElseIf result = MsgBoxResult.No Then

            End If

Direi che e' assolutamente da evitare

  If result = MsgBoxResult.Yes Then
                Dim scrivi As New System.IO.StreamWriter("C:\Users\proprietario\Documents\fileditesto.txt")
                scrivi.Write("testo sovrascritto")
                scrivi.Close()
            End If

[s.ef]

Non posso inserire msbox non lo gestisco :-)

    If System.IO.File.Exists(FileLog) Then

                Exit Try
            Else
                Write("D:\Progetti\PowerStoreSentinel\PowerStoreSentinel\PowerStoreSentinel\CartellaProvaFile\txt.txt", "entro creo file ")

                Dim scrivi As New System.IO.StreamWriter(FileLog)
                scrivi.Write("Prova")
                scrivi.Close()
                Write("D:\Progetti\PowerStoreSentinel\PowerStoreSentinel\PowerStoreSentinel\CartellaProvaFile\txt.txt", "creo file ")

            End If

mi da questo errore
:

entro in errori lod System.IO.DirectoryNotFoundException: Could not find a part of the path 'D:\Progetti\PowerStoreSentinel\PowerStoreSentinel\PowerStoreSentinel\log\LogApplication20080716.txt'.
   at System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath)
   at System.IO.FileStream.Init(String path, FileMode mode, FileAccess access, Int32 rights, Boolean useRights, FileShare share, Int32 bufferSize, FileOptions options, SECURITY_ATTRIBUTES secAttrs, String msgPath, Boolean bFromProxy)
   at System.IO.FileStream..ctor(String path, FileMode mode, FileAccess access, FileShare share, Int32 bufferSize, FileOptions options)
   at System.IO.StreamWriter.CreateFile(String path, Boolean append)
   at System.IO.StreamWriter..ctor(String path, Boolean append, Encoding encoding, Int32 bufferSize)
   at System.IO.StreamWriter..ctor(String path)
   at PowerStoreSentinel.Worker.Watch() in D:\Progetti\PowerStoreSentinel\PowerStoreSentinel\PowerStoreSentinel\PowerStoreSentinel.vb:line 122

[oregon]

Scusa ... mi sembra che l'errore reciti

Could not find a part of the path
'D:\Progetti\PowerStoreSentinel\PowerStoreSentinel \PowerStoreSentinel\log\LogApplication20080716.txt '.

e che quindi sia chiaro ...

[Napster]

Originariamente inviato da oregon
Beh questa e' sicuramente una chicca ...

  If result = MsgBoxResult.Yes Then
                Dim scrivi As New System.IO.StreamWriter("C:\Users\proprietario\Documents\fileditesto.txt")
                scrivi.Write("testo sovrascritto")
                scrivi.Close()
            ElseIf result = MsgBoxResult.No Then

            End If

Direi che e' assolutamente da evitare

  If result = MsgBoxResult.Yes Then
                Dim scrivi As New System.IO.StreamWriter("C:\Users\proprietario\Documents\fileditesto.txt")
                scrivi.Write("testo sovrascritto")
                scrivi.Close()
            End If

l'ho messo nel caso in cui alla pressione del tasto no volesse far scaturire qualche altra cosa.. :berto:


cmq non ho capito quel Write(...)" a k corrisponde

[s.ef]

funziona

mi ero dimenticata una cartella cel percorso.....................
ormai sono cotta ....sono due giorni che lavoro a questo progetto non vedo più nenache gli errorri banali...........

[Napster]

capita a tutti..vabbè l'importante è k è tutto risolto

[oregon]

Originariamente inviato da Napster
l'ho messo nel caso in cui alla pressione del tasto no volesse far scaturire qualche altra cosa.. :berto:

Anche in questo caso si inserisce soltanto la

Else