Batya
|
 Posted: Fri Mar 17, 2006 19:54 Post subject: |
 |
|
D1P
Тогда:
| Code: | Dim ListFile, FSO, StreamFile
ListFile = Wscript.Arguments(0)
MsgBox(ListFile & "_")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set StreamFile = FSO.OpenTextFile(ListFile, 1)
Dim FileName1, FileName2
FileName1 = ""
Do While Not StreamFile.AtEndOfStream
SelFile = StreamFile.ReadLine
FileName2 = FSO.GetFile(SelFile).Name
If FileName1 = FileName2 Then
FSO.OpenTextFile(ListFile & "_", 8, True).WriteLine SelFile
End If
FileName1 = FileName2
Loop
StreamFile.Close
Set FSO = Nothing
Set StreamFile = Nothing
WScript.Quit() |
После того, как скрипт отработает, посмотри, создался ли у тебя файл, имя котрого выводится в диалоговом окне.
В этом скрипте уж точно нет никаких запусков. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
