Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

Frage Entwicklung VB for Applications

Mitglied: waldgnarf

waldgnarf (Level 1) - Jetzt verbinden

03.03.2009, aktualisiert 04.03.2009, 2860 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
Visual Studio
gelöst VB: Batchprogramm: Resultat zurückgeben an VB Form (Textfeld) (7)

Frage von PixL86 zum Thema Visual Studio ...

Visual Studio
gelöst Email Versenden Mit VB (2)

Frage von UltraZz zum Thema Visual Studio ...

VB for Applications
gelöst VB Skript für mehrere Batch Befehle (37)

Frage von freshman2017 zum Thema VB for Applications ...

VB for Applications
gelöst VB-Script per Aufgabenplanung (2)

Frage von S4kar97 zum Thema VB for Applications ...

Neue Wissensbeiträge
Sicherheit

Millionen Euro in den Sand gesetzt?

(3)

Information von transocean zum Thema Sicherheit ...

Sicherheit

How I hacked hundreds of companies through their helpdesk

Information von SeaStorm zum Thema Sicherheit ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Eine Netzwerkdose im Wechsel für zwei unterschiedliche Netze (12)

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

Netzwerke
Mobile Einwahl IPSec VPN von iPhone iPad T-Mobile zur Pfsense (11)

Frage von Spitzbube zum Thema Netzwerke ...

Voice over IP
SNOM D765 an LancomR883VAW (10)

Frage von MS6800 zum Thema Voice over IP ...

Windows Netzwerk
Ordner-Freigabe außerhalb der Domäne (9)

Frage von Remsboys zum Thema Windows Netzwerk ...