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

Rank: 1

帖子
32 
积分
53 
技术
0  
捐助
0  
注册时间
2018-8-23 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2019-12-3 23:22 | 只看该作者

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
收藏 分享

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
2楼
发表于 2019-12-3 23:28 | 只看该作者
回复 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. 

  14. REM 请确保待生成的文本位于脚本的末尾

  15. :DynamicScript

  16. [.ShellClassInfo]

  17. IconResource=#.ico

  18. [ViewState]

  19. Mode=

  20. Vid=

  21. FolderType=Pictures
复制代码
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

sykIII

Rank: 1

帖子
32 
积分
53 
技术
0  
捐助
0  
注册时间
2018-8-23 
3楼
发表于 2019-12-3 23:48 | 只看该作者
回复 2# Batcher


    求这样写
  1. set "A=%~dp0"

  2. 目标：%A%B
复制代码
B是要弄的目录

TOP

zaqmlp

Rank: 5Rank: 5

帖子
972 
积分
1273 
技术
94  
捐助
0  
注册时间
2017-10-30 
4楼
发表于 2019-12-4 00:34 | 只看该作者 
  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

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
5楼
发表于 2019-12-4 08:57 | 只看该作者
回复 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

sykIII

Rank: 1

帖子
32 
积分
53 
技术
0  
捐助
0  
注册时间
2018-8-23 
6楼
发表于 2019-12-4 15:59 | 只看该作者
回复 5# Batcher 
  1. 拒绝访问

  2. 已复制   0个项目
复制代码
循环至退出

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
7楼
发表于 2019-12-4 20:26 | 只看该作者
回复 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

Rank: 1

帖子
32 
积分
53 
技术
0  
捐助
0  
注册时间
2018-8-23 
8楼
发表于 2019-12-5 22:22 | 只看该作者
本帖最后由 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

返回列表