26-02-2006, 10:05
|
|
|
|
חבר מתאריך: 08.11.01
הודעות: 5,735
|
|
בבקשה.
העתק את התוכן לתוך קובץ טקסט ושמור אותו בסיומת vbs.
שנה את התיקית "Lalala" לשם התיקיה המדוברת..
זה יצור קובץ בשם text.txt בתוך התיקיה שבו יהיו כל שמות התיקיות
קוד:
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("c:\lalala\text.txt", ForAppending, True)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService. _
ExecQuery("Select * from Win32_Directory where Path = '\\lalala\\'")
For Each objFolder in colFolders
objTextFile.WriteLine objFolder.Name
Next
_____________________________________
לבלוג שלי - Sandbox
Pinky: Ha ha ha ha, Troz!
Brain: What is troz?
Pinky: Why that's Zort in a mirror. Huh huh, Troz!
|