かっこいいアプリをつくろうTips
↑(当社比) ↑(アプリケーション)
フルパスから拡張子を取得
第4回も、タイトルどうりですね。↓
たとやば、変数Pathにフルパスがはいってたとします
例) C:ProgramFiles\Microsoft\VB98\VB6.exe
この場合、exeを取得できれば良いわけです。
Dim Path As String Dim TestPath As String Dim Kakuchyoushi As String Dim i As Long 〜Pathにフルパスを入れる〜 Private Sub 〜 For i=1 To 255 TestPath=Right(Path,i) If Left(TestPath,1)="." Then Kakuchyoushi=Right(TestPath,i-1) Exit For End If Next MsgBox"拡張子は" & Kakuchyoushi & "です" End Sub |
ソースを書きましたので、見てください。
Kakuchyoushiに拡張子が入っています
説明はNothingです。
次回はファイル名を取り出します。てぃうか小出しにするな(^^;)
さぁNO4もおわりですが、アプリはかっこよくなったでしょうか?
ならなかった人は、次回に期待!!