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

[文件管理] 批处理实现-以网页套图形式浏览当前文件夹中的图片

本帖最后由 Hello123World 于 2011-7-28 16:24 编辑
  1. ::以网页形式(套图形式)浏览当前文件夹中的图片
  2. @echo off&SetLocal EnableDelayedExpansion
  3. For /f "delims=" %%i in ('dir /s /b') do (Set a=%%~pi
  4. Set a=!a:\= !)
  5. For %%i in (%a%) do Set b=%%i
  6. ::获取文件夹名
  7. Set n=0
  8. (
  9. Echo ^<Html^>
  10. Echo ^<Title^>
  11. Echo %b%
  12. Echo ^</Title^>
  13. Echo ^<Body^>
  14. For /r %%i in (*.jpg *.bmp *.gif *.png) do (Echo ^<Img Src="%%i"^>^<p^>
  15. Set n=1)
  16. ::将当前文件夹中所有的图片地址写入到html文件中。
  17. Echo ^</Body^>
  18. Echo ^</Html^>
  19. )>"%b%.html"
  20. If %n%==0 Msg * "当前文件夹中没有图片" & del "%b%.html"
  21. If %n%==1 Start "" "%b%.html"
复制代码
自己有用,纯粹练手,欢迎试用,有虫告诉我。

不知道用document.image来写会怎么样,刚好在学习这个.呵呵,同时期待LZ的VBS与JS的大作
枫中残雪:风停了,我的心却在动,让我心中的寒意走向远方

TOP

document.image是什么?呵呵,我也是刚学html。

TOP

楼主太牛了!!!谢谢谢谢

TOP

这厉害~
批处理竟然也可以这样~

TOP

返回列表