Hallo,
ich habe hier einen kleinen Code. Er liest z.B. auf C:\test ein Ordner aus und kopiert die Daten die sich darin befinden auf C:\test1.
Beim kopieren bekomme ich aber eine merkwürdige Fehlermeldung: Zugriff verweigert. Habe aber Adminrechte!
Hier der Code:
Private Sub B_sichern_Click()
Dim arr
Dim srcFldr
Dim destFldr
Dim fs
Dim f
Dim fc
Dim a
Dim f1
'Abfrage ob ob Archivpfad vorhanden
If IsNull(Me.T_archive) Then
MsgBox "Bitte geben Sie einen Archivpfad ein"
End
End If
If Me.T_archive = Me.T_backup Then
MsgBox "Quelle und Zielpfad dürfen nicht identisch sein!"
End
End If
arr = Array("txt")
srcFldr = Me.T_backup '"C:\test\"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(srcFldr)
Set fc = f.Files
destFldr = Me.T_archive '"c:\test1\"
For a = 0 To UBound(arr)
For Each f1 In fc
If Right(f1.Name, 3) = arr(a) Then f1.copy destFldr
Next
Next
Set fc = Nothing
Set f = Nothing
Set fs = Nothing
MsgBox "Fertig"
End Sub
Die Fehlermeldung kommt bei: f1.copy destFldr
Wäre super wenn einer dieses Problem kennt oder einen Tipp für mich hat!
Gruß
Ken
Hallo,
in neueren Win Versionen erfordert der Zugriff auf C: spezielle Zugriffsrechte, trotz Admin. Musst Du mal suchen, einen direkten Tip habe ich keinen.
Das ist eine Windowssache und hat mit Access nichts zu tun.
Versuche mal testweise ein anderes Laufwerk.
Ist ja nicht zu glauben, wenn ich als Quelle den USB-Stick angebe funktioniert es.
Danke für den Tipp!