VB FSO自动生成N层目录!
Public Function SoCPath(DirPath As String) As BooleanIf DirPath = "" Then SoCPath = False: Exit FunctionDim fso As New FileSystemObjectDim TmpPath, TmpDrive, TmpDirPath As StringDim TmpArr() As String
原创
2009-02-22 18:36:00 ·
382 阅读 ·
0 评论