Verzeichniss läßt sich per VBA nicht anlegen

11/03/2009 - 10:00 von Andreas Ahrens | Report spam
Hi NG,

ich habe beim unteren Listing das Problem, dass sich ein Pfad nicht per VBA
anlegen làßt.

Code:

Private Sub sFbackup_Click()
Dim fs
Dim ordner As String
ordner = "C:\Temp\" & Format(Date, "mmmm YYYY") & "\" & CStr(Date) & "\"
Set fs = CreateObject("Scripting.Filesystemobject")
Set db = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM BackupPfad", db

'Ordner làßt sich nicht Erstellen
'Fehlermeldung: Pfad nicht gefunden
If Not fs.FolderExists(ordner) Then
MkDir ordner
End If

While Not rs.EOF
fs.copyfolder rs.Fields("FilePfad"), ordner
rs.MoveNext
Wend
rs.Close
db.Close
End Sub

Wo liegt der Fehler?

Gruß
Andy
 

Lesen sie die antworten

#1 André Minhorst
11/03/2009 - 10:19 | Warnen spam
Hi,

Am Wed, 11 Mar 2009 02:00:01 -0700 schrieb Andreas Ahrens:
ich habe beim unteren Listing das Problem, dass sich ein Pfad nicht per VBA
anlegen làßt.

Code:

Private Sub sFbackup_Click()
Dim fs
Dim ordner As String
ordner = "C:\Temp\" & Format(Date, "mmmm YYYY") & "\" & CStr(Date) & "\"
Set fs = CreateObject("Scripting.Filesystemobject")
Set db = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM BackupPfad", db

'Ordner làßt sich nicht Erstellen
'Fehlermeldung: Pfad nicht gefunden
If Not fs.FolderExists(ordner) Then
MkDir ordner
End If

While Not rs.EOF
fs.copyfolder rs.Fields("FilePfad"), ordner
rs.MoveNext
Wend
rs.Close
db.Close
End Sub

Wo liegt der Fehler?



möglicherweise liegt es daran, dass Du mit MkDir nur ein Verzeichnis
gleichzeitig anlegen kannst.

Vielleicht wàre diese Funktion etwas für Dich:

http://www.access-im-unternehmen.de/636.0.html

Ciao
André


http://www.access-entwicklerbuch.de
http://www.access-im-unternehmen.de

Ähnliche fragen