---

Ein hallöchen an alle,

was man alles mit Dateien machen kann : )

Jetzt habe ich folgendes Problem:

Ich möchte eine bestimmte Datei suchen.
Den Namen gebe ich in einen Textfeld ein, Platzhalter in ein sternchen *

Er soll zuerst in einem bestimmten Verzeichnis suchen, wenn er die Datei nicht findet dann in einem anderen bestimmten Verzeichnis.

Mit Case kann ich eingeben, wenn die Datei mit einem z.B. V- anfangt, soll er in \\Ordner\Ordner1\Ord suchen.

Private Sub txtEingabe01_LostFocus()  'Wenn das 1. Eingabefeld verlassen wird ...
  lblFehler.Caption = ""
  If txtEingabe01.Text <> "" Then
    txtEingabe01.Text = UCase(txtEingabe01.Text)  ' Umwandeln in Großbuchstaben
    Select Case txtEingabe01.Text
      Case "V-"
        filDateiAuswahl.Path = "\\nnitfs02\acad\Archiv\Vorrichtungen\Allgemein\"
      Case "VW"
        filDateiAuswahl.Path = "\\nnitfs02\acad\Archiv\Bearbeitungsplan\"

Wie könnte man eingeben, das wenn er V- hat, das er zuerst in dem einen Verzeichnis suchen soll, danach beim anderen?!

Danke Euch
Bis dann
Feyza

------------------
   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Abend Feyza,

versuch mal sowas ähnliches.

HTH, Bernd
--
Option Explicit

Sub Bla()
  Dim txt As String
  Dim found As String
  Dim fname As String
 
  fname = "myfile.*"
  txt = "V-"
  Select Case txt ' txtEingabe01.Text
      Case "V-"
        found = SucheDatei("d:\test\dir1\", fname)
        If found = "" Then found = SucheDatei("d:\test\dir2\", fname)
      Case "VW"
      found = SucheDatei("d:\test\dir2\", fname)
  End Select
  MsgBox found
End Sub

Private Function SucheDatei(pfad As String, fname As String) As String
  SucheDatei = Dir(pfad & fname)
  If SucheDatei <> "" Then SucheDatei = pfad & SucheDatei
End Function

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,

danke für Deine Antwort : )

Wie kriege ich dieses Ergebnis in ein FileListBox mit rein.
Hier stellt es in einer mgsbox dar.

------------------
   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Feyza,

ich weiß noch nicht so genau, was Du denn damit machen möchtest ...

Nimm vielleicht anstatt der Zeile:

MsgBox found

einfach sowas ?

filDateiAuswahl.Path = found

CU, Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,

leider ist es nicht so einfach, statt den msgbox mit filDateiAuswahl.Path = found auszutasuchen.

Bei diesem Programm schaut der Rechner, wenn V- in txtEingabe01 eingetragen wird, nur in einem Verzeichnis. Er soll aber zuerst in diesem, und wenn er die Datei - txtEingabe01 & und Eingabe02 nicht gefunden hat in das nächste feste Verzeichnis.
Und wenn er die Datei gefunden hat, soll er dies in FileListBox filDateiAuswahl anzeugen, damit ich dies später markieren und Öffnen kann.

Hier ist der eigentliche Teil von dem Programm:

Private Sub filDateiAuswahl_Click()

  Dim tCreation As Date
  Dim tLastAccess As Date
  Dim tLastWrite As Date
  Dim sFilename As String

Call PaintPreview(filDateiAuswahl.Path & "\" & filDateiAuswahl.FileName)

sFilename = (filDateiAuswahl.Path & "\" & filDateiAuswahl.FileName)
ReadFileTime sFilename, tCreation, _
  tLastAccess, tLastWrite

  dateiinfo.Text = Format$(tCreation, " dd.mm.yyyy    hh:mm:ss")
  'txtLz.Text = Format$(tLastAccess, " dd.mm.yyyy    hh:mm:ss")
  'txtLs.Text = Format$(tLastWrite, " dd.mm.yyyy    hh:mm:ss")
End Sub
 
Private Sub cmdÖffnen_Click()
Dim dummy As String
  lblFehler.Caption = "Öffne " & filDateiAuswahl.FileName
  dummy = ShellExecute(Me.hwnd, "Open", filDateiAuswahl.Path & "\" & filDateiAuswahl.FileName, "", "", 1)
End Sub

Private Sub cmdSchließen_Click()
  End
End Sub

Private Sub cmdSuchen_Click()

  lblFehler.Caption = "Datei markieren und Öffnen"
  filDateiAuswahl.Visible = True
  cmdÖffnen.Visible = True
  cmdSchließen.Visible = True
  If txtEingabe02.Text <> "" Then
    txtEingabe02.Text = UCase(txtEingabe02.Text)
    filDateiAuswahl.Pattern = txtEingabe01.Text & txtEingabe02.Text & "*.dwg"
  Else
    lblFehler.Caption = "Fehlende Eingabe!!"
    txtEingabe02.SetFocus
  End If

 
End Sub

Private Sub Form_Unload(Cancel As Integer) ' Ende
  Cancel = True
  Me.Hide
 
End Sub
Private Sub Form_Load()
lblFehler.Caption = "z.B.    1.Feld  V-        2.Feld 113654"
End Sub

Private Sub txtEingabe01_LostFocus()  'Wenn das 1. Eingabefeld verlassen wird ...
  lblFehler.Caption = ""
  If txtEingabe01.Text <> "" Then
    txtEingabe01.Text = UCase(txtEingabe01.Text)  ' Umwandeln in Großbuchstaben
    Select Case txtEingabe01.Text
      Case "V-"
        filDateiAuswahl.Path = "\\nnitfs02\acad\Archiv\Vorrichtungen\Allgemein\"

       
      Case Else
        lblFehler.Caption = "Falsche Eingabe!!"
        txtEingabe01.SetFocus
        txtEingabe01.SelStart = 0
        txtEingabe01.SelLength = Len(txtEingabe01.Text)
    End Select
  Else
    lblFehler.Caption = "Fehlende Eingabe!!"
    txtEingabe01.SetFocus
  End If
End Sub

Private Sub txtEingabe02_Click()
lblFehler.Caption = "Bitte Dateinamen eingeben * = für Platzhalter"
End Sub

Danke Dir.
Feyza

------------------
   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

nun, bin zwar noch nicht so viel schlauer, aber trotzdem ein neuer Versuch ;-)

In "txtEingabe01" scheint der Pfad zu stehen, in "txtEingabe02" der Dateiname.

Sowas geht NICHT:

Select Case txtEingabe01.Text
  Case "V-" filDateiAuswahl.Path = _
"\\nnitfs02\acad\Archiv\Vorrichtungen\Allgemein\"

Hier mußt Du IMHO den Teil von mir einbauen, eben sowas:

Select Case txtEingabe01.Text
Case "V-"
found = SucheDatei("\\nnitfs02\acad\Archiv\Vorrichtungen\Allgemein\", txtEingabe02)

If found = "" Then found = SucheDatei("\\nnitfs02\acad\Archiv\Bearbeitungsplan\", txtEingabe02)

Schick doch sonst einfach mal Deine Datei.

Gruß, Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP