パス名の振り分け             <TOP>

パス名をドライブ名・フォルダ名・ベースファイル名・拡張子に分けます。

引数

    ＜パス名＞パス名

    ＜ドライブ名部分＞ドライブ名を格納する変数。フォルダ名にはルートフォルダを表す\、およびベースファイル名直前の\が含まれます。

    ＜ベースファイル名部分＞ベースファイル名を格納する変数

    ＜拡張子部分＞拡張子を格納する変数。拡張子にはベースファイル名直後の .が含まれます。

    相対パス←→フルパスの変換は行いません。

    ロングファイルネーム←→ショートファイルネームの変換は行いません。

    ファイル名の有効性のチェックは行いません。

    ファイル名の有無のチェックは行いません。


注）5Ch(\)を含む全角文字が混じったパスや .が2つ以上あるパスを正しく分割できないそうです。

      情報源：http://www.geocities.jp/fbasic63/fbn007.htm

参照

拡張子を取り除く

　

'================================================================
'= パス名をドライブ名・フォルダ名・ベースファイル名・拡張子に分ける
'================================================================
#include "Windows.bi"
#include "File.bi"

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

'================================================================
'= 
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    File$ = GetDlgItemText("Edit1")

    SplitPath File$, Drv$, Fld$, Bfn$, Ext$

    Edit1.SetWindowText File$
    Text(5).SetWindowText Drv$
    Text(6).SetWindowText Fld$
    Text(7).SetWindowText Bfn$
    Text(8).SetWindowText Ext$
End Sub

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