Funktion "CleanPfadString()"

Nachfolgende Funktion dient dazu aus einem String alle für eine Verzeichnisangabe nicht korrekten Zeichen zu löschen. Bei Verzeichnis- und Datei-Namen sind folgende Zeichen nicht erlaubt: """, ":", ">", "<", "*", "?", "/", "\" und "|". Die Funktion kann eifach um beliebige Zeichen erweitern werden.

Code:

Public Function CleanPfadString(Wert As String)   ' ----------------------------------------------------------- ' Wandelt den mitgegebenen Strings o um, dass er für einen ' Verzeichnisnammen verwendet werden kann ' -----------------------------------------------------------   Dim t As Integer Dim Merk As Integer Dim Zeichen As String   Wert = Trim(Wert) For t = 1 To Len(Wert) Zeichen = Mid(Wert, t, 1) Select Case Zeichen Case ":", ">", "<", "*", "?", "/", "\", "|" CleanPfadString = CleanPfadString Case Chr(34) CleanPfadString = CleanPfadString Case Else CleanPfadString = CleanPfadString & Zeichen End Select Next t   End Function

Viele weitere Tipps & Tricks aus der Praxis für die Praxis finden Sie auf unserer AP-Access-Tools Vol.1

Auf der AP-Access-Tools Vol.1 finden Sie weitere 320 Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode! Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler 256 Access-Beispiele mit offenem Code 45 Add-Ins und ActiveX-Komponenten (Freeware) 16 VB-Projekt inkl. Source 321 Tipps & Tricks für Access und VB Plus 11 Entwicklerversionen (9 davon mit Source!) Plus 3 Vollversionen und Plus riesiger Datenpool Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95!