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