2017年10月 / 09月≪ 12345678910111213141516171819202122232425262728293031≫11月

インフォメーション

FC2ブログで画像等を一括アップロードするソフトを地味に配布してます。
FC2ブログ用ファイルアップロードの最新版はこちら
(ベクター)FC2ブログ用ファイルアップロード

--.--.-- (--)

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。


 |  --:--  |  スポンサー広告  |  Top↑

2008.04.30 (Wed)

ファイルパスをつなげる関数&可変数引数

C#.NETで言う「System.IO.Path.Combine」みたいなファイルパスをつなげる関数を
VBAでも使いたいなと思って作りました。


Function Combine(ParamArray paths()) As String
Dim i As Integer
Dim path As String
Dim result As String
For i = LBound(paths) To UBound(paths)
path = CStr(paths(i))
If i = LBound(paths) Then
result = path
Else
If Right(result, 1) = "\" Then result = Left(result, Len(result) - 1)
If Left(path, 1) = "\" Then path = Mid(path, 2)
result = result & "\" & path
End If
Next

Combine = result
End Function


VBAで引数の数を可変数にする場合は「ParamArray」を使うそうです。
ちなみにParamArrayを使う場合、型はVariant型じゃないとだめみたい。

○ Function Combine(ParamArray paths() As Variant) As String
× Function Combine(ParamArray paths() As String) As String <-コンパイルエラー


使う場合は
path = Combine("aaa\","bbb")
path = Combine("aaa", "bbb\", "\ccc\")
こんな感じで。


 |  10:19  |  VBA  |  トラックバック(0)  |  コメント(0)  |  Top↑

Comment

コメントを投稿する

URL
コメント
パス  編集・削除するのに必要
非公開  管理者だけにコメントを表示
 

Trackback

この記事のトラックバックURL

この記事へのトラックバック

 | BLOGTOP | 
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。