Dateioperationen

Achtung: Seien Sie extrem vorsichtig mit dem löschen von Dateien. MS ACCESS fragt nicht nach, ob diese Dateien wirklich gelöscht werden sollen. Noch vorsichtiger sollten Sie bei der Verwendung von Wildcards sein!

1. Löschen von MS Access Objekten und deren Eigenschaften

Dim fname As String

Dim i As Integer
With Application.FileSearch

.lookin = "c:\vvv\abc"
.filename = "*"
If .Execute > 0 Then

For i = 1 To .foundfiles.Count

fname = .foundfiles(i)
Debug.Print fname
Kill fname

Next i

End If

End With

2. Löschen von Dateien und Direktories

Dim fname As String
fname = Dir("c:\vvv\abc\*")
Do While fname <> ""

Kill ("c:\vvv\abc\" & fname)
fname = Dir

Loop

RmDir ("c:\vvv\abc")

Anmerkung: Da mit fname = Dir("Pfad") immer nur ein Direktory-Eintrag übergeben wird, übergibt die Anweisung fname = Dir den nächsten.

3. Neues Verzeichnis erstellen

Mkdir("Direktoryname")

4. Datei erstellen

Open "Pfad-\Dateiname" For Output As #1
Write #1, "Hier einen Text oder getrennt durch ein Komma eine Zahl", 234
Close #1

5. Text an Datei anhängen

Open "Pfad-\Dateiname" For Append As #1
Write #1, "Text..."
Close #1

6. Textdatei einlesen

Dim variable, gtext As String
Open "Pfad-\Dateiname" For Input As #1
Do While Not EOF(1)

Line Input #1, variable
gtext = gtext & Chr$(13) & Chr$(10) & variable

Loop
Close #1

6.1 Position der Einfügemarke im Textfeld

Dim selbeginn, sellänge As Integer
selbeginn = Forms![Formularname]![Feldname].SelStart

6.2 Länge eines markierten Textes ermitteln

Dim selbeginn, sellänge As Integer
sellänge = Forms![Formularname]![Feldname].SelLengt

6.3 Wert des selektieren Textes übergeben

Dim selwert As Integer
selwert = Forms![Formularname]![Feldname].SelText

Hinweis: Die Felder der 3 letzten Funktionen benötigen den Focus um die Information übergeben zu können.