[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

10元求个简单命令:想指定目录写入文件夹配置文件

有个目录A,目录A的位置已知,假设为 %A%
现在需要向目录A下的所有文件夹写入这段东西
  1. [.ShellClassInfo]
  2. IconResource=#.ico
  3. [ViewState]
  4. Mode=
  5. Vid=
  6. FolderType=Pictures
复制代码
到desktop.ini
并把#.ico和desktop.ini添加attrib +s +h

回复 1# sykIII


test.bat
  1. @echo off
  2. REM 设置待处理的文件夹
  3. set "DestFolder=D:\Test"
  4. cd /d "%DestFolder%"
  5. for /f "delims=:" %%i in ('findstr /n "^:DynamicScript$" "%~f0"') do (
  6.     more +%%i "%~f0" > "%temp%\desktop.ini"
  7. )
  8. for /f "delims=" %%i in ('dir /b /s /ad') do (
  9.     copy /y "%temp%\desktop.ini" "%%i\"
  10.     attrib +s +h "%%i\desktop.ini"
  11. )
  12. goto :eof
  13. REM 请确保待生成的文本位于脚本的末尾
  14. :DynamicScript
  15. [.ShellClassInfo]
  16. IconResource=#.ico
  17. [ViewState]
  18. Mode=
  19. Vid=
  20. FolderType=Pictures
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 2# Batcher


    求这样写
  1. set "A=%~dp0"
  2. 目标:%A%B
复制代码
B是要弄的目录

TOP

  1. @echo off
  2. set info=互助互利,支付宝扫码头像,感谢打赏
  3. rem 有问题,可加QQ956535081及时沟通
  4. title %info%
  5. set "rootpath=%~dp0"
  6. for /f "delims=:" %%a in ('findstr /n "^exit" "%~f0"') do set last=%%a
  7. for /f "delims=" %%a in ('dir /ad/b/s "%rootpath%"') do (
  8.     if exist "%%a\desktop.ini" (del /a /f /q "%%a\desktop.ini")
  9.     (for /f "skip=%last% delims=" %%b in ('type "%~f0"') do echo;%%b)>"%%a\desktop.ini"
  10.     attrib +s +h "%%a\desktop.ini"
  11.     if exist "%%a\#.ico" (attrib +s +h "%%a\#.ico")
  12.     attrib +r "%%a"
  13. )
  14. pause
  15. exit
  16. [.ShellClassInfo]
  17. IconResource=#.ico
  18. [ViewState]
  19. Mode=
  20. Vid=
  21. FolderType=Pictures
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

回复 3# sykIII


@echo off
REM 设置待处理的文件夹
set "A=%~dp0"
set "DestFolder=%A%B"

cd /d "%DestFolder%"
for /f "delims=:" %%i in ('findstr /n "^:DynamicScript$" "%~f0"') do (
    more +%%i "%~f0" > "%temp%\desktop.ini"
)
for /f "delims=" %%i in ('dir /b /s /ad') do (
    copy /y "%temp%\desktop.ini" "%%i\"
    attrib +s +h "%%i\desktop.ini"
)
goto :eof

REM 请确保待生成的文本位于脚本的末尾
:DynamicScript
[.ShellClassInfo]
IconResource=#.ico
[ViewState]
Mode=
Vid=
FolderType=Pictures
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 5# Batcher
  1. 拒绝访问
  2. 已复制   0个项目
复制代码
循环至退出

TOP

回复 6# sykIII


    右键单击bat文件,以管理员身份运行
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

本帖最后由 sykIII 于 2019-12-6 00:02 编辑

回复 7# Batcher


最后一个要求,先删除目录里的desktop.ini,然后把%A%这个目录本身也处理一下
然后希望能和这套命令组合在一起
  1. REM 配置状态
  2. @echo off
  3. %1 start "" mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c ""%~s0"" ::","","runas",1)(window.close)&&exit
  4. ::
  5. cls
  6. set "A=%~dp0"
  7. ::
  8. rd /q /s "%USERPROFILE%\Desktop\@控制台"
  9. mklink /d "%USERPROFILE%\Desktop\@控制台" "%A%User Files\Documents\ctrl_center"
  10. ::
复制代码
十分感谢

TOP

返回列表