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, 2845 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 ..
Neuester Wissensbeitrag
Microsoft

Lizenzwiederverkauf und seine Tücken

(5)

Erfahrungsbericht von DerWoWusste zum Thema Microsoft ...

Ähnliche Inhalte
Windows Server
WIndows 2008 wbadmin Fehler bei addtarget (3)

Frage von jocologne zum Thema Windows Server ...

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
gelöst SQL Server 2008 überlappender E A Vorgang, Fehler ID 997 (4)

Frage von Timx zum Thema Windows Server ...

Heiß diskutierte Inhalte
Windows Netzwerk
Windows 10 RDP geht nicht (16)

Frage von Fiasko zum Thema Windows Netzwerk ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Microsoft Office
Keine Updates für Office 2016 (13)

Frage von Motte990 zum Thema Microsoft Office ...