hanyeguxing

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /a-d /b /s "*.png"') do call:han "%%~fi"
for /F "tokens=1,2* delims==:" %%i in ('set han_^|findstr /n .*') do set "BG_%%i=%%k"&set ye_BG=%%i
for /f "skip=4" %%i in ('mountvol^|find ":"') do for /f "delims=" %%j in ('dir /s /b /ad "%%i" 2^>nul') do if not exist "%%j\desktop.ini" set "xing_%%j=="
for /F "tokens=1,2* delims==:_" %%i in ('set xing_^|findstr /n .*') do set a=%%k&set "Fl_%%i=!a:~0,-2!"&set ye_Fl=%%i
for /l %%i in (1,%ye_BG%,%ye_Fl%) do for /l %%j in (1,1,%ye_BG%) do set/a "gu=%%i-1+%%j"&call set "gu=%%Fl_!gu!%%"&if not defined gu (goto :xing) else (attrib +s "!gu!"
>>"!gu!\Desktop.ini" echo.[{BE098140-A513-11D0-A3A4-00C04FD706EC}]
>>"!gu!\Desktop.ini" echo.IconArea_Image=!BG_%%j!
attrib -s "!gu!")
:xing
exit
:han
set han=%random%%random%%random%
if "!han_%han%!"=="" (set "han_%han%=%~1") else goto:han
复制代码

1，本批处理不产生临时文件，所需内容全部定义为变量
2，由于大量操作，所以批处理中尽量少使用set/a以加快运行速度

[ 本帖最后由 hanyeguxing 于 2010-4-20 06:36 编辑 ]

hanyeguxing

原帖由 hmlstfqtl 于 2010-4-20 09:02 发表
寒星的批写的甚好甚强大
全部文件都定义到变量 是很好  而且随即提取和输出也做得很完美
先谢谢寒星了
在此 希望 寒星 再帮写一个  按照本帖说明 的P处理 我想仔细研究研究 谢谢了

把我的代码里的:

for /f "delims=" %%i in ('dir /a-d /b /s "*.png"') do call:han "%%~fi"
复制代码

改成

for /f "delims=" %%i in (BGList.txt) do call:han %%i
复制代码

把我的代码里的:

for /f "skip=4" %%i in ('mountvol^|find ":"') do for /f "delims=" %%j in ('dir /s /b /ad "%%i" 2^>nul') do if not exist "%%j\desktop.ini" set "xing_%%j=="
复制代码

改成

for /f "delims=" %%i in (FList.txt) do set "xing_%%~i=="
复制代码

不就可以了吗????

[ 本帖最后由 hanyeguxing 于 2010-4-20 16:29 编辑 ]

hanyeguxing

原帖由 hmlstfqtl 于 2010-4-21 12:52 发表

突然发现文件夹太多了！！！寒一个 - -

也没有办法只搜索1层的目录层次
如
E:\电影\笔记
E:\电影\死亡
E:\电影\不要搜索我

只搜索到 E:\电影         电影文件夹下的子文件就不要了    反正2层的目录基本不怎么打开

1，你的意思是只要根目录下的文件夹名？
在dir的时候不使用/s
2，对所有目录去设置desktop.ini本身就不可取，例如对%tmp%目录设置后，Windows Movie Maker 程序将无法工作等等。
3，我在2楼的代码没有考虑文件夹名中是否有敏感字符的问题\没有考虑目录权限的问题,没有考虑是否为畸形目录的问题...
4，你没贴出你运行的代码。

[ 本帖最后由 hanyeguxing 于 2010-4-21 14:19 编辑 ]