Sub TestBase64()
Dim strFolder As String
Set fs = CreateObject("Scripting.FileSystemObject")
Extension = fs.GetExtensionName(ThisWorkbook.Name)
Set afile = fs.GetFile(ThisWorkbook.FullName)
fname = ThisWorkbook.Name
strPicPath = ThisWorkbook.path & "\" & fname
Debug.Print strPicPath
strFolder = "C:\te
VB 将文件转为Base64并上传到服务器
最新推荐文章于 2023-09-30 14:20:50 发布