長整数型 (Long) のファイル名から、短いファイル名を取得する方法

文書翻訳 文書翻訳
文書番号: 175512 - 対象製品
すべて展開する | すべて折りたたむ

目次

概要

特定の状況と同等、長整数型 (Long) のファイル名を含むファイルの短いファイル名を取得する必要があります。 次の例でを長整数型 (Long) のファイル名を含むファイルを選択し、方が、GetShortPathName API 関数呼び出しを使用して短いファイル名を取得できます。

詳細

次のコード例にはでは短いファイル名の対応に長いファイル名を変換し、関数の使用の簡単なデモもする関数にはが含まれます。

ステップ バイ ステップの例

  1. Visual Basic での新しい標準 EXE プロジェクトを作成します。 デフォルトで Form1 が作成されます。
  2. Form1 にコマンド ボタンを配置します。
  3. フォーム上でコモン ダイアログ コントロールを配置します。
  4. [ 挿入 ] メニューの [から 1 つのコード モジュールをプロジェクトに追加するには モジュール を選択します。
  5. 次のコードを 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. 次のコードを 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. F5 キーを押してプロジェクトを実行します。 ファイルを開く] ダイアログ ボックスを表示するコマンド ボタンをクリックします。 ファイルを開く] ダイアログ ボックスを移動し、長整数型 (Long) のファイル名を含むファイルを探します。 ファイルを選択し、[OK] をクリックします。
  8. 短いファイル名と共に長整数型 (Long) のファイル名前は、メッセージ ボックスに表示されます。

関連情報

関連情報については、Microsoft Knowledge Base の次の記事を参照してください:
154822長整数型 (Long) のファイル名、短いファイル名から取得する方法

プロパティ

文書番号: 175512 - 最終更新日: 2005年3月11日 - リビジョン: 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
キーワード:?
kbhowto kbdocfix kbmt KB175512 KbMtja
機械翻訳の免責
重要: このサポート技術情報 (以下「KB」) は、翻訳者による翻訳の代わりに、マイクロソフト機械翻訳システムによって翻訳されたものです。マイクロソフトは、お客様に、マイクロソフトが提供している全ての KB を日本語でご利用いただけるように、翻訳者による翻訳 KB に加え機械翻訳 KB も提供しています。しかしながら、機械翻訳の品質は翻訳者による翻訳ほど十分ではありません。誤訳や、文法、言葉使い、その他、たとえば日本語を母国語としない方が日本語を話すときに間違えるようなミスを含んでいる可能性があります。マイクロソフトは、機械翻訳の品質、及び KB の内容の誤訳やお客様が KB を利用されたことによって生じた直接または間接的な問題や損害については、いかなる責任も負わないものとします。マイクロソフトは、機械翻訳システムの改善を継続的に行っています。
英語版 KB:175512
Microsoft Knowledge Base の免責: Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。(Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。

フィードバック

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com