「トップページ/VB6/SAMPLE_FILE」の編集履歴(バックアップ)一覧はこちら

トップページ/VB6/SAMPLE_FILE」(2010/12/28 (火) 09:21:24) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

|&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() ---- *

表示オプション

横に並べて表示:
変化行の前後のみ表示: