Access Spalte auslesen und Batch erstellen
Hallo.
ich möchte aus einer Spalte eine Batchdatei erstellen um schneller Bilder kopieren zu können.
ungefähr so hatte ich mir das gedacht:
Leider bekomme ich einen Fehler: Objekt erforderlich (Fehler 424)
ich möchte aus einer Spalte eine Batchdatei erstellen um schneller Bilder kopieren zu können.
ungefähr so hatte ich mir das gedacht:
Option Compare Database
Public Function bildercopy()
Dim dbs As Database
Dim rst As Recordset
Dim merken1
Set oFile = fso.OpenTextFile("C:\bilder.bat", 8, True)
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("bilder abfrage", dbOpenDynaset)
Set fso = CreateObject("Scripting.FileSystemObject")
With rst
If .RecordCount > 0 Then
.MoveLast
.MoveFirst
While Not .EOF
merken1 = !Bilder
oFile.WriteLine "xcopy y:*" & merken1 & "* /s"
.MoveNext
Wend
End If
End With
rst.Close
End Function
Leider bekomme ich einen Fehler: Objekt erforderlich (Fehler 424)
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 213741
Url: https://administrator.de/forum/access-spalte-auslesen-und-batch-erstellen-213741.html
Ausgedruckt am: 23.12.2024 um 01:12 Uhr
7 Kommentare
Neuester Kommentar
Hallo chrislm!
Ob der Fehler sich wohl auf die Zeile 10 bezieht? Ich würde auf jeden Fall die Zeile 13 vor der Zeile 10 platzieren ...
BTW: Wenn Du schon Variablen per "
Grüße
bastla
Ob der Fehler sich wohl auf die Zeile 10 bezieht? Ich würde auf jeden Fall die Zeile 13 vor der Zeile 10 platzieren ...
BTW: Wenn Du schon Variablen per "
Dim
" deklarierst, dann aber gleich richtig und konsequent mit einem "Option Explicit
" in Zeile 2 und Deklaration aller Variablen (also auch "fso" und "oFile").Grüße
bastla
Hallo chrislm!
Wenn Du dann noch diese Fehlermeldung erhältst, kann es sich nur um eine Variable handeln, die falsch geschrieben ist - so findest Du solche Tippfehler leichter ...
Grüße
bastla
dann meckert er: Variable nicht definiert
Genau das ist auch der Sinn der Aktion - Du sollst vorweg alle Variablen deklarieren (hatte ich das erwähnt? ) , daher eben auch nochDim fso As Object
Dim oFile As Object
Grüße
bastla