Path: ccsf.homeunix.org!ccsf.homeunix.org!news1.wakwak.com!nf1.xephion.ne.jp!onion.ish.org!news.daionet.gr.jp!news.yamada.gr.jp!densogw!news.tns.ne.jp!not-for-mail
From: =?iso-2022-jp?B?GyRCQTBCPGJDMGxPOhsoQg==?= <shin16june@yahoo.co.jp>
Newsgroups: fj.comp.applications.excel
Subject: =?iso-2022-jp?B?GyRCJVUlISUkJWtMPiRLJW8lJCVrJUklKyE8JUkkLDtIJCgkSiQkGyhC?=
Date: Fri, 23 Apr 2004 08:32:44 +0900
Organization: Toyota Group Internet Service.,Nagoya,Aichi,Japan
Lines: 23
Message-ID: <c69mm5$6od$1@localhost.localdomain>
NNTP-Posting-Host: 10.188.104.36
Mime-Version: 1.0
Content-Type: text/plain;
	charset="iso-2022-jp"
Content-Transfer-Encoding: 7bit
X-Trace: localhost.localdomain 1082678789 6925 10.188.104.36 (23 Apr 2004 00:06:29 GMT)
X-Complaints-To: usenet@news.tns.ne.jp
NNTP-Posting-Date: 23 Apr 2004 00:06:29 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4927.1200
X-MIMEOLE: Produced By Microsoft MimeOLE V5.50.4927.1200
Xref: ccsf.homeunix.org fj.comp.applications.excel:171

挙動が理解できませんのでどちら様かお教えください。

d:\tempフォルダにファイルabc20040423.csvが一つあります。
これをFileSystemObjectを使って別のフォルダにコピーしようとして参照設定の
MicrosoftScriptingRuntimeをセットした上で以下のマクロを記述しました。

Sub File_Copy()
    Dim myFSO As New FileSystemObject
    myFSO.CopyFile "d:\temp\abc*.csv", "d:\vba_test\test_file.txt"
End Sub

しかし、実行すると「パスが見つかりません」と怒られます。
ＶＢＡのヘルプでFileSystemObjectのCopyFileの説明を見るとワイルドカードが使え
るように書いてあります。
試しにabc20040423.csvのようにファイル名をフルで記述すると思惑通り実行されま
す。
他に参照設定が必要なのでしょうか。

私の環境
Windows 2000 Pro SR4   Excel 2000 SP3

前村　眞一郎