Fehlermeldung "zu viele Dateien"

22/01/2008 - 19:37 von Jörg Meier | Report spam
Hallo Data-Freunde,

ich habe eine kleine Routine gebastelt, die alle Bilder aus dem Ordner
Transfer 2 mal kopiert und dann gekillt wird.
ABER nach 128 Dateien auf den USB-Stick gespeichert sind kommt die
Fehlermeldung "zuviele Dateien"

Habe ich da in irgendeiner Form eine Grenze gesetzt?
Wer kann da helfen?

Vielen Dank

While Len(strDatei) > 0
FileCopy a & strDatei, c & strDatei
FileCopy a & strDatei, b & strDatei
Kill a & strDatei
strDatei = VBA.Dir
If Len(strDatei) = 0 Then
MsgBox "Alle Bilder verschoben", vbInformation,
"Bildtransfer"
End If
Wend
 

Lesen sie die antworten

#1 Henry Habermacher
23/01/2008 - 03:52 | Warnen spam
Hallo Jörg

Jörg Meier wrote:
ich habe eine kleine Routine gebastelt, die alle Bilder aus dem Ordner
Transfer 2 mal kopiert und dann gekillt wird.
ABER nach 128 Dateien auf den USB-Stick gespeichert sind kommt die
Fehlermeldung "zuviele Dateien"

Habe ich da in irgendeiner Form eine Grenze gesetzt?
Wer kann da helfen?

Vielen Dank

While Len(strDatei) > 0
FileCopy a & strDatei, c & strDatei
FileCopy a & strDatei, b & strDatei
Kill a & strDatei
strDatei = VBA.Dir
If Len(strDatei) = 0 Then
MsgBox "Alle Bilder verschoben", vbInformation,
"Bildtransfer"
End If
Wend



Du verheimlichst uns vermutlich den relevanten Teil des Codes. ich vermute,
dass Du einen FileHandle öffnest und nicht wieder schliesst. Nach 128
Filehandles ist dann eben das Ende erreicht.

Gruss
Henry



Microsoft MVP Office Access
Keine E-Mails auf Postings in NGs. Danke.
Access FAQ www.donkarl.com

Ähnliche fragen