中国DOS联盟

@echo off

    call :%* 2>nul || goto setup

goto :eof



:Sub1

rem 移动到父目录

    set "str=%~nx1"



    :loop

        if not exist "..\%str%" goto Next

        set "str=%~n1_New%~x1"

    goto loop



    :Next

        move "%~nx1" "..\%str%"

goto :eof



:Sub2

rem 脱壳

rem 自己完成

goto :eof



:setup

    reg add "hkcr\*\shell\移至父目录\command" /f /t reg_sz /v "" /d "\"%~0\" Sub1 \"%%1\""

    reg add "hkcr\Folder\shell\脱壳\command" /f /t reg_sz /v "" /d "\"%~0\" Sub2 \"%%1\""

goto :eof

Originally posted by pinghu at 2008-2-5 21:48:
It seems that everyone hasn't attached importance to my post yet. I think it's because everyone thinks the difficulty lies in the renaming. Moving files seems easy, but when you test it personally, you will find that when you select several files,...

@echo off

    call :%* 2>nul || goto setup

goto :eof



:Sub1

rem Move to parent directory

    set "str=%~nx1"



    :loop

        if not exist "..\%str%" goto Next

        set "str=%~n1_New%~x1"

    goto loop



    :Next

        move "%~nx1" "..\%str%"

goto :eof



:Sub2

rem Unpack

rem Complete by yourself

goto :eof



:setup

    reg add "hkcr\*\shell\Move to Parent Directory\command" /f /t reg_sz /v "" /d "\"%~0\" Sub1 \"%%1\""

    reg add "hkcr\Folder\shell\Unpack\command" /f /t reg_sz /v "" /d "\"%~0\" Sub2 \"%%1\""

goto :eof

The above is just a demo script. You can install it automatically by double-clicking.
Note that the setup part only adds the "Move to Parent Directory" function on files, and does not process folders. This can be added by yourself.
In addition, the above script does not handle the synchronization problem when multiple files are selected at the same time. It may cause the problem of overwriting with the same name. For this situation, you can appropriately use a temporary file to set an identifier, so that each instance can decide whether to copy according to the situation. For example, you can write the currently processed file name into a certain file, remember to use the overwrite mode, then delay for a period of time, then read the flag file, and the file name corresponding to the obtained one will perform the moving work. After moving, change the flag file, and those that do not match will continue to wait. Continue to query the flag file....
It is really not of much significance to complete it with pure bat. If possible, I suggest you try vbs, which will be much simpler.
In addition, here are a few links that may be useful:
SendTo + Batch Practical Small Tool -- Enhanced Version Send To
Find all bat files in the computer and copy them to the current directory?
How to add right-click menu in batch processing?
SendTo + (VBS Version)

The above * I'm using AllFileSystemObject

The problem has been initially solved, and I can breathe a sigh of relief!
Thanks to the support of 3742668, I learned the usage of sub1, reg add and setting str variables from it
Thank you very much!!

There is a problem when running the script for 3742668. Suppose the file name I selected is 1.txt, and when moving up, a 1.txt file appears in the parent directory. I rebuild the 1.txt file, then move up again, and a 1_New.txt file appears in the parent directory. I create the 1.txt file again, then move up again, and it fails!

To be precise, it entered an infinite loop

I improved the code and solved the infinite loop
@echo off
call :%* 2>nul || goto setup
goto :eof

:Sub1
rem Move to parent directory
set "str=%~nx1"
set /a counter=1
:loop
if not exist "..\%str%" goto Next
set "str=%~n1_New%counter%%~x1"
set /a counter+=1
goto loop

:Next
set /a counter=
move "%~nx1" "..\%str%"
goto :eof

:Sub2
rem Unpack
rem Complete it yourself
goto :eof

:setup
reg add "hkcr\*\shell\Move to Parent Directory\command" /f /t reg_sz /v "" /d "\"%~0\" Sub1 \"%%1\""
reg add "hkcr\Folder\shell\Unpack\command" /f /t reg_sz /v "" /d "\"%~0\" Sub2 \"%%1\""
goto :eof
But what about when it comes to folders?

Adding a right - click also only allows single files to be used

@echo off
call :%* 2>nul || goto setup
goto :eof

:Sub1
rem Move to parent directory
set "str=%~nx1"
set /a counter=1
:loop
if not exist "..\%str%" goto Next
set "str=%~n1_New%counter%%~x1"
set /a counter+=1
goto loop

:Next
set /a counter=
move "%~nx1" "..\%str%"
goto :eof

:Sub2
rem Unpack
setlocal enabledelayedexpansion
set /a counter=1
cd /d "%1"

for /f "delims=" %%i in (*.*) do (
if not exist "..\%%~nxi" goto Next
:loop
set "str=%%~ni_New!counter!%%~xi"
set /a counter+=1
if not exist "..\!str!" goto Next

goto loop

:Next
if "!counter!" equ "1" (move "%%i" "..\%%~nxi") else move "%%i" "..\!str!"
set /a counter=1)
set counter=
goto :eof

:setup
reg add "hkcr\*\shell\Move to Parent Directory\command" /f /t reg_sz /v "" /d "\"%~0\" Sub1 \"%%1\""
reg add "hkcr\directory\shell\Move to Parent Directory\command" /f /t reg_sz /v "" /d "\"%~0\" Sub1 \"%%1\""
reg add "hkcr\directory\shell\Unpack\command" /f /t reg_sz /v "" /d "\"%~0\" Sub2 \"%%1\""
goto :eof
Tested, the function of Sub1 can support all selected files and folders and ensure the reliability of renaming. It's just that Sub2 is still wrong. Hope everyone can help.
Really don't know where the mistake is, I'm really confused when writing this Sub2. Hope everyone can find the error

Found that there are duplicate tags. After correcting, sub2 still cannot be used. Notify me and I don't know what way to open it. Depressed

Why rewrite so much code when there's already sub1? It's still suggested to use VBS or other more rigorous scripts to implement.

Last edited by 3742668 on 2008-2-7 at 01:26 PM ]

I can't do VBS, I only know batch processing. The script upstairs has been tested, and both functions don't work. What's the matter? Where exactly is the mistake in my Sub2?

@echo off

    call :%* 2>nul || goto setup

goto :eof



:Sub1

rem 移动到父目录    

        if not defined str set "str=%~nx1"

        if not exist "..\%~nx1" (move "%str%" "..\%~nx1" && set "str=" && goto :eof)

        call :Sub1 "%~n1_New%~x1"

goto :eof



:Sub2

rem 脱壳

    pushd "%~1"

    for %%i in (*.*) do call :Sub1 "%%~dpnxi"

    popd

    rd "%~1"

goto :eof





:setup

    reg add "hkcr\*\shell\移至父目录\command" /f /t reg_sz /v "" /d "\"%~0\" Sub1 \"%%1\""

    reg add "hkcr\Folder\shell\脱壳\command" /f /t reg_sz /v "" /d "\"%~0\" Sub2 \"%%1\""

goto :eof

Sorry, because there is no test environment, there are many errors in the code on floor 25, including logical errors and grammatical errors.
Hehe, it's been too long since I wrote it, my hands are rusty. Try the following:

@echo off

    call :%* 2>nul || goto setup

goto :eof



:Sub1

rem Move to the parent directory    

        if not defined str set "str=%~nx1"

        if not exist "..\%~nx1" (move "%str%" "..\%~nx1" && set "str=" && goto :eof)

        call :Sub1 "%~n1_New%~x1"

goto :eof



:Sub2

rem Unpack

    pushd "%~1"

    for %%i in (*.*) do call :Sub1 "%%~dpnxi"

    popd

    rd "%~1"

goto :eof





:setup

    reg add "hkcr\*\shell\Move to Parent Directory\command" /f /t reg_sz /v "" /d "\"%~0\" Sub1 \"%%1\""

    reg add "hkcr\Folder\shell\Unpack\command" /f /t reg_sz /v "" /d "\"%~0\" Sub2 \"%%1\""

goto :eof

It is recommended to select the operation targets in batches at one time for testing and see if there will be synchronization problems. In addition, you can add the function of writing logs after move.

After several trial attempts, it was found that the "Move to parent directory" function supports all files and folders. The "Unpack" function can only be applied to the files in the selected folder, and cannot be applied to the folders in the selected folder.

The above code plus
reg add "hkcr\Folder\shell\Move to Parent Directory\command" /f /t reg_sz /v "" /d "\"%~0\" Sub2 \"%%1\""
can move the directory

Originally posted by pinghu at 2008-2-7 17:13:
After several trials, it was found that the "Move to parent directory" function can support all files and folders. The "Unpack" function can only be applied to the files in the selected folder and cannot be applied to the folders in the selected folder.

I only take charge of giving you hints and frameworks. The specific start and end still need to be written by yourself according to your own ideas. For example, as mentioned above, it is suggested to add a log function and try operations with extremely large quantities.
In addition, if you want the unpack function to be applied to folders, you can try to solve it with dir /b by yourself.

It is suggested that you rewrite it from the beginning to the end according to your own ideas. Only in this way can you gain something. This is also the significance of the forum.