Question

我的批处理脚本无法从网络源运行，这就是为什么它会将自己的副本复制到桌面并启动新副本，完成后删除副本。

:: Check location
    if "%~dp0" == "%userprofile%\Desktop\" goto:eof
    xcopy /I /Y "%~dpnx0" "%userprofile%\Desktop\" >nul 2>&1
    start "new window" cmd /c %userprofile%\Desktop\batchname.bat
    exit

这很好，我的问题是，％cd％或％0没有更新，仍然像原始脚本一样。显示原始脚本的位置。

如何检查位置，自行复制到桌面并启动它，就像在Windows中双击一样？因为脚本只会失败，如果它是通过共享的原始脚本启动的。

会发生什么：

从网络共享启动脚本XYZ.bat
脚本通知不在桌面上
脚本会自行复制到桌面
脚本从桌面运行副本
脚本结束
从原始脚本
位于桌面上的脚本＆gt;＆gt;细
脚本读取脚本标题的信息：

for /F "tokens=3-8 delims= " %%a in ('findstr /B /C:":: Drive:" "%~dpnx0"') do (
脚本失败，因为％~dpnx0包含原始脚本的路径，因为此时所有网络共享都被删除了

有什么建议吗？ PS：我是新来的，我希望我的英语是可以理解的。干杯

修改感谢您的帮助，路径的东西现在已修复，脚本工作正常，只要我不打开“删除所有现有的驱动器”功能。如果我这样做，会发生以下情况：

以前的步骤：脚本检查位置并将其自身复制到用户桌面，并从那里开始，所有驱动器都被删除，而不是在findstr thingy上失败并出现错误：

[Drive-Mapper：]已移除所有地图驱动器
[Drive-Mapper：]现在映射驱动器：
Das aktuelle Verzeichnisistungültig。 当前文件夹不存在
[Drive-Mapper：]已成功完成＆lt;＆lt;我希望..
DrückenSieeine beliebige Taste。。。 按任意键继续

映射功能：

:mapdrives
    %say% Mapping drives now:
    set errorcount=0
        for /F "tokens=3-8 delims=  " %%a in ('findstr /B /L /C:":: Drive:" "%~f0"') do (
            REM echo Server=%%a User=%%b Letter=%%c drive=%%d nick=%%e
            REM if "%%b" == "all" OR if "%%b" == "%username%" (
            if "%%b" == "all" (
                >nul 2>&1 net use %%c: \\%%a\%%d /persistent:yes
                if errorlevel 1 (%say2% Failed %%c: \\%%a\%%d & set /a errorcount=errorcount+1) else (
                    if "%%e" == "" (
                        :: Rename without nick
                        >nul 2>&1 reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##%%a#%%d /v _LabelFromReg /d "%%d (%%a)" /f
                        %say2% Successfully %%c: \\%%a\%%d
                    ) else (
                        :: Rename with nick
                        >nul 2>&1 reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##%%a#%%d /v _LabelFromReg /d "%%e (%%a)" /f
                        %say2% Successfully %%c: \\%%a\%%d @ %%e
                    )
                )
            )
            if "%%b" == "%username%" (
                >nul 2>&1 net use %%c: \\%%a\%%d /persistent:yes
                if errorlevel 1 (%say2% Failed %%c: \\%%a\%%d & set /a errorcount=errorcount+1) else (
                    if "%%e" == "" (
                        :: Rename without nick
                        >nul 2>&1 reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##%%a#%%d /v _LabelFromReg /d "%%d (%%a)" /f
                        %say2% Successfully %%c: \\%%a\%%d
                    ) else (
                        :: Rename with nick
                        >nul 2>&1 reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##%%a#%%d /v _LabelFromReg /d "%%e (%%a)" /f
                        %say2% Successfully %%c: \\%%a\%%d @ %%e
                    )
                )
            )
        %sf_wait2%
        )
    %sf_wait%
    if "%errorcount%" == "0" (%say% Successfully finished) else (%say% Warning %errorcount% Errors!!)
    %say2% & pause
goto:eof

来自批头标题的脚本信息：

    :: - Force - Deleting drives        (0=No,1=Yes)
        set force_del_drives=1
    :: - Force - Kill Explorer          (0=No,1=Yes)
        set force_kill_explorer=1
::----------------------------------------------------------------------------------------
:: HINT     SERVER      USER    LETER   DRIVE       NICKNAME (IF NOT USING DRIVENAME)
::  Drive:  server  all     H       Home        My Home
::  Drive:  server  all     V       Drive1
::  Drive:  server  all     M       Drive2
::----------------------------------------------------------------------------------------
::  -Drive: server  user    I       DisabledDrive
::  Drive:  server  user    K       Drive4
::  Drive:  server  user    Z       Homes       All Homes

PS：如果我从c：\运行脚本它将自己复制到桌面并运行完美，它也像我说的那样工作，如果我不删除网络驱动器，则原始执行脚本。

有什么想法吗？

Answer 1

@echo off
setlocal

:: Check location
if not exist "%userprofile%\Desktop\" (
    >&2 echo Desktop folder not exist
    exit /b 1
)
if "%~dp0" == "%userprofile%\Desktop\" goto :main
xcopy /I /Y "%~f0" "%userprofile%\Desktop\" >nul 2>&1
start "new window" "cmd /c "%userprofile%\Desktop\%~nx0""
goto :eof

:main
echo %~f0
pause
goto :eof

添加了 Desktop 文件夹的检查，因为它是 Shell文件夹并且可能在那个地方不存在。

逻辑更改为：如果位置是桌面文件夹，则转到主标签。

修改start的命令以处理脚本名称和扩展名没有硬编码名称和扩展名。

批量复制并在新位置

1 个答案: