11/08/13 18:07:34.54
えーと、705です。
社のPCにあるので、コード全文はのせられないん（持ち出せない）だけど、ファイルを検索する部分は
URLﾘﾝｸ(md1000.cocolog-nifty.com)
のコードを流用しています。
ファイルが見つかったら、のところで、
For Each temp2 In f.Files
Ext = LCase(FS.GetExtensionName(FoundFile))
Next
アクセス権にも問題はありません。
11/08/13 18:07:34.54
えーと、705です。
社のPCにあるので、コード全文はのせられないん（持ち出せない）だけど、ファイルを検索する部分は
URLﾘﾝｸ(md1000.cocolog-nifty.com)
のコードを流用しています。
ファイルが見つかったら、のところで、
For Each temp2 In f.Files
Ext = LCase(FS.GetExtensionName(FoundFile))
Next
アクセス権にも問題はありません。