Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

New FileSystemObject treibt mich in den Wahnsinn ...
Autor: Sparky34
Datum: 24.01.10 17:06
Ich habe folgendes Problem... Ich habe New file system objekt in meinem Programm eingebaut, um Ordner zu erstellen und meine Daten anschließend darin zu speichern. Doch ich bekomme immer nur folgende Fehlermeldung 'Pfad nicht gefunden.' Was mache ich falsch,habe schon sämtliche Beiträge dazu gesucht. Eigentlich sieht der Quellcode zu diesen Thema immer genauso aus wie meiner. Ich danke Euch für Eure Mühe... Option Explicit Private Sub Form_Load() Dim auftragsdatum As Date Dim ofso As New FileSystemObject Dim filename As String Dim filename1 As String Dim filename2 As String Dim nr_1, nr1, nr2, s As Integer Dim Name_1 As String Dim sfile As String Name_1 = "Thomas" filename = "c:\Datensatz 2010.Januar\" & Name_1 & " " & "\Nr 1.txt" filename2 = "c:\Datensatz 2010.Januar\" & Name_1 filename1 = "c:\Datensatz 2010.Januar" 'Test ob fileordner besteht ? If ofso.FolderExists("" & filename1) = False Then ofso.CreateFolder (filename1) End If If ofso.FolderExists("" & filename2) = False Then ofso.CreateFolder (filename2) End If 'Test ob filepos. besteht ? If ofso.FileExists("" & filename) = False Then 'Datensatz in erstellten Ordner schreiben sfile = FreeFile Open filename For Output As #sfile For s = 1 To 5 Print #sfile, "Hallo" Next s Close End If End Sub

New FileSystemObject treibt mich in den Wahnsinn ...	1.894	Sparky34	24.01.10 17:06
Re: New FileSystemObject treibt mich in den Wahnsinn ...	1.205	Rippler	24.01.10 18:29
Re: New FileSystemObject treibt mich in den Wahnsinn ...	1.293	Sparky34	24.01.10 19:14

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen