HSPTV!掲示板

Cﾄﾞﾗｲﾌﾞの中のﾌｧｲﾙ削除をするにはどうしたらよいでしょう？
デリート命令を実行させてもできません。。




ｽﾀｰﾄｱｯﾌﾟ登録/削除
登録はできるのですが、ファイルがあるかどうかを
確認し、あれば削除をする。と言う感じに
しようと思ってるんですが　どうすればよいでしょう？

ヒント:exist

名無しさんありがとうございます。

ですが、

exist dirinfo($10007)+"\\ショートカット名.lnk"
if strsize = -1 {
mes "ファイルが存在しません！"
stop
}else{

delete "\\ショートカット名.lnk"
}

っと言う感じにはできるのですが
なぜか削除されません。

どうすればよいでしょう。。

deleteの方にdirinfo($10007)を含めていないからでは？

回答ありがとうございます。
やってみたのですが、
なぜか、”ファイル名が見つからないか無効です。”
とでますね。。。

そのファイルを消すには権限が足りないとかではないでしょうか？
または使用中とか。

#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"

}
}

こんな感じにしたいのですが
不具合だらけです・・
どうすればよいでしょう？