Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1956to1960
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
Inhaltsverzeichnis

Existenz einer Datei im Pfad überprüfen, variabler Dateiname

Existenz einer Datei im Pfad überprüfen, variabler Dateiname
21.12.2023 13:44:29
Idence2
Hallo,

mit



Sub test()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")

q = FSO.FileExists("C:\Users\Desktop\Hello.txt")

End Sub


kann ich überprüfen, ob auf dem Desktop die Datei "Hello.txt" abgelegt ist. Ich möchte jedoch die Existenz einer Datei überprüfen, dessen Dateinamen-Anfang bekannt ist und die Endung (also z.B. ".txt", oder ".pdf". In diesem Fall würde ich statt "Hello" z.B. nur "Hel" kennen. Wie kann ich dies erreichen?

Mein Versuch

w = FSO.FileExists("C:\Users\qxz4j2r\Desktop\Hel*.txt")


ist leider erfolglos.

Danke im Voraus.

Viele Grüße

Idence




6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Existenz einer Datei im Pfad überprüfen, variabler Dateiname
21.12.2023 13:52:08
Idence2
Kann man abgeschickte Beiträge nicht bearbeiten?...

Mein Versuch sollte natürlich heißen

w = FSO.FileExists("C:\Users\Desktop\Hel*.txt")


AW: Existenz einer Datei im Pfad überprüfen, variabler Dateiname
21.12.2023 14:00:25
Dirk
ChatGPT hat es für mich gelöst. Ich musste nur ganz leicht nacharbeiten...


Public Function GetCleanContent(ByVal i_content As String) As String

Dim regex As Object

' Erstelle ein Regex-Objekt
Set regex = CreateObject("VBScript.RegExp")
With regex
.Global = True
.MultiLine = True
.Pattern = "[^;""']" & vbCrLf & "[^;""']"
End With

' Überprüfe, ob das Muster im Inhalt vorhanden ist
While regex.Test(i_content)
' Ersetze den Zeilenumbruch durch nichts
i_content = regex.Replace(i_content, "")
Wend

' Gib den bereinigten Inhalt zurück
GetCleanContent = i_content
End Function

Anzeige
AW: Existenz einer Datei im Pfad überprüfen, variabler Dateiname
21.12.2023 14:07:51
Idence2
...
AW: Existenz einer Datei im Pfad überprüfen, variabler Dateiname
22.12.2023 13:48:51
Ulf


Sub test()
Dim strFullname As String
Dim strFound As String
strFullname = "C:\Users\Desktop\Hel*.*"
strFound = Dir$(strFullname, vbNormal)
If strFound > "" Then
Do Until strFound = ""
MsgBox strFound
strFound = Dir
Loop
End If
End Sub

hth
Ulf
AW: Existenz einer Datei im Pfad überprüfen, variabler Dateiname
21.12.2023 14:05:08
Dirk
sorry, falscher thread....
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige