肯定是添加人员呀,直接在表格里边儿就能 *** 作,直接就添加上了。
增员是指一家保险企业要想扩大规模就怠法糙盒孬谷茬贪长楷必须扩大人员,进而制定的种种招人技巧和术语,以帮助企业吸引更多的优秀人才的一种技能。
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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)