求一个简单的有实际意义的小项目

Question

VB书上讲的都是一些超简单的程序，希望哪位高手发一个简单的有实际意义的小项目看下，（不要相书上那种超简单的，没意义的）

Answer 1

五年前使用VB,五年前转向PHP,如今还又打算用VB了

Answer 2

xRename(文件文件夹超级重命名工具)，目前正在设计阶段，要不楼主和我一起完成呗！xRename二级命令
1.替换文件名中的字符，语法如下：
replace -dir directory -pattern regexp1 -replacewith string1 [-type (file|directory|all)[:regexp2]] [-ignorecase yes|no] [-log {yes|no}]其中：-type默认为file；-ignorecase默认为yes；-log默认为no例：
(1)将c:\movie\下所有文件的文件名中的"老友记"替换为"friends"
xRename replace -dir "c:\movie\" -pattern "老友记" -replacewith "friends"(2)将c:\movie\下所有文件的文件名中的空格替换为用下划线，并且生成log
xRename replace -dir "c:\movie\" -pattern " " -replacewith "_" -log yes(3)将c:\movie\下所有以wma为后缀名的文件替换为rmvb后缀名。
xRename replace -dir "c:\movie\" -pattern "wma" -replacewith "rmvb"上面的方法可能不保险，因为必须最后是wma的才替换，可以使用正则表达式精确处理：
xRename replace -dir "c:\movie\" -pattern "(.*?)wma$" -replacewith "$1rmvb"或：
xRename replace -dir "c:\movie\" -pattern "wma$" -replacewith "rmvb"如果需要进一步缩小范围指定处理wma文件，那么用下面方法：
xRename replace -dir "c:\movie\" -pattern "wma$" -replacewith "rmvb" -type file:".*\.wma"2.删除文件名中的字符，语法：
delete -dir directory -pattern regexp1 [-type (file|directory|all)[:regexp2]] [-ignorecase yes|no] [-log {yes|no}]3.列出文件名，语法：
listfile -dir directory -pattern regexp1 [-type (file|directory|all)[:regexp2]] [-ignorecase yes|no] [-log {yes|no}]4.删除文件，语法：
deletefile -dir directory -pattern regexp1 [-type (file|directory|all)[:regexp2]] [-ignorecase yes|no] [-log {yes|no}]5.其他待补充http://blog.csdn.net/sysdzw/archive/2011/02/21/6198257.aspx