Dateien verschieben
15.02.2005 09:54:03
Rene
Ich habe diesen Code:
Sub Ordner_mit_Voreinstellung()
Dim objFolderItem As Object, strPath As String, objShell As Object
Dim varDefaultPath As Variant 'wichtig muss Variant sein!
Dim objFolder As Object
varDefaultPath = "C:\Test\"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0&, "Ordner auswählen...", 0&, varDefaultPath)
If objFolder Is Nothing Then End
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
End Sub
hier gefunden nun wollte ich mal fragen ob es machbar ist wenn ich auf den OK Button klicke das dann meine Dateien die im Ordner C:\Temp liegen in den Ordner den ich ausgewählt habe verschoben werden ich bekomme das einfach nicht hin.
Gruß Rene
Anzeige