Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Frage Entwicklung VB for Applications

Mitglied: waldgnarf

waldgnarf (Level 1) - Jetzt verbinden

03.03.2009, aktualisiert 04.03.2009, 2856 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
Neue Wissensbeiträge
Windows 10

Windows 8.x oder 10 Lizenz-Key aus dem ROM auslesen mit Linux

(6)

Tipp von Lochkartenstanzer zum Thema Windows 10 ...

Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(40)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Heiß diskutierte Inhalte
Windows 10
gelöst Windows 10 Home "Netzlaufwerk nicht bereit" (19)

Frage von Oggy01 zum Thema Windows 10 ...

SAN, NAS, DAS
+100tb Storagelösung (13)

Frage von Data-Fabi zum Thema SAN, NAS, DAS ...

LAN, WAN, Wireless
Cisco W-Lan Controller als Applicance oder Software (11)

Frage von Herbrich19 zum Thema LAN, WAN, Wireless ...

DNS
gelöst Komplette TLD Überschreiben bzw eigene Definieren (10)

Frage von Herbrich19 zum Thema DNS ...