Set fso = WScriptCreateObject("ScriptingFilesystemobject")
Dim fld ' as object
dim path ' As string
path = fsoGetParentFolderName(WScriptScriptFullName) '获取脚本所在文件夹字符串
Set fld=fsoGetFolder(path) '通过路径字符串获取文件夹对象
'-----------------------------------------
Dim file
Dim text
For Each file In fldFiles '遍历该文件夹对象下的所有文件对象
text = text & fileName & vbCrLf
Next
MsgBox text
text=""
Dim subfld
For Each subfld In fldSubFolders '遍历该文件夹对象下的子文件夹对象
text = text & subfldName & vbCrLf
Next
MsgBox text
'上面这段是个例子
'--------------------------------------------------------
'Call TreatSubFolder(fld) '调用该过程进行递归遍历该文件夹对象下的所有文件对象及子文件夹对象
Sub TreatSubFolder(fld) 'fld 是文件夹对象
'Dim fso
'Set fso = WScriptCreateObject("ScriptingFilesystemobject")
Dim file '文件对象,可不是文本流对象
Dim ts '文本流对象
For Each file In fldFiles '遍历该文件夹对象下的所有文件对象
If LCase(fsoGetExtensionName(fileName)) ="dat" Then
Set ts=fileOpenAsTextStream
'------------------
'这里对dat文件内容进行 *** 作
'-----------------------
tsClose
End if
Next
Dim subfld
For Each subfld In fldSubFolders '递归遍历子文件夹对象
TreatSubFolder subfld
Next
'Set fso = nothing
End Sub
'这段我没测试。解决方法一:
1、打开浏览器,点击工具选项,找到Internet选项点击打开
2、点击上方菜单栏中的安全选项,进入安全选项界面后,在上方的选择要查看的区域或更改安全设置选择Internet,然后查看下方的安全级别是否过高?
解决方法二:
还有一种情况会造成网站安全证书有问题,那是系统时间不对,这个很好解决了 1、点击桌面右下角的时间,然后选择更改日期和时间设置
2、点击上方的Internet时间,然后选择更改设置选项
3、勾选上与Internet时间服务器同步然后点击服务器右方的立即更新选项。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)