我的VBA自定义函数研习收获

weiyingde

用VBs批量创建文件夹。
用法：创建一个text文件，将代码写进去，然后再将后缀".txt"改为“.vbs”,双击即可生成。
sr = "浙江,江苏,广东,福建,山东,四川,甘肃,贵州,江西,山西,河北,安徽,河南,黑龙江,吉林,辽宁,青海,陕西,湖南,海南,云南,广西,内蒙古,新疆,宁夏"
arr = split(sr,",")
rem array("北京,天津,重庆,浙江,江苏,广东,福建,山东,四川,甘肃,贵州,江西,河北,安徽,河南,黑龙江,吉林,辽宁,青海,陕西,湖南,海南,云南,广西,内蒙古,新疆,宁夏")
for i =0 to Ubound(arr)
CreateFolders "D:\上传\真题集萃\真题系列\中考\中考真题\其他\2023年\" & arr(i)   
next
Function CreateFolders(path)     
Set fso = CreateObject("scripting.filesystemobject")
CreateFolderEx fso,path   
set fso = Nothing
End Function  

Function CreateFolderEx(fso,path)
  If fso.FolderExists(path) Then         
    Exit Function   
  End If   
If Not fso.FolderExists(fso.GetParentFolderName(path)) Then        
   CreateFolderEx fso,fso.GetParentFolderName(path)
End If   
fso.CreateFolder(path)
End Function

weiyingde

朗读文本过程
注意，电脑中必须安装对应的语音
在我的机器上，Nb为0,4,5均可读，4,5效果较好。
Sub spek(str As String.Nb)
Set sapk = CreateObject("SAPI.SpVoice")
With sapk
   .volume = 100 '音量
   .Rate = -10 '语音速率 越大越快 -10至+10
    FlagsAsync = 1 '同步或异步，0是同步 1是异步
    Set .Voice = .GetVoices.Item(Nb)
   .Speak str, False
End With
Set sapk = Nothing
End Sub