mit folgendem code möchte ich einen Ordner verschieben, bekomme aber immer die ErrMld "Der Zielordner existiert bereits!".
Was zum Henker mache ich falsch?
Viele Grüße aus HH, Bewölkung nimmt zu, gibt wohl Gewitter...
ray
Option Explicit
Function fncFolderExists(sFolder As String) As Boolean
Dim oFs As Object
Set oFs = CreateObject("Scripting.FileSystemObject")
fncFolderExists = oFs.FolderExists(sFolder)
End Function
Sub MoveFolderAndFiles()
Dim oFs As Object
Dim sSource As String, sTarget As String
Set oFs = CreateObject("Scripting.FileSystemObject")
sSource = "C:\Programme\test1" 'Form1.Label10
sTarget = "c:\1" 'Form1.Label8 &
MsgBox "von " & sSource
MsgBox "nah " & sTarget
If fncFolderExists(sSource) = False Then
Beep
MsgBox "Der Quellordner wurde nicht gefunden!"
ElseIf fncFolderExists(sTarget) Then
Beep
MsgBox "Der Zielordner existiert bereits!"
Else
oFs.MoveFolder sSource, sTarget
MsgBox "Der Ordner " & sSource & " wurde nach " & _
sTarget & " verschoben!"
End If
End Sub