Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

odner verschieben
Autor: kev
Datum: 21.06.05 11:22
hallo, habe code geschreiben, wo ich mit move.folder odner verschiebe. funzt. Nicht aber, wenn ich von c nach a verschieben möchte. Das muß doch irgendwie ohne kill und so gehen? Mein bisheriger code: Public Sub MoveFolderAndFilesOff() '############ odner aus pfad lesen ############ Dim StOrdner As String Dim StOrdner2 As String StOrdner = Form1.Label10 '"C:\Eigene Dateien\Eigene Webs\images" StOrdner2 = Right(StOrdner, Len(StOrdner) - InStrRev(StOrdner, "\")) 'letzter ordner MsgBox "" & StOrdner2 MsgBox "" & Form1.Label8 'GoTo zweiter 'On Error GoTo zError 'von extern nach c: Dim oFs As Object Dim sSource As String, sTarget As String Set oFs = CreateObject("Scripting.FileSystemObject") sSource = Form1.Label10 ' von sTarget = Form1.Label8 & "\" & StOrdner2 'nach "c:\test\doku" ' '& "1" 'ordnermuß angegeben werden c reicht nicht 'sSource auslesen in txt, einlesend und sTarget&einlesen - erste 2 zeichen (lw) 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 Exit Sub viele Grüße kev

odner verschieben	710	kev	21.06.05 11:22
Re: odner verschieben	401	dereric	21.06.05 11:36
Re: odner verschieben	412	dereric	21.06.05 11:36
Re: odner verschieben	458	kev	22.06.05 07:58
Re: odner verschieben	387	kev	23.06.05 08:10
Re: odner verschieben	388	dereric	22.06.05 07:59
Re: odner verschieben	379	VB-Crack	23.06.05 16:00
Re: odner verschieben	424	kev	23.06.05 16:16

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen