Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst VB 2008 FileSystemObjekt Fehler

Mitglied: waldgnarf

waldgnarf (Level 1) - Jetzt verbinden

03.03.2009, aktualisiert 04.03.2009, 2877 Aufrufe, 1 Kommentar

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.

01.
Public Class PROBAR 
02.
    Dim COSFSO, WSHELL As Object 
03.
    Dim DATINF, ZEIINF As Object 
04.
    Dim REPSTR As String 
05.
 
06.
    Private Sub PROBAR_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
07.
        COSFSO = CreateObject("Scripting.FileSystemObject") 
08.
        WSHELL = CreateObject("WScript.Shell") 
09.
        DATINF = COSFSO.GetFile("C:\Dokumente und Einstellungen\ich\Desktop\TERMIN.txt") 
10.
 
11.
        L00.Text = Split(DATINF.OpenAsTextStream(1).ReadAll, vbNewLine)(0) 
12.
        L00.Visible = True 
13.
        L01.Text = Split(DATINF.OpenAsTextStream(1).ReadAll, vbNewLine)(1) 
14.
        L01.Visible = True 
15.
        L02.Text = Split(DATINF.OpenAsTextStream(1).ReadAll, vbNewLine)(2) 
16.
        L02.Visible = True 
17.
    End Sub 
18.
 
19.
    Private Sub L00_Click() Handles L00.Click 
20.
        REPSTR = DATINF.OpenAsTextStream(1).ReadAll 
21.
        DATINF.OpenAsTextStream(2).Write(Replace(REPSTR, L00.Text, "")) '<<<<<<< FEHLER, glaube wegen Replace 
22.
        L00.Visible = False 
23.
    End Sub 
24.
    Private Sub L01_Click() Handles L01.Click 
25.
        REPSTR = DATINF.OpenAsTextStream(1).ReadAll 
26.
        DATINF.OpenAsTextStream(2).Write(Replace(REPSTR, L01.Text, "")) '<<<<<<< FEHLER, glaube wegen Replace 
27.
        L01.Visible = False 
28.
    End Sub 
29.
    Private Sub L02_Click() Handles L02.Click 
30.
        REPSTR = DATINF.OpenAsTextStream(1).ReadAll 
31.
        DATINF.OpenAsTextStream(2).Write(Replace(REPSTR, L02.Text, "")) '<<<<<<< FEHLER, glaube wegen Replace 
32.
        L02.Visible = False 
33.
    End Sub 
34.
End Class
Mitglied: waldgnarf
03.03.2009 um 20:47 Uhr
Da seh ich doch den Wald vor lauter Bäumen nicht und es war so einfach.

01.
    Function REATER() 
02.
        REAINH = My.Computer.FileSystem.ReadAllText("C:\Dokumente und Einstellungen\ich\Desktop\TERMIN.txt") 
03.
    End Function 
04.
 
05.
    Function SPLTER() 
06.
        For Z = 0 To UBound(Split(REAINH, vbNewLine)) 
07.
            If Not Split(REAINH, vbNewLine)(Z) = "" Then 
08.
                L00.Text = Split(REAINH, vbNewLine)(0) 
09.
                L00.Visible = True 
10.
                L01.Text = Split(REAINH, vbNewLine)(1) 
11.
                L01.Visible = True 
12.
                L02.Text = Split(REAINH, vbNewLine)(2) 
13.
                L02.Visible = True 
14.
            End If 
15.
        Next 
16.
    End Function 
17.
 
18.
    Private Sub L00_Click() Handles L00.Click 
19.
        Call REATER() 
20.
        My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\ich\Desktop\TERMIN.txt", REAINH.Replace(L00.Text, ""), False) 
21.
        L00.Visible = False 
22.
    End Sub 
23.
    Private Sub L01_Click() Handles L01.Click 
24.
        Call REATER() 
25.
        My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\ich\Desktop\TERMIN.txt", REAINH.Replace(L01.Text, ""), False) 
26.
        L01.Visible = False 
27.
    End Sub 
28.
    Private Sub L02_Click() Handles L02.Click 
29.
        Call REATER() 
30.
        My.Computer.FileSystem.WriteAllText("C:\Dokumente und Einstellungen\ich\Desktop\TERMIN.txt", REAINH.Replace(L02.Text, ""), False) 
31.
        L02.Visible = False 
32.
    End Sub
Gruß waldgnarf
Bitte warten ..
Ähnliche Inhalte
Windows Server
SQL 2008 Managmentstudio mit Fehler
Frage von LeptoptilusWindows Server1 Kommentar

Guten Tag ich betreibe einen Windows Server 2003 Enterprise mit einem SQL server 2008 SP3 mit entsprechendem Managmentstudio. Seit ...

Batch & Shell
Anmeldeskript in VB
gelöst Frage von mschaedler1982Batch & Shell7 Kommentare

Hallo zusammen. Ich habe hier ein aktuelles VB Skript was bei uns zur Anmeldung verwendet wird. Am Ende des ...

Windows Server
Windows 2008 R2 Aktivierung Fehler
gelöst Frage von esiggiWindows Server7 Kommentare

Hallo, ich habe eine Server installiert und wollte diesen nun aktivieren. Beim Aktivieren kommt die Fehlermeldung: Problem beim Aktivieren ...

Windows Server
Server 2008 Update Fehler 80244019
Tipp von maddocWindows Server

Wenn bei eurem Server beim versuch Updates zu laden der Fehlercode 80244019 kommt und ihr einmal einen WSUS installiert ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 6 StundenHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 14 StundenRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 1 TagSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 1 TagWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
OpenVPN Client Fehlermeldungen
Frage von chris84LAN, WAN, Wireless16 Kommentare

Hallo Zusammen, wir nutzen seit kurzem einen neuen Router und den OpenVPN Client. Die VPN Verbindung klappt; allerdings kommen ...

Sonstige Systeme
Wie Normenkataloge im Unternehmen bereit stellen?
Frage von MuzzepuckelSonstige Systeme14 Kommentare

Hallo Kollegen, ich lese schon lange hier mit, nun mein ersrer Beitrag, bzw. Frage. :-) Wir benötigen für unsere ...

Sicherheit
Verbindliche Zustellung per E-Mail?
Frage von ahussainSicherheit14 Kommentare

Hallo allerseits, ein Kunde von mir nutzt intensiv Fax. Hauptgrund: zusammen mit einer Empfangsbestätigung ist eine verbindliche Zustellung gewährleistet. ...

SAN, NAS, DAS
Entscheidung SAN Dell oder HP
Frage von VincorSAN, NAS, DAS13 Kommentare

Hallo, wir wollen uns für unsere Hyper V Umgebung eine neue SAN Anschaffen. Es laufen 30 VM's darunter, DC; ...