パス名の振り分け

'================================================================
'= Extension(拡張子を取り除く)
'=    (PathRemoveExtension.bas)
'================================================================
#include "Windows.bi"

' パス文字列から拡張子を取り除く関数
Declare Sub Api_PathRemoveExtension Lib "shlwapi" Alias "PathRemoveExtensionA" (ByVal pszPath$)

Var Shared Edit1 As Object
Var Shared Text(2) As Object
Var Shared Button1 As Object

Edit1.Attach GetDlgItem("Edit1") : Edit1.SetFontSize 14
For i = 0 To 2
    Text(i).Attach GetDlgItem("Text" & Trim$(Str$(i + 1)))
    Text(i).SetFontSize 14
Next
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Sub Button1_On edecl ()
Sub Button1_On()
    Var File As String

    File = Edit1.GetWindowText
    If File = "" Then Exit Sub

    '拡張子を取り除く
    Api_PathRemoveExtension File

    Text(2).SetWindowText Left$(File, InStr(File, Chr$(0)) - 1)
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End