第一个成型的VB脚本
脚本，这个东西以前一直是很崇拜的东西，看到这个小东西可以自动化那么多工作，而且编写十分简单（那时候对编程不了解也就更增加一份期待，期待自己能写出脚本来）。
今天正式想VB脚本进军，写出了一个自己的脚本。
这个脚本主要是新闻组XP组的网友的一个要求：
请问有什么软件可以把一个目录下的文件自动做成html格式的链接？
想了一下，实现这个脚本主要的几个地方：
For Each filename in filenames.Files
htmlstream.WriteLine("<a href =" & iText & "\" & filename.name & ">" & filename.name &"</a><br>")
Next
- 将得到的文件名写入到一个HTML文件中，目前想到的是<a href =></a>的写法(如果大家有更好的方法发评论给我，咱们一起讨论)
Set htmlstream = fso.CreateTextFile("C:\FileList.html",True)
htmlstream.WriteLine("<HTML><HEAD><TITLE>" & iText &"的文件列表</TITLE></HEAD><BODY>")
'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalCode 3.0
'
' NAME: LIST THE FILE NAME IN FOLDER
'
' AUTHOR: 尤扬, haowangjiao,youyang1983@hotmail.com
' DATE : 2005-7-7
'
' COMMENT: MS MVP FOR WINDOWS-SHELL/USER,本代码可以自由传播及修改,但请保留原
'作者信息!
'==========================================================================
Dim iText,fso,filenames,filename,htmlstream
iText = InputBox ("例如:C:\Windows","请输入文件夹路径")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set filenames =fso.GetFolder(iText)
Set htmlstream = fso.CreateTextFile("C:\FileList.html",True)
htmlstream.WriteLine("<HTML><HEAD><TITLE>" & iText &"的文件列表</TITLE></HEAD><BODY>")
For Each filename in filenames.Files
htmlstream.WriteLine("<a href =" & iText & "\" & filename.name & ">" & filename.name &"</a><br>")
Next
htmlstream.writeline("</BODY></Html>")
MsgBox "创建的HTML文件在C:\Filelist.html"
其实这个脚本主要用的就是Scripting.FileSystemObject对象，这个对象从名字上面来看就是和文件以及文件夹有关的。具体的有什么不明白的地方大家可以发回复问，咱们一起讨论。
另外，对于想写脚本的朋友（比如 盆盆 大哥），我推荐几个好东西。
开发环境：
PrimalCode
PrimalScript 3.1
这两个东东写脚本极佳，如果你以前用过VS.NET简直可以平滑过渡。
开发环境如果用 普通的记事本也OK，就是没有提示，这样更锻炼人！！！
语言参考：Windows Script V5.6 Documentation
这个东东可以在MSDN上面免费Download到
“多看看代码”－这是当年 马骐 告诉给我的一句话！
从这篇POST开始，以后我将陆续开始写VB脚本的POST，算是一个起步，如果这里有脚本高手，还请多多指教！