Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Bild-Datei suchen
zurück: Zählen und in andere Tabelle kopieren weiter: Laufzeitfehler 2501 Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gallagher2000
Gast


Verfasst am:
05. Mai 2009, 10:20
Rufname:

Bild-Datei suchen - Bild-Datei suchen

Nach oben
       Version: Office XP (2002)

Hallo,

ich möchte schauen, ob eine gewisse Bilddatei mit genau dem exakten Namen vorhanden ist oder nicht. Dazu verwende ich folgenden Code:
Code:
    Set dateisuche = Application.FileSearch
    With dateisuche
        .NewSearch
        .LookIn = "G:\Bilder\"
        .Filename = bildnummer & "_2009.jpg"
        .SearchSubFolders = False
        .MatchTextExactly = True
Die Variable Bildnummer wird über eine Abfrage mitgegeben. In meinem Verzeichnis existieren z.B. die Dateien:

4711_2009.jpg
x4711_2009.jpg

Wenn ich das Bild 4711 suche möchte ich auch nur diese eine Datei finden. Es werden bei mir jedoch immer beide Dateien gefunden, obwohl der Name der Datei ja nicht exakt übereinstimmt. Dachte eigentlich dafür ist der Code ".MatchTextExactly = True" da. Aber
Code:
    dateisuche.Execute
liefert immer den Wert 2.

Kann mir bitte jemand sagen welchen Code ich schreiben muss damit immer nur das eine exakte Bild gefunden wird?

Gruß
Gallagher2000
lleopard
IT Datenbankentwickler


Verfasst am:
05. Mai 2009, 11:44
Rufname: leo


AW: Bild-Datei suchen - AW: Bild-Datei suchen

Nach oben
       Version: Office XP (2002)

moin,

so könnte das klappen:
Code:
Function test()
    Dim fs As Object
    Dim SuchBild As String
    Dim ItemResult As String
   
    Set fs = Application.FileSearch
    SuchBild = bildnummer & "_2009.jpg"
    With fs
        .NewSearch
        .LookIn = "c:"
        .SearchSubFolders = False  '<<<<Unterordner durchsuchen True/False
        .FileType = 1
        .FileName = "*.jpg"
        If .Execute() > 0 Then
            For i = 1 To .FoundFiles.Count
                ItemResult = .FoundFiles.Item(i)
                If ItemResult = "c:\" & SuchBild Then
                    MsgBox .FoundFiles(i)
                End If
            Next i
          Else
            MsgBox "Keine Dateien gefunden!"
        End If
    End With
End Function
Aber noch einfacher wäre es mit
Code:
    Dim Suchdatei As String
   
    Suchdatei = Dir(pfad & SuchBild, vbArchive)
wenn Suchadatei dann den Namen des Bildes hat, ist alles gut, ansonsten bekommt Suchadatei als Ergebnis = ""

Gruß Leo

_________________
Gruß Leo

Honnit soit qui mal y pense!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Suchen von Datensätzen und Anzeige in neuem Formular 0 NumeroUnoDE 399 04. Jun 2008, 14:55
NumeroUnoDE Suchen von Datensätzen und Anzeige in neuem Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Im eingefügten Dokument suchen 7 Toni Makkaroni 486 27. Mai 2008, 15:10
SGast Im eingefügten Dokument suchen
Keine neuen Beiträge Access Tabellen & Abfragen: auch nach Synonymen und Unterbegriffen suchen 4 Typson 500 04. Feb 2008, 23:27
Typson auch nach Synonymen und Unterbegriffen suchen
Keine neuen Beiträge Access Tabellen & Abfragen: In gesamter Tabelle suchen per Abfrage 6 toxicman 699 30. Jan 2008, 13:41
toxicman In gesamter Tabelle suchen per Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Suchen in Datenzugriffsseite 0 Werner Busch 492 24. Jan 2008, 13:45
Werner Busch Suchen in Datenzugriffsseite
Keine neuen Beiträge Access Tabellen & Abfragen: Suchen in Tabelle (VBA) 2 NeedHelpinAccess 4240 12. Okt 2007, 14:36
Gast Suchen in Tabelle (VBA)
Keine neuen Beiträge Access Tabellen & Abfragen: in Memo bestimmten Text suchen und Anzahl anzeigen 2 remote1 688 05. Aug 2007, 14:31
remote1 in Memo bestimmten Text suchen und Anzahl anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Nicht vorhandes Suchen 4 fammos2001 297 01. Aug 2007, 15:44
fammos2001 Nicht vorhandes Suchen
Keine neuen Beiträge Access Tabellen & Abfragen: im Access nach Zeilenumbruch suchen 5 karin_office 5138 15. März 2007, 14:35
Thomas2007 im Access nach Zeilenumbruch suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Datensätze suchen und anzeigen 7 Bimsinator 887 13. März 2007, 22:00
Nouba Datensätze suchen und anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Nach Kriterien suchen und anzahl ausgeben 3 romu2000 602 11. Feb 2007, 23:43
Willi Wipp Nach Kriterien suchen und anzahl ausgeben
Keine neuen Beiträge Access Tabellen & Abfragen: Suchen und Ersetzen 2 Gast 800 19. Dez 2006, 08:51
Gast Suchen und Ersetzen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project