忍者ブログ
  ちゃんとカテゴリ分けされておりませんので、 記事をお探しならブログ内検索が便利です。 ご活用くださいませー+.(≧∀≦)゚+.゚
Admin*Write*Comment
[626]  [624]  [623]  [622]  [621]  [620]  [619]  [618]  [617]  [616]  [615

×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。




ちょっとだけ苦労したのでメモります。

参考サイト:
http://www.ne.jp/asahi/hishidama/home/tech/excel/vba/tips.html#MkDirs

------------------------------------------------------------

Sub MkDirs(ByRef path As String)
    '存在していたら何もしない
    If Dir(path, vbDirectory) <> "" Then Exit Sub

    Dim n As Integer
    n = InStrRev(path, "\")
    If n >= 0 Then
        Call MkDirs(Left$(path, n - 1))
    End If

    If Dir(path, vbDirectory) <> "" Then Exit Sub

    MkDir path
End Sub

------------------------------------------------------------

私の環境ではそのままの使用では思った動作をしてくれなかったので赤文字を追加しました。
この赤文字は青文字のコピーです。



拍手

PR



COMMENT
Name
Title
Color
Mail
URL
Text
Pass   Vodafone絵文字 i-mode絵文字 Ezweb絵文字
secret

TRACKBACK
TrackbackURL:
ブログ内検索
カレンダー
08 2017/09 10
S M T W T F S
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
カウンター
最新コメント
最新トラックバック
プロフィール
+ハンドル+
y_ayamori(purple)
+職業+
IT系エンジニア
+すまい+
さいたま
バーコード
ブログパーツ
アバター
Copyright © アナログを愛するデジタル生活館 All Rights Reserved.
photo by Kun material by Atelier Black/White Template by Kaie
忍者ブログ [PR]