Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

File suchen

File suchen
08.12.2004 16:34:08
MichaelS
Hi,
habe folgenden Code, um eine Datei (ein jpg) zu suchen:


    ChDir Verzeichnis
        With Application.FileSearch
            .NewSearch
            .Filename = Dateiname
            .LookIn = Verzeichnis
            .SearchSubFolders = True
            .Execute
            
                For I = 1 To .FoundFiles.Count
                    strBilddatei = .FoundFile(I)
                Next I
        End With


Die Datei ist da, aber Excel sagt "Nö!"
Im Haltemodus stimmt der Hauptpfad und auch der Name der Bilddatei.
Warum nur? *heul*
Danke
Michael

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: File suchen
Ramses
Hallo
Zeig mal den ganzen Code.
Mit dem Fragment wirst du definitiv nichts finden.
Alternativ kannst du auch mit
Verzeichnis = "C:\Test"
Dateiname = "Bild.jpg"
If Dir(Verzeichnis & "\" & Dateiname) "" Then
Msgbox "Bild ist da"
Else
Msgbox "Kein Bild da"
End If
probieren
Gruss Rainer
AW: File suchen
09.12.2004 15:47:59
MichaelS
hm...danke Ramses, habe ein wenig gedoktert un nu geth's...


ChDrive Left(Verzeichnis, 2)
ChDir Verzeichnis
With Application.FileSearch
    .NewSearch
    .LookIn = Verzeichnis
    .Filename = Dateiname
    .SearchSubFolders = True
    .FileType = msoFileTypeAllFiles
    .Execute
    For I = 1 To .FoundFiles.Count
        strBilddatei = .FoundFiles(I)
    Next I
End With


Anzeige
AW: File suchen
Ramses
Hallo
kannst du mir sagen, was da tun soll ?
Du erhältst immer nur den Namen der letzten Datei im Verzeichnis :-)
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige