こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

回答受付中の質問

hspでフォルダを移動させたい

WEBカメラの録画を定期的に他の場所にhspを使って移動させたいと考えてます。
そこで「HSPサンプル蔵」 http://hspnext.com/hspkura/hspkura04.htm
のno.13のサンプルプログラム利用を試みてます。
移動元フォルダはE:\toukyouで、移動元フォルダはF:\osakaです。
記述したpログラム下記のとおりです。

**************ファイルやフォルダを移動する*****************

screen 0,300,150

;移動元フォルダ の指定

gosub *brows
sFile=objItem("E:\\toukyou")

;▼移動先フォルダ
gosub *brows
RFolder=objItem("")
comres oRFolder : ShellApp->"NameSpace" RFolder
oRFolder->"MoveHere" sFile,FOF_SIMPLEPROGRESS

mes "ファイルが移動されました。"

;▼オブジェクト型変数の開放
objFolder = 0
objItems = 0
objItem = 0
oRFolder = 0
ShellApp = 0 ;21
stop
*brows
;***** フォルダ選択ダイアログ表示 *****
objFolder=ShellApp("BrowseForFolder",hwnd,"フォルダの選択",0)

;▼キャンセルの場合
if varuse(objFolder)==0 {
dialog "キャンセルされました。",0,"フォルダの選択" : stop
}
;▼OKの場合は、選択されたパス名を取得する
objItems=objFolder("Items")
objItem=objItems("Item")
return

****************************************

実行してみると下記のエラーが出ます。
Error 15 at line 28 [dirido.as] 計算式でカッコの記述が違います
エラーは;***** フォルダ選択ダイアログ表示 ***** の次行です
objFolder=ShellApp("BrowseForFolder",hwnd,"フォルダの選択",0)
カッコの内容が理解できません。

このサンプルpログラムの全段にC言語と思われる記述がありました。
HSP文上では使えないので取り敢えず無視しました。
#define FOF_ALLOWUNDO $00000040
#define FOF_CONFIRMMOUSE $00000002
#define FOF_FILESONLY $00000080
#define FOF_MULTIDESTFILES $00000001
#define FOF_NOCONFIRMATION $00000010
#define FOF_NOCONFIRMMKDIR $00000200
#define FOF_NOCOPYSECURITYATTRIBS $00000800
#define FOF_NOERRORUI $00000400
#define FOF_RENAMEONCOLLISION $00000008
#define FOF_SILENT $00000004
#define FOF_SIMPLEPROGRESS $00000100
#define FOF_WANTMAPPINGHANDLE $00000020

newcom ShellApp, "Shell.Application"

エラーを消すにはどうしたよいかお教え願います。

投稿日時 - 2017-05-18 10:14:39

QNo.9330644

困ってます

回答(0)

この質問にはまだ回答がついていません。
あなたが最初に回答してみませんか?