Jak z dlouhé název_souboru získat krátký název_souboru

Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.

Projděte si také anglickou verzi článku:175512
Tento článek byl archivován. Je nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.
Souhrn
Za určitých okolností může být nutné získat krátký název_souboru ekvivalentní souboru, který má dlouhý název_souboru. V příkladu umožňují vybrat soubor, který má dlouhý název souboru a vrátit je krátké název_souboru pomocí volání funkce API GetShortPathName.
Další informace
Následující příklad kódu zahrnuje funkce, která bude převést ekvivalenty krátký název souboru dlouhé názvy souborů a také zahrnuje jednoduché demonstrační na funkci použití.

Podrobný příklad

  1. Vytvoření nového projektu standardní EXE v jazyka. Jako výchozí je vytvořen formulář Form1.
  2. Umístěte CommandButton Form1.
  3. Umístěte Common Dialog prvku na formuláři.
  4. V nabídce Vložit vyberte modul do projektu přidat jeden kód modulu.
  5. Přidejte následující kód 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					
  6. Přidejte následující kód Form1:
       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					
  7. Spustit projektu stisknutím klávesy F5. Klepněte na tlačítko příkaz zobrazit dialogové okno otevřít. Přejděte dialogové okno otevřít a najděte soubor, který má dlouhý název_souboru. Vyberte soubor a klepněte na tlačítko OK.
  8. Okno zprávy zobrazí název souboru Long spolu s jeho název krátké souboru.
Odkazy
Další informace naleznete v následujícím článku databáze Microsoft Knowledge Base:
154822Jak z krátkých název_souboru získat Long název_souboru

Upozornění: Tento článek je přeložený automaticky

Vlastnosti

ID článku: 175512 - Poslední kontrola: 12/05/2015 08:08:00 - Revize: 3.2

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

  • kbnosurvey kbarchive kbmt kbdocfix kbhowto KB175512 KbMtcs
Váš názor