>>576
すいません、なんせプログラムは最近始めたばかりなので、本は「十
日間のエクセルＶＢＡ」を使っています。一応ＶＢでテキストファイ
ルのコピーを勉強しました。が、以下の「fso」どんな役割があるの
でしょうか。「Dim」は定義付けでした？

Private Sub Command1_Click()

Dim fso

Source = "c:\r.txt"
destination = "c:\r2.txt"
Set fso = CreateObject("scripting.filesystemobject")
Call fso.copyfile(Source, destination)

End Sub

ここから発展して、例えばＣドライブのファイルをランダムに選択して、
コピーするという命令などはできるのでしょうか。よければ、教えてくだ
さい。