Thema Datum  Von Nutzer Rating
Antwort
31.07.2019 19:06:46 Lukas
NotSolved
01.08.2019 18:46:37 Gast7373
NotSolved
01.08.2019 21:53:11 Lukas
NotSolved
02.08.2019 19:57:12 Gast7373
NotSolved
Rot Ordner Verschieben
 02.08.2019 20:15:29 Gast78549
NotSolved
02.08.2019 20:28:48 Gast61153
NotSolved

Ansicht des Beitrags:
Von:
Gast78549		 Datum:
02.08.2019 20:15:29		 Views:
468		 Rating:
     
Antwort:
  Ja
Thema:
Ordner Verschieben

Hallo nochmal,

ach crap das Name-Bsp. funktioniert nur so:

Option Explicit

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
   ByVal DirPath As String) As Long
 
Public Sub test()
   Const SOURCE_PATH As String = "C:\Users\xyz\Test"
   Const TARGET_PATH As String = "C:\Users\xyz\TestNeu\"
   If CBool(MakeSureDirectoryPathExists(TARGET_PATH)) And _
        Dir$(PathName:=SOURCE_PATH, Attributes:=vbDirectory) <> vbNullString Then
       Name SOURCE_PATH As TARGET_PATH & "Gesamt"
   Else
       Call MsgBox(Prompt:="Der Ordner konnte nicht erstellt werden, oder Datei wurde nicht gefunden...", _
          Buttons:=vbExclamation, Title:="Error")
   End If
End Sub

Gruß,

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
31.07.2019 19:06:46 Lukas
NotSolved
01.08.2019 18:46:37 Gast7373
NotSolved
01.08.2019 21:53:11 Lukas
NotSolved
02.08.2019 19:57:12 Gast7373
NotSolved
Rot Ordner Verschieben
 02.08.2019 20:15:29 Gast78549
NotSolved
02.08.2019 20:28:48 Gast61153
NotSolved