AutoHotkey Thread 2at SOFTWAREAutoHotkey Thread 2 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト517:名無しさん＠お腹いっぱい。 06/02/18 21:53:53 JQ9unHlx0 なまずの人ってここも見てるよね 2バイト文字対策の使わせてもらいました どうもです 518:名無しさん＠お腹いっぱい。 06/02/18 22:01:48 wweffrMN0 アレの使い方がまだ分かんにゃい… 519:名無しさん＠お腹いっぱい。 06/02/18 22:01:56 JQ9unHlx0 あとせっかく作ったから晒しとく。動けばいいって感じで作ってるから美しくないけど。 ディレクトリをドロップしたら中のファイルを一つ上の階層にコピーしてディレクトリを消すスクリプト if 1 = { msgbox,ディレクトリをドロップしたら中のファイルを一つ上の階層にコピーしてディレクトリを消します`n何か残ったらディレクトリを消しません exitapp } MsgBox , 4355,,移動するファイルに同名のファイルが存在した場合上書きしますか？ IfMsgBox, Cancel, exitapp IfMsgBox, yes, SetEnv, oflg , 1 IfMsgBox, no, SetEnv, oflg , 0 Loop , %0% { src:=%A_Index% FileGetAttrib, att , %src% if att<>D Continue MBS_SplitPath( src , outFileName1, outDir1, outExtension1, outNameNoExt1, outDrive1 ) FileDelete, %src%\Thumbs.db if outDir1 = %OutDrive1% FileMove, %src%, %outDir1%\ , %oflg% else FileMove, %src%, %outDir1% , %oflg% Loop, %src%\* , 2 { MBS_SplitPath( A_LoopFileFullPath , outFileName2, outDir2, outExtension2, outNameNoExt2, outDrive2 ) FileMoveDir,%A_LoopFileFullPath% ,%outDir1%\%outFileName2% ,%oflg% FileRemoveDir, %A_LoopFileFullPath% } FileRemoveDir, %src% } exitapp 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch