怎么实现文件的批量重命名？

我有个数据相机，拍好的照片都有名字的，DSC开始的，现在已经到DSC0500多了，我想把这些照片批量重命名，比如说，我想把DSC0500-DSC0600批量重命名为 “家0001-家0100”，就这个功能vb能实现吗？ 
--------------------编程问答-------------------- 假如说你的目录为H:\DSC 
Shell "cmd /c H: && cd DSC && ren DSC05*.txt 家00*.txt && ren DSC06*.txt 家01*.txt" --------------------编程问答-------------------- Private Sub Command1_Click()
    Dim s As String
    Dim i As Long
    s = "e:\image\"
    For i = 1 To 100
        Name s & "DSC" & Format(i + 500, "0000") & ".jpg" As s & "家" & Format(i, "0000") & ".jpg"
    Next
End Sub

补充：VB ,  数据库(包含打印，安装，报表)