Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5228 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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サーバー上のプログラムを作業ＰＣから起動し、
作業ＰＣのデスクトップに生成されている
特定のファイル『test.xls』を削除したいのですが
マクロでどのようにすれば良いのか分かりません。
パスさえ取得できれば可能だと思うのですが
ユーザーが可変であるため
どのようにすれば良いのか分かりません。
何かよい方法はありますでしょうか？
宜しくお願いします。
【51987】Re:デスクトップに在る特定のファイルを...
発言  りん E-MAIL  - 07/10/14(日) 20:29 -
引用なし
パスワード
   ロン さん、こんばんわ。

>作業ＰＣのデスクトップに生成されている
>特定のファイル『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 -
引用なし
パスワード
   りん　様
ぱっせんじゃー　様

動作出来ました。
どうもありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5228 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free