
已关注
关注
重播 分享 赞

。


swPackAndGo.GetDocumentNames fsNamesFor i = 0 To UBound(fsNames)fsNames(i) = Replace(fsNames(i), Mid(fsNames(i), InStrRev(fsNames(i), "\") + 1), Dir(fsNames(i)))NextswPackAndGo.SetDocumentSaveToNames fsNames






夜雨聆风