エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント1件
- 注目コメント
- 新着コメント
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
ファイルやフォルダの有無、他のユーザーの使用状況を調べたい
Sub Test() 'ディレクトリ存在チェック MsgBox IsDir("C:\") '排他状態 MsgBox IsNoOpen("C:\test.xls")... Sub Test() 'ディレクトリ存在チェック MsgBox IsDir("C:\") '排他状態 MsgBox IsNoOpen("C:\test.xls") End Sub 'ディレクトリ存在チェック 'TRUE=存在している Public Function IsDir(ByVal inDirName As String) As Boolean Dim fsoObj As Object Dim fsoDir As Object On Error Resume Next Set fsoObj = CreateObject("Scripting.FileSystemObject") Set fsoDir = fsoObj.GetFolder(inDirName) IsDir = Not (fsoDir Is Nothing) Set fsoDir = Nothing Set fsoObj
2006/10/31 リンク