🚀 go-pugleaf

Akiya <t-aki@104.net> wrote in article <69oa4i$t1s@News.highway.or.jp>...
> ＶＢで、以下のようなＤＯＳコマンドを使用したいのですが、
> その方法はあるのでしょうか？
> 
> 例）
> Ｃ：
ChDrive drive
ChDrive "C:"

> ＣＤ  ￥ＷＯＲＫ
ChDir path
ChDir "\WORK"

> ＣＯＰＹ  ＦＩＬＥＡ．ＤＡＴ  ＦＩＬＥＢ．ＤＡＴ
FileCopy source, destination
FileCopy "FILEA.DAT", "FILEB.DAT"

> ＤＩＲ  ＞ＤＩＲＴＥＳＴ．ＤＡＴ
' C:\ 内のフォルダの名前を表示します。
MyPath = "c:\"	' パスを設定します。
MyName = Dir(MyPath, vbDirectory)	' 最初のフォルダ名を返します。
Do While MyName <> ""	' ループを開始します。
   ' 現在のフォルダと親フォルダは無視します。
   If MyName <> "." And MyName <> ".." Then
      ' ビット単位の比較を行い、MyName がフォルダかどうかを調べます。
      If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
         Debug.Print MyName  ' フォルダであれば、それを表示します。
      End If
   End If
   MyName = Dir              ' 次のフォルダ名を返します。
Loop
(以上ヘルプファイルからの引用です)

または、Shell関数を使う。

> また、ＶＢからＢＡＴファイルを起動することはできるのでしょうか。
Shell関数を使う。

-- 
よろずや kin-chan