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


HSPTV!掲示板


未解決 解決 停止 削除要請

2012
0114
フロージ (投稿者削除)7未解決


フロージ

リンク

2012/1/14(Sat) 22:24:27|NO.44273

この記事は投稿者により削除されました。
2012/1/15(Sun) 05:15:07



この記事に返信する


hexa.hemi

リンク

2012/1/15(Sun) 00:15:50|NO.44280

こうするとできそうです。

newcom WshShell, "WScript.Shell" path = "%HOMEDRIVE%\\test" mes WshShell("ExpandEnvironmentStrings", path) delcom WshShell
参考:http://hspnext.com/hspkura/hspkura11.htm#contents02



フロージ

リンク

2012/1/15(Sun) 00:38:13|NO.44281

newcom WshShell, "WScript.Shell"
path = "%HOMEDRIVE%\\test"
mes WshShell("ExpandEnvironmentStrings", path)
delcom WshShell
;***** ファイル・フォルダの削除 (delfolder.hsp) *****
#module
#define FO_DELETE $00000003
#uselib "shell32.DLL"
#func SHFileOperation "SHFileOperation" int

#deffunc delfolder str prm1,int prm2
sdim sFile,260
sFile = prm1 : if strlen(sFile)==0 : sdim sFile,0 : return -1
nOption = prm2 : if nOption<=0 : nOption=$100

;SHFILEOPSTRUCT構造体
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

delfolder "%HOMEDRIVE%\\test",$4|$10
stop

情報有難うございます
このような記述をしましたがやはり削除できませんでした



てれてれ

リンク

2012/1/15(Sun) 00:46:26|NO.44282

人から聞いたことをそのまま使うのではなく理解しようとして下さい。
hexa.hemi様が挙げられたスクリプトをよく見て下さい。
そうすればどこが問題なのか理解出来るかと思います。



フロージ

リンク

2012/1/15(Sun) 01:08:43|NO.44283

申し訳ございません
全くの初心者でまだ扱いがよく分からない為そのまま使用してしまいました



フロージ

リンク

2012/1/15(Sun) 03:33:01|NO.44285

その後も色々調べてみたのですがよく分かりませんでした



check

リンク

2012/1/15(Sun) 05:12:43|NO.44286

ではあきらめてください。
まずは他に学ぶことがあるんじゃないか?



てれてれ

リンク

2012/1/15(Sun) 10:05:18|NO.44288

hexa.hemi様が挙げられたスクリプトは、

>mes WshShell("ExpandEnvironmentStrings", path)
↑の行で、

>"%HOMEDRIVE%\\test"
↑の文字列を、

>"C:\\test"
↑の文字列に置き換えて、[mes]で表示している訳です。

つまり、
>WshShell("ExpandEnvironmentStrings", path)
↑を呼び出すことでフロージ様が求めているパスが取得出来る訳です。



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