Question

在原有的基础之上用填加和添加用哪个

在原有的基础之上用填加和添加用哪个

Answer 1

Private Sub Command1_Click()
Dim sf As String, pathname As String, s As String
On Error Resume Next '文件被别的程序已调用忽律
pathname = "d:\abc"
pathname = pathname IIf(Right(pathname, 1) = "\", "", "\")
s = "100"
sf = Dir(pathname, vbDirectory)
Do While sf <> ""
If sf <> "." And sf <> ".." Then Name pathname sf As pathname s sf
sf = Dir()
Loop
End Sub