「トップページ/VB6/SAMPLE_FILE」の編集履歴(バックアップ)一覧はこちら
追加された行は緑色になります。
削除された行は赤色になります。
|&big(){ファイルに関するサンプルコード}|
#contents()
----
*フルパスファイル名のパス名部分を得る
' IN: fullPathName フルパス名
' OUT: String パス名
Public Function GetPathName(ByVal fullPathName As String) As String
If PathName = "" Then Exit Function
'fullPathNameを'\'で分解する
Dim Files() As String
Files = Split(PathName, "\")
If (UBound(Files) > 0) Then
'最後の要素を削除する
ReDim Preserve Files(UBound(Files) - 1)
'Files()を連結する
GetPathName = Join(Files, "\")
Else
GetPathName = PathName
End If
End Function
|&big(){ファイルに関するサンプルコード}|
#contents()
----
*