Cドライブの中のファイル削除&スタートアップ登録/削除
ミュウ 2013/6/19(Wed) 21:39:14|NO.55091
Cドライブの中のファイル削除をするにはどうしたらよいでしょう?
デリート命令を実行させてもできません。。
スタートアップ登録/削除
登録はできるのですが、ファイルがあるかどうかを
確認し、あれば削除をする。と言う感じに
しようと思ってるんですが どうすればよいでしょう?
名無し 2013/6/19(Wed) 21:44:29|NO.55092
ヒント:exist
ミュウ 2013/6/22(Sat) 21:24:12|NO.55166
名無しさんありがとうございます。
ですが、
exist dirinfo($10007)+"\\ショートカット名.lnk"
if strsize = -1 {
mes "ファイルが存在しません!"
stop
}else{
delete "\\ショートカット名.lnk"
}
っと言う感じにはできるのですが
なぜか削除されません。
どうすればよいでしょう。。
ht. 2013/6/22(Sat) 21:26:23|NO.55167
deleteの方にdirinfo($10007)を含めていないからでは?
ミュウ 2013/6/22(Sat) 21:42:07|NO.55168
回答ありがとうございます。
やってみたのですが、
なぜか、”ファイル名が見つからないか無効です。”
とでますね。。。
名無し 2013/6/22(Sat) 21:49:32|NO.55170
そのファイルを消すには権限が足りないとかではないでしょうか?
または使用中とか。
ミュウ 2013/6/22(Sat) 23:31:21|NO.55172
#define CLSID_ShellLink "{00021401-0000-0000-C000-000000000046}"
#define IID_IShellLinkA "{000214EE-0000-0000-C000-000000000046}"
#define IID_IPersistFile "{0000010b-0000-0000-C000-000000000046}"
#usecom IShellLinkA IID_IShellLinkA CLSID_ShellLink
#comfunc IShellLink_SetPath 20 str
#usecom IPersistFile IID_IPersistFile
#comfunc IPersistFile_Save 6 wstr,int
newcom slink, CLSID_ShellLink
screen 0, 300, 100, 4
IShellLink_SetPath slink, dirinfo(1)+"\\ショーカット名.exe"
IPersistFile_Save slink, dirinfo($10018)+"\\ショーカット名.lnk", 1
delcom slink
wait 100
pos 0 ,20
mes "ショートカットを作成しました。"
wait 200
var_1 = 0
objsize 150, 20
pos 0, 0
chkbox "window起動時に開く", var_1
if ( var_1 = 1 ) {
exist dirinfo($10008)+"\\ショーカット名.lnk"
if strsize = -1 {
pos 0,50
mes "ファイルが存在しません!"
stop
}else{
dialog "ここで見つかりません"
delete "\\ショーカット名.lnk"
}
}
こんな感じにしたいのですが
不具合だらけです・・
どうすればよいでしょう?