Gewusst wie: kurze Dateinamen von Long Dateiname abrufen

Artikel-ID: 175512 - Produkte anzeigen, auf die sich dieser Artikel bezieht

Hinweis: Dies ist ein maschinell �bersetzter Artikel.

Maschinell-�bersetzte und englische Version des Artikels nebenander anzeigen

Alles erweitern | Alles schlie�en

Unter bestimmten Umst�nden ist es m�glicherweise erforderlich, um kurze Dateinamen entspricht einer Datei abzurufen, die eine lange Dateinamen hat. Im folgenden Beispiel k�nnen Sie eine Datei mit einer lange Dateinamen ausw�hlen und Sie kurze Dateinamen mithilfe des Aufrufs GetShortPathName-API-Funktion zur�ckzugeben.

Zum Anfang | Ihr Feedback an uns

Weitere Informationen

Das folgende Codebeispiel enth�lt eine Funktion, die lange Dateinamen werden in entsprechenden kurzen Dateinamen konvertieren und enth�lt au�erdem eine einfache Demonstration der Verwendung der Funktion.

Vorgehensweise: Beispiel

Erstellen Sie ein neues Standard EXE-Projekt in Visual Basic. Form1 wird standardm��ig erstellt.
Versehen Sie Form1 mit einer Befehlsschaltfl�che.
Platzieren Sie ein Common Dialog-Steuerelement auf dem Formular.
Im Men� Einf�gen die Option w�hlen Sie Modul , um ein einzelnes Codemodul zum Projekt hinzuf�gen aus.

F�gen Sie den folgenden Code hinzu Module1:

   Declare Function GetShortPathName Lib "kernel32" _
      Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
      ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

   Public Function GetShortName(ByVal sLongFileName As String) As String
       Dim lRetVal As Long, sShortPathName As String, iLen As Integer
       'Set up buffer area for API function call return
       sShortPathName = Space(255)
       iLen = Len(sShortPathName)

       'Call the function
       lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen)
       'Strip away unwanted characters.
       GetShortName = Left(sShortPathName, lRetVal)
   End Function

F�gen Sie Form1 folgenden Code hinzu:

   Private Sub Command1_Click()
     Dim msg As String
     CommonDialog1.FileName = "*.*"
     CommonDialog1.ShowOpen
     msg = "Long File Name: " & CommonDialog1.filename & vbCrLf
     msg = msg & "Short File Name: " & GetShortName(CommonDialog1.filename)
     MsgBox msg
   End Sub

F�hren Sie das Projekt, indem Sie die Taste [F5]. Klicken Sie auf den Befehl an, das Dialogfeld �ffnen anzuzeigen. Navigieren Sie im Dialogfeld "�ffnen" und suchen Sie eine Datei mit einer lange Dateinamen. W�hlen Sie die Datei aus, und klicken Sie auf OK.
Im Meldungsfeld wird den Long File Namen zusammen mit der kurze Dateiname angezeigt.

Zum Anfang | Ihr Feedback an uns

Informationsquellen

Weitere Informationen finden Sie in der folgenden Artikel der Microsoft Knowledge Base:

154822

(http://support.microsoft.com/kb/154822/EN-US/ )

So erhalten Sie eine lange Dateinamen von kurzer Dateiname

Zum Anfang | Ihr Feedback an uns

Eigenschaften

Artikel-ID: 175512 - Ge�ndert am: Freitag, 11. M�rz 2005 - Version: 3.2

Die Informationen in diesem Artikel beziehen sich auf:

Microsoft Visual Basic Control Creation Edition
Microsoft Visual Basic 5.0 Learning Edition
Microsoft Visual Basic 5.0 Professional Edition
Microsoft Visual Basic 5.0 Enterprise Edition
Microsoft Visual Basic 4.0 Standard Edition
Microsoft Visual Basic 4.0 Professional Edition
Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
Microsoft Visual Basic 6.0 Learning Edition
Microsoft Visual Basic 6.0 Professional Edition
Microsoft Visual Basic Enterprise Edition for Windows 6.0

kbmt kbdocfix kbhowto KB175512 KbMtde

Maschinell �bersetzter Artikel

Wichtig: Dieser Artikel wurde maschinell und nicht von einem Menschen �bersetzt. Die Microsoft Knowledge Base ist sehr umfangreich und ihre Inhalte werden st�ndig erg�nzt beziehungsweise �berarbeitet. Um Ihnen dennoch alle Inhalte auf Deutsch anbieten zu k�nnen, werden viele Artikel nicht von Menschen, sondern von �bersetzungsprogrammen �bersetzt, die kontinuierlich optimiert werden. Doch noch sind maschinell �bersetzte Texte in der Regel nicht perfekt, insbesondere hinsichtlich Grammatik und des Einsatzes von Fremdw�rtern sowie Fachbegriffen. Microsoft �bernimmt keine Gew�hr f�r die sprachliche Qualit�t oder die technische Richtigkeit der �bersetzungen und ist nicht f�r Probleme haftbar, die direkt oder indirekt durch �bersetzungsfehler oder die Verwendung der �bersetzten Inhalte durch Kunden entstehen k�nnten.

Den englischen Originalartikel k�nnen Sie �ber folgenden Link abrufen: 175512

(http://support.microsoft.com/kb/175512/en-us/ )

Microsoft stellt Ihnen die in der Knowledge Base angebotenen Artikel und Informationen als Service-Leistung zur Verf�gung. Microsoft �bernimmt keinerlei Gew�hrleistung daf�r, dass die angebotenen Artikel und Informationen auch in Ihrer Einsatzumgebung die erw�nschten Ergebnisse erzielen. Die Entscheidung dar�ber, ob und in welcher Form Sie die angebotenen Artikel und Informationen nutzen, liegt daher allein bei Ihnen. Mit Ausnahme der gesetzlichen Haftung f�r Vorsatz ist jede Haftung von Microsoft im Zusammenhang mit Ihrer Nutzung dieser Artikel oder Informationen ausgeschlossen.

Zum Anfang | Ihr Feedback an uns