move.folder problem
21.06.2005 09:27:17
Ray
mit eurer hilfe habe ich anliegenden code zum laufen gebracht. er funzt auch einwandfrei solange ich nur auf c: hin- und herschiebe. Wenn das Ziel z. B. A: ist bekomme ich die ErrMld "Laufzeitfehler 70 Zugriff verweigert" gehe ich auf Debuggen ist folgendes gelb: oFs.MoveFolder sSource, sTarget
hier mein (unser) code:
Public
Sub MoveFolderAndFilesOff()
Dim oFs As Object
Dim sSource As String, sTarget As String
Set oFs = CreateObject("Scripting.FileSystemObject")
sSource = Form1.Label10 ' von
sTarget = Form1.Label8 & "\" 'nach
If fncFolderExists(sSource) = False Then
MsgBox "Der Quellordner wurde nicht gefunden!"
ElseIf fncFolderExists(sTarget) Then
MsgBox "Der Zielordner existiert bereits!"
Else
oFs.MoveFolder sSource, sTarget
End If
Exit Sub
**************
Function fncFolderExists(sFolder As String) As Boolean
Dim oFs As Object
Set oFs = CreateObject("Scripting.FileSystemObject")
fncFolderExists = oFs.FolderExists(sFolder)
End Function
*****************************************
Wo nur liegt das Problem?
Viele Grüße aus Hamburg bewölkt, warm, Wochenanfang mieß...
ray
Anmerkung zum Level:
Excel gut - VB Anfänger in Teilbereichen gut.