Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


5226 / 13644 ツリー ←次へ | 前へ→

【51985】デスクトップに在る特定のファイルを削除するには? ロン 07/10/14(日) 20:23 質問[未読]
【51987】Re:デスクトップに在る特定のファイルを削... りん 07/10/14(日) 20:29 発言[未読]
【51988】Re:デスクトップに在る特定のファイルを削... ぱっせんじゃー 07/10/14(日) 20:34 発言[未読]
【51989】Re:デスクトップに在る特定のファイルを削... ロン 07/10/14(日) 21:36 お礼[未読]
【52029】Re:デスクトップに在る特定のファイルを削... ロン 07/10/16(火) 22:09 お礼[未読]

【51985】デスクトップに在る特定のファイルを削除...
質問  ロン  - 07/10/14(日) 20:23 -

引用なし
パスワード
   職場はLANを構築している環境です。
LANサーバー上のプログラムを作業PCから起動し、
作業PCのデスクトップに生成されている
特定のファイル『test.xls』を削除したいのですが
マクロでどのようにすれば良いのか分かりません。
パスさえ取得できれば可能だと思うのですが
ユーザーが可変であるため
どのようにすれば良いのか分かりません。
何かよい方法はありますでしょうか?
宜しくお願いします。

【51987】Re:デスクトップに在る特定のファイルを...
発言  りん E-MAIL  - 07/10/14(日) 20:29 -

引用なし
パスワード
   ロン さん、こんばんわ。

>作業PCのデスクトップに生成されている
>特定のファイル『test.xls』を削除したいのですが
>マクロでどのようにすれば良いのか分かりません。

デスクトップの参照方法は目安箱(FAQ集)にあります。
htt p://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=62;id=FAQ

【51988】Re:デスクトップに在る特定のファイルを...
発言  ぱっせんじゃー  - 07/10/14(日) 20:34 -

引用なし
パスワード
   レスが付いてますが、そのままアップします。

自PC:WinXP、エクセル2002、セキュリテイ:中
LAN上の別のPC:同じくWinXP、エクセル2002、セキュリテイ:中
LAN上の別のPCに↓のコードを記述したブックを置き、
自PCからそのブックを起動し、自PCのデスクトップに
"test.xls"があるか否かチェックできました。

Dim fol As String
Dim f As String
 fol = CreateObject("WScript.Shell").SpecialFolders("Desktop")
 f = fol & "\test.xls"
 If Dir(f) <> "" Then
   MsgBox f & "は存在します。"
 Else
   MsgBox f & "は存在しません。"
 End If

環境に依存する可能性は否定できません。

【51989】Re:デスクトップに在る特定のファイルを...
お礼  ロン  - 07/10/14(日) 21:36 -

引用なし
パスワード
   りん 様
ぱっせんじゃー 様

いい感じで動作出来そうです。
次回出勤しましたら直ぐに検証させていただきます。
どうもありがとうございました。
またこれで1歩仕事が捗りそうです!


りん 様

先日はありがとうございます。
教えていただいたコードを組み込み
日々順調に使えています♪
今作っているツールは別のものですが
皆に便利ですねって言って貰えるのが
楽しみになっています。
ただ、重要ポイントは毎回こちらのサイトさんに
お助けしてもらっていますがね^^;

【52029】Re:デスクトップに在る特定のファイルを...
お礼  ロン  - 07/10/16(火) 22:09 -

引用なし
パスワード
   りん 様
ぱっせんじゃー 様

動作出来ました。
どうもありがとうございました。

5226 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free