[es] - Dim fso As New FileSystemObject...

d.p.23
Chicago

Član broj: 16459
Poruke: 33
*.cmu.carnet.hr

Profil

^{05.08.2004. u 22:23 - pre 239 meseci}

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?

Odgovor na temu

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
195.252.64.*

Sajt: www.nsc.ba

+4 Profil

Re: Dim fso As New FileSystemObject...

^{05.08.2004. u 23:18 - pre 239 meseci}

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

I ♥ ♀

Ovaj post je zlata vrijedan!

Odgovor na temu

d.p.23
Chicago

Član broj: 16459
Poruke: 33
*.cmu.carnet.hr

Profil

Re: Dim fso As New FileSystemObject...

^{06.08.2004. u 14:44 - pre 239 meseci}

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?

Odgovor na temu

icobh
Igor Pejašinović
Network Admin
Navigo SC d.o.o.
Banja Luka

Član broj: 18738
Poruke: 1319
*.teol.net

Sajt: www.nsc.ba

+4 Profil

Re: Dim fso As New FileSystemObject...

^{06.08.2004. u 14:47 - pre 239 meseci}

U refernecama uključi Microsoft Scripting Runtime.

I ♥ ♀

Ovaj post je zlata vrijedan!

Odgovor na temu

d.p.23
Chicago

Član broj: 16459
Poruke: 33
*.cmu.carnet.hr

Profil

Re: Dim fso As New FileSystemObject...

^{07.08.2004. u 19:38 - pre 239 meseci}

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)).

Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Dim fso As New FileSystemObject...

^{08.08.2004. u 11:37 - pre 239 meseci}

Dodaj u components Microsoft Common Dialog

Blue Man Group

Odgovor na temu

d.p.23
Chicago

Član broj: 16459
Poruke: 33
*.cmu.carnet.hr

Profil

Re: Dim fso As New FileSystemObject...

^{08.08.2004. u 16:23 - pre 239 meseci}

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

Odgovor na temu

Re: Dim fso As New FileSystemObject...

^{08.08.2004. u 16:29 - pre 239 meseci}

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

Blue Man Group

Odgovor na temu

d.p.23
Chicago

Član broj: 16459
Poruke: 33
*.cmu.carnet.hr

Profil

Re: Dim fso As New FileSystemObject...

^{08.08.2004. u 16:35 - pre 239 meseci}

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

Odgovor na temu

Re: Dim fso As New FileSystemObject...

^{08.08.2004. u 16:38 - pre 239 meseci}

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

Blue Man Group

Odgovor na temu