Informationen zum Forum VBasic / vb.net / vbs / wsh:
Anzahl aktive Mitglieder: 490
Anzahl Beiträge: 4.118
Anzahl Themen: 901

Im Beitrag/Titel Nur im Titel Nur nach Datum sortieren Docs / Anhänge mit Lösung
Suchmaschinenstatistik
Livesuche
Einstellungen
Info

Auch mit chatGPT* können Lösungen aus dem CAD.de-Forum recherchiert werden:

* chatGPT ist eine eingetragene Marke von openAI

Ergebnisse 1 - 3, 3 Gesamtergebnisse mit Suchbegriffen mtexte suchen und ersetzen sec.
VBasic : Dateien in 2 verschiedenen Ordnern und-color: #FFFF99'>suchen
bst am 26.11.2004 um 13:16 Uhr (0)
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
In das Form VBasic wechseln
VBasic : Dateien in 2 verschiedenen Ordnern und-color: #FFFF99'>suchen
bst am 29.11.2004 um 11:41 Uhr (0)
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 = _ " nitfs02acadArchivVorrichtungenAllgemein" Hier mußt Du IMHO den Teil von mir einbauen, eben sowas: Select Case txtEingabe01.Text Case "V-" found = SucheDatei(" nitfs02acadArchivVorrichtungenAllgemein", txtEingabe02) If found = "" Then found = SucheDatei(" ...
In das Form VBasic wechseln
VBasic : Dateien in 2 verschiedenen Ordnern und-color: #FFFF99'>suchen
bst am 25.11.2004 um 21:10 Uhr (0)
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: estdir1", fname) If found = "" Then found = SucheDatei("d: estdir2", fname) Case "VW" found = SucheDatei("d: estdir2", fname) End Select MsgBox found End Sub Private Function SucheDatei(pfad As String, fname ...
In das Form VBasic wechseln

Anzeige:

Anzeige: (Infos zum Werbeplatz)

Alle Produkt-, Schrift-, Firmennamen und Logos sind Warenzeichen oder eingetr. Warenzeichen der jeweiligen Firmen.
©2026 CAD.de , Lenggries. Tel: ++49 (8042) 973 8208 | Datenschutz