VB 2008 FileSystemObjekt Fehler

Hallo,
mein eingebundenes Scripting.FileSystemObject scheint nicht richtig zu funktionieren.
Alle Versuche das FSO anders einzubinden z.B. : Dim COSFSO As FileSystemObject oder Dim COSFSO As New FileSystem und abgewante Varianten gehen nicht.

Public Class PROBAR
    Dim COSFSO, WSHELL As Object
    Dim DATINF, ZEIINF As Object
    Dim REPSTR As String

    Private Sub PROBAR_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        COSFSO = CreateObject("Scripting.FileSystemObject")  
        WSHELL = CreateObject("WScript.Shell")  
        DATINF = COSFSO.GetFile("C:\Dokumente und Einstellungen\ich\Desktop\TERMIN.txt")  

        L00.Text = Split(DATINF.OpenAsTextStream(1).ReadAll, vbNewLine)(0)
        L00.Visible = True
        L01.Text = Split(DATINF.OpenAsTextStream(1).ReadAll, vbNewLine)(1)
        L01.Visible = True
        L02.Text = Split(DATINF.OpenAsTextStream(1).ReadAll, vbNewLine)(2)
        L02.Visible = True
    End Sub

    Private Sub L00_Click() Handles L00.Click
        REPSTR = DATINF.OpenAsTextStream(1).ReadAll
        DATINF.OpenAsTextStream(2).Write(Replace(REPSTR, L00.Text, "")) '<<<<<<< FEHLER, glaube wegen Replace  
        L00.Visible = False
    End Sub
    Private Sub L01_Click() Handles L01.Click
        REPSTR = DATINF.OpenAsTextStream(1).ReadAll
        DATINF.OpenAsTextStream(2).Write(Replace(REPSTR, L01.Text, "")) '<<<<<<< FEHLER, glaube wegen Replace  
        L01.Visible = False
    End Sub
    Private Sub L02_Click() Handles L02.Click
        REPSTR = DATINF.OpenAsTextStream(1).ReadAll
        DATINF.OpenAsTextStream(2).Write(Replace(REPSTR, L02.Text, "")) '<<<<<<< FEHLER, glaube wegen Replace  
        L02.Visible = False
    End Sub
End Class

Please also mark the comments that contributed to the solution of the article

Content-Key: 110458

Url: https://administrator.de/contentid/110458

Printed on: April 23, 2024 at 14:04 o'clock

1 Comment

Da seh ich doch den Wald vor lauter Bäumen nicht und es war so einfach.

    Function REATER()
        REAINH = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\ich\Desktop\TERMIN.txt")  
    End Function

    Function SPLTER()
        For Z = 0 To UBound(Split(REAINH, vbNewLine))
            If Not Split(REAINH, vbNewLine)(Z) = "" Then  
                L00.Text = Split(REAINH, vbNewLine)(0)
                L00.Visible = True
                L01.Text = Split(REAINH, vbNewLine)(1)
                L01.Visible = True
                L02.Text = Split(REAINH, vbNewLine)(2)
                L02.Visible = True
            End If
        Next
    End Function

    Private Sub L00_Click() Handles L00.Click
        Call REATER()
        My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\ich\Desktop\TERMIN.txt", REAINH.Replace(L00.Text, ""), False)  
        L00.Visible = False
    End Sub
    Private Sub L01_Click() Handles L01.Click
        Call REATER()
        My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\ich\Desktop\TERMIN.txt", REAINH.Replace(L01.Text, ""), False)  
        L01.Visible = False
    End Sub
    Private Sub L02_Click() Handles L02.Click
        Call REATER()
        My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\ich\Desktop\TERMIN.txt", REAINH.Replace(L02.Text, ""), False)  
        L02.Visible = False
    End Sub

Gruß waldgnarf

German solved Question VB for Applications Development

Hotly discussed

Check of ZFW Firewallgleixnerd - 5 Comments

Wireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments

How to set up and configure a Linux GRE tunnelAlexWisha - 3 Comments

End of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment