|
我来抄下3楼的
Function FunctionName( strPic1Name, strPic2Name, strPic3Name)
Dim Pic1_Name, Pic2_Name, Pic3_Name, PicAll_String
Dim Pic_String(3)
Pic1_Name= strPic1Name
Pic2_Name= strPic2Name
Pic3_Name= strPic3Name
Pic_String(0)=Left(Pic1_Name,1)
Pic_String(1)=Left(Pic2_Name,1)
Pic_String(2)=Left(Pic3_Name,1)
PicAll_String=Join(Pic_String,"")
FunctionName = PicAll_String
End Function
使用的时侯直接
name = Function ("aaaa", "bbbb", "cccc") '这儿所说的aaaa,bbbb,cccc是你要传进去的3个文件名,name就是你获取到的文件名
[ 本帖最后由 风雪夜归人 于 2009-7-21 15:47 编辑 ] |
|