name方法重命名文件(VB6.0源代码编写)NameApp.Path&"\name\"&File1.FileNameAsApp.Path&"\name\"&st&".txt"