FOF_SILENT( $0004 )を指定したにもかかわらず、削除確認のダイアログが表示されます。
環境はWindows7 Ultimateですが、環境依存の問題なのか、スクリプトが間違っているのか
どなたか教えていただけないでしょうか。
//AAAというフォルダを作って ゴミ箱に移動します。 #uselib "shell32" #func SHFileOperation "SHFileOperationA" int #define FOF_SILENT $0004 #define FOF_ALLOWUNDO $0040 Dir = dir_cur + "\\AAA" mkdir Dir dim SHFILEOPSTRUCT, 8 SHFILEOPSTRUCT( 0 ) = hWnd SHFILEOPSTRUCT( 1 ) = $0003 SHFILEOPSTRUCT( 2 ) = varptr( Dir ) SHFILEOPSTRUCT( 3 ) = 0 SHFILEOPSTRUCT( 4 ) = FOF_SILENT|FOF_ALLOWUNDO SHFileOperation varptr( SHFILEOPSTRUCT )