Thema Datum  Von Nutzer Rating
Antwort
Rot Bilder durchsuchen und kopieren
 03.05.2017 18:02:01 charls
NotSolved

Ansicht des Beitrags:
Von:
charls		 Datum:
03.05.2017 18:02:01		 Views:
1318		 Rating:
     
Antwort:
  Ja
Thema:
Bilder durchsuchen und kopieren

hallo ich wollte wissen wie ich auch die unterordner durchsuchen kann nach bilder, weil aktuell mit dem code unten durchsucht er mir nur den angegebenen ordner ? Vielen Dank im Voraus !

 

Option Explicit

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

Sub copyPicture()
    Dim objFSO As Object
    Dim strPath As String, strNewPath As String
    Dim rng As Range
    
    
    strPath = "C:\Users\info\Desktop\ideal" 'Verzeichnis mit den Bildern - Anpassen!
    
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
    
    strNewPath = "C:\Users\info\Desktop\bilderfürwilly" 'Verzeichnis in welches die Bilder kopiert werden sollen - Anpassen!
    
    If Right(strNewPath, 1) <> "\" Then strNewPath = strNewPath & "\"
    
    If MakeSureDirectoryPathExists(strNewPath) <> 0 Then
        
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        
        For Each rng In Sheets("Tabelle1").Range("A1:A500") 'Tabellenname und Bereich anpassen
            If rng <> "" Then
                If Dir(strPath & rng.Text) <> "" Then
                    objFSO.CopyFile strPath & rng.Text, strNewPath & rng.Text
                End If
            End If
        Next
    Else
        MsgBox strNewPath & " konnte nicht erstellt werden!"
    End If
End Sub

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
Rot Bilder durchsuchen und kopieren
 03.05.2017 18:02:01 charls
NotSolved