🚀 go-pugleaf

　はじめまして、緑河@Melorです。

Akiya wrote:
> ＶＢで、以下のようなＤＯＳコマンドを使用したいのですが、
> その方法はあるのでしょうか？

　Shell関数を使い、"command.com /c cd work" などで
　OKだと思います。

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

　上記と同じ方法でいいと思います。

-----
VB & All Programars Site.
Melodious Impression.
http://www.netlaputa.ne.jp/~t-midori/
by Tomoyuki Midorikawa  t-midori@yk.netlaputa.ne.jp

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

Tomoyuki Midorikawa <t-midori@yk.netlaputa.ne.jp> wrote in article 
> Akiya wrote:
> > ＶＢで、以下のようなＤＯＳコマンドを使用したいのですが、
> > その方法はあるのでしょうか？
> 
> 　Shell関数を使い、"command.com /c cd work" などで
> 　OKだと思います。
これはＮＧだと思いますよ。
command.com 内で発行したコマンドの結果は、ファイル等に保存しなければ
command.com の終了(消滅)と共に消えてしまいます。

-- 
よろずや kin-chan

長久保 wrote:
> 
> > 　Shell関数を使い、"command.com /c cd work" などで
> > 　OKだと思います。
> これはＮＧだと思いますよ。
> command.com 内で発行したコマンドの結果は、ファイル等に保存しなければ
> command.com の終了(消滅)と共に消えてしまいます。

　結果を保存する必要があるのならすればいい。
　方法に問題があるとは思えませんが。
　copyコマンドで結果がいるとは思えないし。

　ちなみに、DOSコマンドを知ってるという前提で書いてます。

-----
VB & All Programars Site.
Melodious Impression.
http://www.netlaputa.ne.jp/~t-midori/
by Tomoyuki Midorikawa  t-midori@yk.netlaputa.ne.jp

Tomoyuki Midorikawa <t-midori@yk.netlaputa.ne.jp> wrote in article
<34C1C27B.77E6E82E@yk.netlaputa.ne.jp>...
> 長久保 wrote:
> > 
> > > 　Shell関数を使い、"command.com /c cd work" などで
> > > 　OKだと思います。
> > これはＮＧだと思いますよ。
> > command.com 内で発行したコマンドの結果は、ファイル等に保存しなければ
> > command.com の終了(消滅)と共に消えてしまいます。
> 
> 　結果を保存する必要があるのならすればいい。
> 　方法に問題があるとは思えませんが。
> 　copyコマンドで結果がいるとは思えないし。
> 
> 　ちなみに、DOSコマンドを知ってるという前提で書いてます。

いえいえ、別に Tomoyuki Midorikawa さんと議論するつもりはないので(^^;
ただ、元記事の人が誤解するといけないと思ったもので、はい。

C:\>CD \WORK
C:\WORK>COPY FILEA.DAT FILEB.DAT    'CD の結果を利用している
            |
            V
RetVal = Shell("command.com /c CD \WORK")
RetVal = Shell("command.com /c COPY FILEA.DAT FILEB.DAT")
                                    'CD の結果は利用できない

プログラムなんて、やり方はいろいろありますけどね(^^)
-- 
よろずや kin-chan


> 
> -----
> VB & All Programars Site.
> Melodious Impression.
> http://www.netlaputa.ne.jp/~t-midori/
> by Tomoyuki Midorikawa  t-midori@yk.netlaputa.ne.jp
> 
> 

> C:\>CD \WORK
> C:\WORK>COPY FILEA.DAT FILEB.DAT    'CD の結果を利用している
>             |
>             V
> RetVal = Shell("command.com /c CD \WORK")
> RetVal = Shell("command.com /c COPY FILEA.DAT FILEB.DAT")
>                                     'CD の結果は利用できない
> 
> プログラムなんて、やり方はいろいろありますけどね(^^)

熊川と申します。
１つ気になったのですが、ＶＢからＳｈｅｌｌでCommand.Comを２回
動かすと、バラバラのＤＯＳ枠が表示されますよね。つまるところ
１回目のＳｈｅｌｌでＣＤしても、２回目のＳｈｅｌｌコマンドでは
デフォルトのディレクトリに移動してしまうので意味がないと思いま
す。バッチファイルを作成して、一括で処理するほうがいいと思いま
す。

Masaru Kumakawa <hmn1@ny.airnet.ne.jp> wrote in article
<34C2A28B.1D3FE362@ny.airnet.ne.jp>...

> 熊川と申します。
> １つ気になったのですが、ＶＢからＳｈｅｌｌでCommand.Comを２回
> 動かすと、バラバラのＤＯＳ枠が表示されますよね。つまるところ
> １回目のＳｈｅｌｌでＣＤしても、２回目のＳｈｅｌｌコマンドでは
> デフォルトのディレクトリに移動してしまうので意味がないと思いま
> す。バッチファイルを作成して、一括で処理するほうがいいと思いま
> す。
そういうことです。
References をたどれば判ると思いますが、この枝分かれしたスレッドは、
>長久保 wrote:
>> 
>>> 　Shell関数を使い、"command.com /c cd work" などで
>>> 　OKだと思います。
>>これはＮＧだと思いますよ。
から続いています。
-- 
よろずや kin-chan