PDA

Vollständige Version anzeigen : Dateinamen auslesen


FFrye
05.07.2001, 08:36
Hallo,

hier ein neues Problem. Wie kann ich durch ein Modul den Namen einer Textdatei, die in einem bestimmten Verzeichnis liegt, auslesen und z.B. in einer Tabelle speichern. Der Name der Textdatei ändert sich bei jedem Zugriff. Die Textdatei wird dann importiert und bearbeitet. Danach möchte ich sie mit dem gleichen Namen wieder ausgeben.

Vielen Dank
Frank

Ohnesorg
05.07.2001, 08:52
Hi,

der Folgende Quelltext sollte dies erledigen.
Variablennamen sind in GROSSSCHRIFT, damit der überblick besser gewahrt ist. Der Quelltext ist nicht getestet, aber so müsste es funktionieren:

private function GetTextFile (STRPATH as String) as String
GetTextFile = Dir(STRPATH+"*.txt")
End function

private sub WriteFileInTable (TABELLE as string)
dim RCS as Recordset
set RCS = currentdb.openrecordset(TABELLE, db_open_dynaset)
with RCS
.addnew
!Feldname = GetTextFile("Pfadangabe")
.update
.close
end with
set RCS = nothing
end sub

Probiere es einfach mal aus... die Funktion gibt allerdings nur den ersten gefundenen Dateinamen in diesem Verzeichnispfad zurück.

Gruß
Ohnesorg

Günni
05.07.2001, 19:12
Hi, ein Beispiel, das alle Textdateien eines beliebigen Verzeichnises ausliest und in eine Tabelle schreibt (Dateiname sowie Dateiinhalt) findest Du unter www.mgcss.de (http://www.mgcss.de) --> Entwicklung --> Codebeispiele

<hr>


<font color="#808080" size="2" face="Arial"><strong>Mühldorfer Günter
Computer- und Software-Service
</strong></font>
mg@mgcss.de
<a href="http://www.mgcss.de">www.mgcss.de</a></p>