Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30017 / 76732

←次へ　｜　前へ→


	【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

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

0 hits

▼

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