ABOUT Visual Basic Programmieren Programmierung Download Downloads Tips & Tricks Tipps & Tricks Know-How Praxis VB VBA Visual Basic for Applications VBS VBScript Scripting Windows ActiveX COM OLE API ComputerPC Microsoft Office Microsoft Office 97 Office 2000 Access Word Winword Excel Outlook Addins ASP Active Server Pages COMAddIns ActiveX-Controls OCX UserControl UserDocument Komponenten DLL EXE
Diese Seite wurde zuletzt aktualisiert am 19.09.2003

Diese Seite wurde zuletzt aktualisiert am 19.09.2003
Aktuell im ABOUT Visual Basic-MagazinGrundlagenwissen und TechnologienKnow How, Tipps und Tricks rund um Visual BasicActiveX-Komponenten, Controls, Klassen und mehr...AddIns für die Visual Basic-IDE und die VBA-IDEVBA-Programmierung in MS-Office und anderen AnwendungenScripting-Praxis für den Windows Scripting Host und das Scripting-ControlTools, Komponenten und Dienstleistungen des MarktesRessourcen für Programmierer (Bücher, Job-Börse)Dies&Das...

Themen und Stichwörter im ABOUT Visual Basic-Magazin
Code, Beispiele, Komponenten, Tools im Überblick, Shareware, Freeware
Ihre Service-Seite, Termine, Job-Börse
Melden Sie sich an, um in den vollen Genuss des ABOUT Visual Basic-Magazins zu kommen!
Informationen zum ABOUT Visual Basic-Magazin, Kontakt und Impressum

Zurück...

Pfade "anführen"

Zurück...


Anzeige

(-hg) mailto:hg_quotedpath@aboutvb.de

API-Funktionen erwarten in der Regel eine in Anführungszeichen eingeschlossene Pfadangabe zu einem Ordner oder einer Datei, wenn der Pfad Leerzeichen enthält. Allerdings sollten Sie nicht unbedingt "rein vorsorglich" jeden Pfad in Anführungszeichen einschließen, da manche API- und VB-Funktionen empfindlich reagieren, wenn die Pfadangabe zuvor bereits (aus welchem Grund auch immer) beidseitig oder einseitig in Anführungszeichen eingeschlossen war.

Die folgende Hilfs-Funktion stellt das Einschließen in Anführungszeichen sicher und hilft, Pannen wegen verdoppelten oder einseitigen Anführungszeichen zu vermeiden. Sie übergeben Ihr den Pfad und erhalten ihn fein säuberlich in Anführungszeichen eingeschlossen zurück, wenn er Leerzeichen enthält. Setzen Sie zusätzlich den optionalen Parameter ForceQuotes auf True, wird der Pfad in jedem Fall in Anführungszeichen eingeschlossen.

Public Function QuotedPath(Path As String, _
 Optional ByVal ForceQuotes As Boolean) As String

  Dim l As Long
  Dim nLen As Long
  Dim nLeft As Long
  Dim nRight As Long
  
  nLen = Len(Path)
  For l = 1 To nLen
    If Mid$(Path, l, 1) <> """" Then
      nLeft = l - 1
      Exit For
    End If
  Next 'l
  For l = nLen To 1 Step -1
    If Mid$(Path, l, 1) <> """" Then
      nRight = l + 1
      Exit For
    End If
  Next 'l
  If CBool(InStr(Path, " ")) Or ForceQuotes Then
    If nLeft < 1 Then
      If nRight > nLen Then
        QuotedPath = """" & Path & """"
      Else
        QuotedPath = """" & Left$(Path, nRight)
      End If
    Else
      If nRight > nLen Then
        QuotedPath = Mid$(Path, nLeft) & """"
      Else
        QuotedPath = Mid$(Path, nLeft, nRight - nLeft + 1)
      End If
    End If
  Else
    If nLeft < 1 Then
      If nRight > nLen Then
        QuotedPath = Path
      Else
        QuotedPath = Left$(Path, nRight - 1)
      End If
    Else
      If nRight > nLen Then
        QuotedPath = Mid$(Path, nLeft + 1)
      Else
        QuotedPath = Mid$(Path, nLeft + 1, nRight - nLeft - 1)
      End If
    End If
  End If
End Function

Modul modQuotedPath (quotedpath.zip - ca. 0,8 KB)


Artikel
Zum Download-Bereich dieses Artikel
Mail an den Autor dieses Artikels

KnowHow
Zur KnowHow-Übersicht

KnowHow-Themen
Themen - Allgemeines
Themen - Entwicklungsumgebung (VB-IDE)
Themen - Forms
Themen - Steuerelemente (Controls)
Themen - Grafik
Themen - Dateien
Themen - UserControls
Themen - Einsteiger-Tipps
Themen - Wussten Sie...?

Übersicht nach Titeln in alphabetischer Reihenfolge
Übersicht nach Erscheinungsdatum

Schnellsuche




Zum Seitenanfang

Copyright © 1999 - 2017 Harald M. Genauck, ip-pro gmbh  /  Impressum

Zum Seitenanfang

Zurück...

Zurück...

Download Internet Explorer