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, 2853 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 Fehler Beim Installieren von SQL 2008 R2 auf einem Windows 2012 Server (6)

Frage von Sv-Schneider zum Thema Windows Server ...

Windows Server
Verknüpfungen über AD verteilen Windows Server 2008 R2 (5)

Frage von Vsadm07 zum Thema Windows Server ...

Backup
gelöst Acronis Backup 11.5 Fehler VSS (5)

Frage von Hendrik2586 zum Thema Backup ...

Neue Wissensbeiträge
Google Android

Cyanogenmod alternative Downloadquelle

(5)

Tipp von Lochkartenstanzer zum Thema Google Android ...

Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(5)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Heiß diskutierte Inhalte
Windows Server
gelöst Exchange HyperV Prozessorlast (19)

Frage von theoberlin zum Thema Windows Server ...

Windows Server
Server mit Netzwerkaussetzern (18)

Frage von SarekHL zum Thema Windows Server ...

Server-Hardware
gelöst SPP von HP Abwärtskompatibel? (14)

Frage von fireskyer zum Thema Server-Hardware ...

LAN, WAN, Wireless
gelöst Batchdatei um einen Proxy einzustellen (14)

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