ＡＢからＤＯＳコマンドを

[いとちゃん]

先日、ディレクトリを作ることをおかげさまで教えていただきました。
でも、そのときの関数は「createdirectry」であり、フォルダ作成のみが
可能でした。

copy
や
type

などのDOSコマンドをコンパイルされたＡＢオブジェクトから実施することは
可能なのでしょうか？

達人の皆様ご指導お願いいたします。

例）
testと入力するとtestフォルダをつくり、workにあるすべてのファイルを
コピーする。
createdirectory c:\test
copy c:\work\*.* c:\test

ようなことをしてみたいのです。このときのc:\testは、変数となるため
ＡＢでしたいのです。

[konisi]

調べてみると、cmd.exeやcommand.comのコマンド「/C」を使うと出来そうです。
cmd.exeはWin9x系には入っていないと思うので、OSのバージョン確認を最初にしておくべきかもしれません。

構文: cmd.exe /C コマンド

例1

コード: 全て選択

Dim buf As *Byte,command As *Byte
' ...
wsprintf(buf,"/C %s",command)
Exec "cmd.exe",buf

例2

コード: 全て選択

#console
Dim A$ As String,buffer As *Byte
Print "Input Command"
Input A$
A$="/C "+A$
buffer=StrPtr(A$)
Exec "cmd.exe",buffer
Sleep(-1)

[omasu]

お世話になります。

　バッチファイルを作ってから一括処理するのも面白そうですね

コード: 全て選択

#N88BASIC

Open "TEST.BAT" For Output As #1

Print #1,"MKDIR C:\TEST"
Print #1,"COPY C:\WORK\*.* TEST\"

Close #1

Exec "TEST.BAT"

End

[ゲスト]

せっかくなので、Ｄｏｓを捨ててWinアプリで作りませんか？

ABのメニューからヘルプ（Ｈ）HELP－＞トピックス（Ｔ）でＡｃｔｉｖｅＢａｓｉｃライブラリ（ＨＥＬＰファイル）を開きます。
目次－＞リファレンス－＞Ｗｉｎ３２ＡＩＰ－＞システムサービス－＞ファイル
でファイル操作に関するＡＰＩが見えます。

ファイルをコピーするには、CopyFileを使用します。

ワイルドカードは使えなかったと思います。
その場合はFindFirstFileでファイル一覧を取得し、CopyFileで順次コピーする事になると思います。
面倒なようですけど、ＡＢでＷｉｎアプリを作るには避けて通れない道です。
．Ｎｅｔなら便利なＡＰＩがたくさん有るんですけどね。

[omasu]

お世話になります。

　> せっかくなので、Ｄｏｓを捨ててWinアプリで作りませんか？

そうですねとも、そうでないとも言えます。

　ベーシックを捨ててＣ言語で作りませんか？と同様に
　自由を失ったらつまらないと言えます。

アクティブベーシックにできることは無限の可能性があると感じます。
　

[konisi]

> せっかくなので、Ｄｏｓを捨ててWinアプリで作りませんか？

DosにもWinアプリにも、それぞれ利点と欠点があると思います。
挙げるなら、例えばDosを使う場合は新しくコードを書く量が少なくてすむとか、汎用性が低いとか
Winアプリの場合は汎用性がいいとか、ソースコード量が増える→（いろいろな意味で）資源を無駄にしてしまうとか

都合のいいほうを選ぶのがいいのでは？

[いとちゃん]

意外と簡単なようで、分かりませんでした。
ありがとうございます。


> お世話になります。
> 　バッチファイルを作ってから一括処理するのも面白そうですね
>

コード: 全て選択

#N88BASIC
> 
> Open "TEST.BAT" For Output As #1
> 
> Print #1,"MKDIR C:\TEST"
> Print #1,"COPY C:\WORK\*.* TEST\"
> 
> Close #1
> 
> Exec "TEST.BAT"
> 
> End
> 

[ゲスト２]

ｗｉｎアプリを使ってｄｏｓコマンド機能を実現しましょうというのは言い方はともかく、素直な意見だと思います

「言葉の表現」からするとゲストでなくてもよいのでは

ｄｏｓコマンドの機能を包括し、関数たちをわかりやすいｄｏｓ記述で、ｗｉｎアプリで作成すればいいのかな？

例
　フォルダの作成　　　Ｍｋｄｉｒ（”パス￥フォルダ名”）
　ファイルのコピー　　Ｃｏｐｙ（”パス￥フォルダ￥ファイル名”，”パス￥フォルダ￥”）
　ファイル内容の表示　Ｔｙｐｅ（”フォルダ￥ファイル名”）

理想論でした。

[いとちゃん]

みなさんのおかげで目的達成できました。

ただ、１）ＤＯＳコマンドのコピーをしている際や
２）ＤＥＬをする際に

１）同じファイル名があると聞かれる
２）全消ししようとするといいですかと聞かれる

ことが発生しました。仕方ないですね。


ありがとうございました。スッキリです。

[omasu]

お世話になります。

　ＤＯＳコマンドの基本的なスイッチを使用すれば回避できると思われます。
　コマンドラインの後ろに下記スイッチを指定してください。

> １）同じファイル名があると聞かれる

　　／Ｙ

> ２）全消ししようとするといいですかと聞かれる

　　／Ｑ

[いとちゃん]

OSAMUさんへのコメントです。

このスイッチをつけることで、システムからの質問が消えますか？

やってみます。

ありがとうございます。