如何实现文件名的对比?

Question

我要从数据库里面把第1个文件名取出来,重新按序号命名.比如为1号文件.当我循环把每条记录都读出来的时候,同第1个文件名进行对比.如果不同,则做为第2个文件,如果相同.继续为1号文件.
如:第1条记录  c:\text1.txt     重新命名为1
   第2条记录  c:\text2.txt     重新命名为2
   第3条记录  c:\text2.txt     重新命名为2(由于文件名没有改变)
如此类推.如果有相同 的文件名,就是原来的序号,如果不相同,则加1(+1)
怎么样才能够实现?

Answer 1

n = 1
Set rs = cn.Execute("SELECT DISTINCT 文件名 FROM 你的表")
Do Until rs.EOF
    strPath = Left(rs!文件名, InStrRev（rs!文件名, "\"))
    strExtn = Right(rs!文件名,InStrRev（rs!文件名, "."))
    cn.Execute "UPDATE 你的表 SET 文件名 = '" & strPath & n & strExtn & "' WHERE 文件名= '" & rs!文件名 & "'"
    rs.MoveNext
    n = n + 1
Loop