Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: über Access-VBA Datei verschieben
Autor: Prian0815
Datum: 01.12.04 14:12
' TextStream-Objekt erstellen Dim oStream As TextStream Dim oFSO As New FileSystemObject Dim path As String Dim filename As String ' Textdatei zum Lesen öffnen Set oStream = oFSO.OpenTextFile(Dateipfad, ForReading) 'Überschrift(erste Zeile) lesen sLine = oStream.ReadLine ' Gesamten Inhalt in eine String-Variable einlesen sText = oStream.ReadAll oStream.Close ' Datei zum späteren verschieben schliesen ' Existiert der Ordner? If Not oFSO.FolderExists(newPath) Then ' Nein! Jetzt erstellen... If oFSO.CreateFolder(newPath) Then ' Ordner wurde korrekt erstellt! End If End If ' Datei verschieben newPath = newPath & Dat_name oFSO.MoveFile Alter Pfad, newPath So, das hab ich mal scvhnell aus ner Access DB rausgezogen. Hoffe das wird dir helfen. Gruß Armin P.S.: always look on the bright side of Life!

über Access-VBA Datei verschieben	2.239	Ras	01.12.04 13:59
Re: über Access-VBA Datei verschieben	1.268	Prian0815	01.12.04 14:12
Re: über Access-VBA Datei verschieben	954	Ras	01.12.04 14:45
Re: über Access-VBA Datei verschieben	871	Ras	01.12.04 14:52
Re: über Access-VBA Datei verschieben	843	Prian0815	02.12.04 08:48

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