HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0125
makeモジュールの使い方について2解決


make

リンク

2008/1/25(Fri) 21:06:56|NO.13266

さくらさんのstdlibモジュールを使ってデスクトップ\\test01にある
test001フォルダ削除を試してみましたがうまくいきません
どこが間違っているのかよくわかりません
ご指導お願いします
(これがわかれば以前質問したモジュールによるレジストリのセクション削除も
解決すると思います)

#include "sysval.as"
#include "gblconst.as"
#include "winapi32.as"

#module
#uselib "SHLWAPI.DLL"
#func global PathIsDirectory "PathIsDirectoryA" int
#func global PathFileExists "PathFileExistsA" int
#func global PathIsRoot "PathIsRootA" int
#func global PathIsUNC "PathIsUNCA" int
#func global PathIsUNCServer "PathIsUNCServerA" int
#func global PathIsUNCServerShare "PathIsUNCServerShareA" int
#func global PathIsURL "PathIsURLA" int

#deffunc delfolder str prm1,int prm2

sdim sFile,MAX_PATH
sFile = prm1 : if strlen(sFile)==0 : sdim sFile,0 : return -1
nOption = prm2 : if nOption<=0 : nOption=$100

dim pfoStruct,8
pfoStruct(0) = hwnd
pfoStruct(1) = FO_DELETE
pfoStruct(2) = varptr(sFile)
pfoStruct(3) = 0
pfoStruct(4) = nOption
pfoStruct(5) = -1
pfoStruct(6) = 0
pfoStruct(7) = 0
SHFileOperation varptr(pfoStruct)

foStruct=stat
if foStruct!0 {
dialog "ファイル・フォルダの削除に失敗しました。",0,"エラー"
dim pfoStruct,0 : sdim sFile,0
return -1
}
dim pfoStruct,0
return foStruct

#global

chdir "C:\\Windows\\デスクトップ\\test01"
delfolder "C:\\Windows\\デスクトップ\\test001"
dialog "ok"



この記事に返信する


a

リンク

2008/1/25(Fri) 21:55:15|NO.13268

どうやら、カレントフォルダを削除しようとするからエラーになるみたい。
chdirのパスを変えて試してみてはどう?



make

リンク

2008/1/26(Sat) 06:10:00|NO.13278

返答ありがとうございます
エラーの内容を読んでいじったら解決しました



ONION software Copyright 1997-2021(c) All rights reserved.