プログラミング

プログラミングに関するフォーラムです。VBAは除きます。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
Re: 0bjfsoとMsgBoxの組み合わせ の hisayanxp さんへ
投稿日時: 17/04/30 09:22:22
投稿者: simple

「0bjfsoとMsgBoxの組み合わせ 」
http://www.moug.net/faq/viewtopic.php?t=75622
のhisayanxp さんへ。
 
これからはVBAでやってみます、
で閉じられてしまいました。中途半端な気がします。
 
コードの提案がどうだったのかコメントして下さい。
 
ステップ実行してみてくださいと申し上げましたが、それは実行されたのですか?
 
また、
> ところが間違いなく下記のパス(パスはコピーしました)の通りなのですが、
> ”そのファイルは存在しません”と表示されます。
のところは、結局、どういうことだったのですか?
説明をお願いします。
 
回答者からの指摘にお応えいただきたいと思います。
中途半端で切り上げてスキップしていくと、
お互いにとって良くないと思いますよ。

投稿日時: 17/04/30 09:40:44
投稿者: simple

そうそう、前のスレッドで、
>VBSはファイル管理をしたいからです。
とありました。
VBAからも全く同様に、 file system objectが使えますよ。
VBAでできないからVBSで、と言うわけではないと思います。
 
前スレッドで、
Set objfso = Wscript.CreateObject("Scripting.FileSystemObject")
とされているところを
Set objfso = CreateObject("Scripting.FileSystemObject")
とするだけです。
fsoを使った操作部分は変更の必要はありません。

投稿日時: 17/05/08 23:33:33
投稿者: simple

http://www.moug.net/faq/viewtopic.php?t=75622
において、 投稿日時: 17/04/29 22:00:29 に
> ところが間違いなく下記のパス(パスはコピーしました)の通りなのですが、
> ”そのファイルは存在しません”と表示されます。
>
> Option Explicit
> Dim objfso
> Dim ans
>
> Set objfso = Wscript.CreateObject("Scripting.FileSystemObject")
> If objfso.FileExists("C:\Users\ayapc\Documents\AAA\bbb.txt") Then
> ans = MsgBox("削除しますか", vbYesNo)
(以下略)
と書かれていますよね。
 
何の説明もなく閉じたので、
> 結局、どういうことだったのですか?
> 説明をお願いします。
と書いたわけです。
 
VBAのスレッドに書込がありました。
http://www.moug.net/faq/viewtopic.php?t=75659
 
今までの論点は、パス名が正しいのに、削除の処理がされずに、
> ”そのファイルは存在しません”と表示されます。
という点だったはずです。
それが、
>VBAで作ったものをVBSに置き換えて成功しました。
と言う点も不思議な話です。
 
発言からすると、どうやらパス名が間違っていただけのようですね。
それなら、例えば、以下のように書かれればよいだけだと思います。
 
  If objfso.FileExists("C:\Users\ayapc\Documents\AAA\bbb.txt") Then
  と書きましたが、
  パス名が間違っていました。
  "C:\Users\pc1\Documents\AAA\bbb.txt"
  が正しかったのです。
  ここを修正したところ、正しく削除できました。
  失礼しました。
 
間違いは誰にでもあるわけですから、その旨書いていただればよいだけです。
そこを黙って説明しようとしないから、まったく訳がわかりません。
出来ない出来ないと大騒ぎされたわけですから、きちんとした説明が必要ですよね。
 
何を問題にしていたかすらわからなくなっているんでしょうね。
これで終わりにします。