Jak z krátkých název_souboru získat Long název_souboru

ID článku: 154822 - Produkty, které se vztahují k tomuto článku.
Strojově přeložený článekUPOZORNĚNÍ: TENTO ČLÁNEK BYL STROJOVĚ PŘELOŽEN
Rozbalit všechny záložky | Minimalizovat všechny záložky

Na této stránce

Souhrn

Funkce Dir() může být použita k vrácení dlouhý název souboru, ale neobsahuje informace o cestě. Analýza dané krátký cesta/název_souboru do jeho základních adresářů, můžete pomocí funkce Dir() vytvořit dlouhý cesta/název_souboru. Tento článek ukazuje, jak dosáhnout tohoto chování.
Zpět nahoru | Dejte nám zpětnou vazbu

Další informace

Následující příklad kódu zahrnuje funkce, která bude převést ekvivalenty dlouhý název souboru krátké názvy souborů a také zahrnuje jednoduché demonstrační na funkci použití.

Podrobný příklad

  1. Spustit jazyka. Jako výchozí je vytvořen formulář Form1.
  2. Umístěte příkazového tlačítka do Form1.
  3. V nabídce Vložit vyberte modul do projektu přidat jeden kód modulu.
  4. Přidejte následující kód Module1: 
       Public Function GetLongFilename _
     (ByVal sShortName As String) _
     As String

     Dim sLongName As String
     Dim sTemp As String
     Dim iSlashPos As Integer

     'Add \ to short name to prevent Instr from failing
     sShortName = sShortName & "\"

     'Start from 4 to ignore the "[Drive Letter]:\" characters
     iSlashPos = InStr(4, sShortName, "\")

     'Pull out each string between \ character for conversion
     While iSlashPos
       sTemp = Dir(Left$(sShortName, iSlashPos - 1), _
         vbNormal + vbHidden +    vbSystem + vbDirectory)
       If sTemp = "" Then
         'Error 52 - Bad File Name or Number
         GetLongFilename = ""
         Exit Function
       End If
       sLongName = sLongName & "\" & sTemp
       iSlashPos = InStr(iSlashPos + 1, sShortName, "\")
     Wend

     'Prefix with the drive letter
     GetLongFilename = Left$(sShortName, 2) & sLongName

   End Function
  5. Přidejte následující události Command1_Click: 
       Private Sub Command1_Click()

     'Assumes C:\Program Files\Common Files is a valid path
     Print GetLongFilename("C:\PROGRA~1\COMMON~1")

   End Sub
  6. Vyberte z nabídky spustit příkaz Start nebo stisknutím klávesy F5 spustíte.
  7. Tlačítko příkazu.
Pokud jste zadali cestu je platný, dlouhý ekvivalent vytištěných na formuláři. Pokud není platný, nic bude tisknout, v tom případě bude nutné zadat platný krátký název souboru v kódu události Command1_Click.
Zpět nahoru | Dejte nám zpětnou vazbu

Vlastnosti

ID článku: 154822 - Poslední aktualizace: 1. července 2004 - Revize: 4.1
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 6.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 4.0 Standard Edition
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
Klíčová slova: 
kbmt kbhowto KB154822 KbMtcs
Strojově přeložený článek
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:154822
(http://support.microsoft.com/kb/154822/en-us/ )
Zpět nahoru | Dejte nám zpětnou vazbu

Dejte nám zpětnou vazbu

 
Zpět nahoruZpět nahoru