キーワード

プロフィール

深沢千尋

Author:深沢千尋
みなさんこんにちは、深沢千尋です。(公式ページ
文字コード【超】研究 改訂第2版NEW!」「すぐわかるPerl」「すぐわかる オブジェクト指向 Perl」の著者です。
ここでは、多くは技術的でないこと、ごくまれに技術的なことをなげやりに書いていきます。
メールは suguwakaruPerl@gmail.com まで。(アットマークは ASCII に)
Twitterはじめました。@query1000です。よろしく~

最新記事

最新コメント

最新トラックバック

月別アーカイブ

カテゴリ

検索フォーム

RSSリンクの表示

リンク

ブロとも申請フォーム

QRコード

QRコード

スポンサーサイト

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

VBA: ディレクトリの存在チェック

WordVBAでプログラミングをしているが、あるディレクトリの存在チェックと言うのはどうするんだろうか。
いろいろやってみたけど、こうするのがいいみたい。
要はchdirしてみてエラーが出るかで判定する。

 'myRoot という文字列型変数にチェックしたいディレクトリがあったとする

 Dim myCurDir As String '現在の作業ディレクトリを取っておく
 myCurDir = CurDir

 On Error Resume Next 'エラーが発生してもプログラムは止まらない
 ChDir (myRoot) 'myRootに作業ディレクトリを移してみる
 If Err <> 0 Then '失敗したら
  msgbox "no path:" + myRoot + vbCr 'メッセージを出す
 End If

 ChDir myCurDir '前いた場所に戻る
 On Error GoTo 0 'エラーが発生したらプログラムが止まるように戻す

Perlだったら

 warn "no path: $dir " unless -d $dir;

だ。

 warn "cannot chdir to $dir because $! " unless -d $dir;

というのもよく使う。

※インデントを簡便にするために先頭に全角空白が入っています。
スポンサーサイト

テーマ : 実用・役に立つ話 - ジャンル : 趣味・実用

<< そろそろ俺がコンビニのおにぎり問題について語ろうか | ホーム | とっさの英会話:外国人上司にセクハラされたら >>


コメント

dir関数ではだめなのか?

例えば、こんな感じ。
if Dir(myRoot, 16)<>"" then msgbox "aruyo" else msgbox "naiyo"

私が、何か要求仕様を読み落としているのか?

ふっふっふ

それだとmyRootが「:love¥」のように、パス名としての要件を満たしていないときにダメなんですよ。

なるほど

そうだったのか。

コメントの投稿


管理者にだけ表示を許可する

 ホーム 


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