Recimo da zelim da izbrisem sve fajlove sa .txt ekstenzijom iz foldera Primer koji se nalazi na particiji C:,koristeci vb skriptu koju sam stavio u neku bezveznu html stranicu.Probao sam sa ovim kodom:
<HTML>
<HEAD><TITLE>No namer</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Path1 = "C:\Primer"
Dim fso
Dim oFolder
Dim oFile
Dim oSubFolder
Set fso = createobject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(Path1)
For Each oFile In oFolder.files
If Right(lcase(oFile.Name,4)) = ".txt" Then
oFile.Delete True
End If
-->
</SCRIPT>
</HEAD>
<BODY>
....
No,ovo nece da radi,pa bi mi odgovarala neka zgodna zamena ili ako je moguce da se sam ovaj kod popravi tako da radi.Browser koji koristim je IE.
I jos nesto:
Kako editovati ini fajlove preko VBS-a?
Znaci da hocu da dodam nesto ini fajl
C:\Primer\zxc.ini
<HTML>
<HEAD><TITLE>No namer</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Path1 = "C:\Primer"
Dim fso
Dim oFolder
Dim oFile
Dim oSubFolder
Set fso = createobject("Scripting.FileSystemObject")
Set oFolder = fso.GetFolder(Path1)
For Each oFile In oFolder.files
If Right(lcase(oFile.Name,4)) = ".txt" Then
oFile.Delete True
End If
-->
</SCRIPT>
</HEAD>
<BODY>
....
No,ovo nece da radi,pa bi mi odgovarala neka zgodna zamena ili ako je moguce da se sam ovaj kod popravi tako da radi.Browser koji koristim je IE.
I jos nesto:
Kako editovati ini fajlove preko VBS-a?
Znaci da hocu da dodam nesto ini fajl
C:\Primer\zxc.ini