Dim fso As New FileSystemObject...

[ d.p.23 @ 05.08.2004. 22:23 ] @

Pravim jedan programčić, a pošto sam početnik zapeo sam.

Code:
Rem Save
Public Sub Save()
    Dim fso As New FileSystemObject, ts As TextStream, newStr As String
    With frmMain
        .SaveDialog.Filter = "Text Files (*.txt)|*.txt|Rich Text Format (*.rtf)|*.rtf"
        On Error GoTo cancelSave
        .SaveDialog.ShowSave
        .SaveDialog.FilterIndex = 1
            If Right$(.SaveDialog.FileName, Len(.SaveDialog.FileName) - (Len(.SaveDialog.FileName) - 4)) = ".rtf" Then
                newStr = .rtfNew.TextRTF
                Call .rtfNew.LoadFile(.OpenDialog.FileName, rtfRTF)
                .rtfNew.TextRTF = newStr
                Call .rtfNew.SaveFile(.SaveDialog.FileName)
            ElseIf Right$(.SaveDialog.FileName, Len(.SaveDialog.FileName) - (Len(.SaveDialog.FileName) - 4)) = ".txt" Then
                Set ts = fso.CreateTextFile(.SaveDialog.FileName, True)
                ts.Write (.rtfNew.Text)
                ts.Close
            End If
    End With
cancelSave:
End Sub

Kad pozovem save on mi izbaci grešku i to ovdje: Dim fso As New FileSystemObject.
Kako da riješim ovaj problem?

[ icobh @ 05.08.2004. 23:18 ] @

Pogledaj ovdje http://www.elitesecurity.org/tema/28643

[ d.p.23 @ 06.08.2004. 14:44 ] @

Vidio sam to ali još uvijek mi nije jasno što nevalja u kodu i zašto odmah u određivanju varijable mi javi grešku. Skinio sam jedan program s neta i imao je isti kod za save as, a razlika je bila u tome što je njegov kod radio kako treba a moj ne, zašto i što moram napraviti da sve bude u redu?

[ icobh @ 06.08.2004. 14:47 ] @

U refernecama uključi Microsoft Scripting Runtime.

[ d.p.23 @ 07.08.2004. 19:38 ] @

Citat:

icobh: U refernecama uključi Microsoft Scripting Runtime.

Tnx! Ovo je proradilo, ali sada mi javlja grešku negdje drugdje, u ovom redu:

Code:
.SaveDialog.Filter = "Text Files (*.txt)|*.txt|Rich Text Format (*.rtf)|*.rtf"

Točnije: .SaveDialog
Što sad trebam napraviti da mi ovo proradi? I zanima me dali vama ovaj kod radi kako treba? A ako netko ima sličan kod za save ili open volio boh da ga stavi jer mi treba (save i open treba prepoznavati tri formata (.txt,.rtf, .doc)).

[ mladenovicz @ 08.08.2004. 11:37 ] @

Dodaj u components Microsoft Common Dialog

[ d.p.23 @ 08.08.2004. 16:23 ] @

To sam imao uključeno i javlja mi grešku.

[ mladenovicz @ 08.08.2004. 16:29 ] @

Ako ti se vec javlja neka greska, postuj kod greske i description. Inace, imas u MSDNu sampleove za Common Dialog.

[ d.p.23 @ 08.08.2004. 16:35 ] @

Napisao sam gdje je greška u jednom od gornjih postova, nemam msdn.

[ mladenovicz @ 08.08.2004. 16:38 ] @

Pise gde je greska, ali ne pise broj greske i opis. Evo sample kako se koristi Filter property

Code:

Private Sub cmdOpen_Click()
On Error GoTo errhandler
    CommonDialog1.CancelError = True
    ' Set flags
    CommonDialog1.Flags = cdlOFNHideReadOnly + cdlOFNPathMustExist + cdlOFNFileMustExist
    ' Set filters
    CommonDialog1.Filter = "All Files (*.*)|*.*|RTF (*.rtf)|*.rtf|Text Files (*.txt)|*.txt"

    ' Display the Save dialog box
    CommonDialog1.Filename = ""
    CommonDialog1.ShowOpen
    txtData.Text = "File Selected: " & CommonDialog1.Filename
    Exit Sub
errhandler:
    Select Case Err
    Case 32755 '  Dialog Cancelled
        MsgBox "you cancelled the dialog box"
    Case Else
        MsgBox "Unexpected error. Err " & Err & " : " & Error
    End Select
End Sub

[ d.p.23 @ 08.08.2004. 21:20 ] @

Hvala na svemu!