4,008
社区成员
发帖
与我相关
我的任务
分享
Set oShell = CreateObject("WScript.Shell")
Set oExe = oShell.Exec("cmd /c dir /a-d/b d:\radasm")
'Do Until oExe.StdOut.AtEndOfStream
' WScript.Echo oExe.StdOut.ReadLine
'Loop
WScript.Echo oExe.StdOut.ReadAll
Set oExcel = CreateObject("Excel.Application")
Set oFindFile = oExcel.Application.FileSearch
With oFindFile
.NewSearch
.LookIn = "d:\radasm"
.FileName = "*.*"
.SearchSubFolders = False
.Execute
i = 1
For Each itemFile In .FoundFiles
str = str & i & vbTab & itemFile & vbCrLf
i = i + 1
Next
End With
WScript.Echo str
oExcel.Quit
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.NameSpace("D:\RadASM")
i = 1
For Each x In oFolder.Items
If Not x.Type = "文件夹" Then
WScript.Echo i & vbTab & x.Name
i = i + 1
End If
Next
Set oFolder = Nothing
Set oShell = Nothing
i = 1
For Each x In GetObject("Winmgmts:").ExecQuery( _
"ASSOCIATORS OF {Win32_Directory.Name='" & _
"D:\RadASM"&"'}" & _
"Where ResultClass = CIM_LogicalFile")
If x.FileSize > 0 Then
WScript.Echo i & vbTab & x.Name
i = i + 1
End If
Next
i = 1
For Each x In GetObject("Winmgmts:").ExecQuery( _
"Select * From CIM_LogicalFile Where Drive = 'd:'" & _
"And Path ='\\RadASM\\' And FileType != 'File Folder'")
WScript.Echo i & vbTab & x.Name
i = i + 1
Next
Set oConn = CreateObject("ADODB.Connection")
Set oAdox = CreateObject("Adox.Catalog")
strPath = "D:\RadASM"
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strPath & ";" & _
"Extended Properties=""text;"""
oAdox.ActiveConnection = oConn
For Each itemTable In oAdox.Tables
WScript.Echo itemTable.Name
Next
set fso = server.createobject("scripting.filesystemobject")
set folder = fso.getfolder("c:\temp")
for each file in folder.files
FileName=FileName&file.name&"<br>"
next
set fso = server.createobject("scripting.filesystemobject")
set folder = fso.getfolder("c:\temp")
for each file in folder.files
FileName=FileName&file.name&"<br>"
next
set fso = createobject("scripting.filesystemobject")
set folder = fso.getfolder("c:\temp")
for each file in folder.files
msgbox file.name
next