AutoHotkey Thread 2 - 暇つぶし2ch

AutoHotkey Thread 2 ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞの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

次ページ