掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
imageに表示してある画像を保存することは可能ですか？ (ID:103138)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
済みません。説明不足でした。 たとえば、"C:\Program Files" というディレクトリが存在するかどうかは s = Dir("C:\Program Files\NUL") '(1) s = Dir("C:\Program Files" , vbDirectory) '(2) s = Dir("C:\Program Files\", vbDirectory) '(3) などで判定できます。存在している場合は s ≠ "" です。 ただし、システム属性や不可視属性が付いたディレクトリの場合、 (2) は空文字列になってしまう事に注意してください。追加の属性がある場合は、 s = Dir("C:\Program Files" , vbDirectory Or vbHidden) のように、第二引数にそれらを追加指定すれば、正しく列挙されるようになります。 なお、NUL を使って (1) のように指定した場合には、属性指定をせずとも ディレクトリの存在確認を行えます。 または、 On Error Resume Next a = GetAttr("C:\Program Files") If Err.Number <> 0 Then MsgBox "存在しないか、またはアクセスできません。" ElseIf CBool(a And vbDirectory) Then MsgBox "これはディレクトリです。" Else MsgBox "これはファイルです。" End If On Error GoTo 0 のように、GetAttr 関数の戻り値に vbDirectory(=&H10) の ビットフラグが付与されているかどうかで判定することもできます。 このほか、FileSystemObject の FolderExists メソッドも使えます。 If CreateObject("Scripting.FileSystemObject").FolderExists(fldr) Then
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.