nochmals ordner verschieben
17.06.2005 07:51:14
ray
mit folgendem code möchte ich einen Ordner verschieben, bekomme aber immer die ErrMld "Der Zielordner existiert bereits!".
Was zum Henker mache ich falsch? ich möchte "C:\Programme\test1" nach c:\1" verschieben.
Viele Grüße aus HH, stark bewölkt mit Kopfschmerzen...
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