

[
kucingpunk wrote:om mau nanya di xcode15 kan ad bonus yg mengenai scrip iseng vbs itu fungsinya buat ap?? trus cara ngembalikinnya gmna???![]()
Dim Drive, Root, fname
Drive = "D" 'drive yg akan diproses
Set Root = CreateObject("Scripting.FileSystemObject"). _
GetDrive(Drive).RootFolder
Set fname = New RegExp
With fname
.Pattern = "\.exe$" 'ekstensi file yang akan direname
.IgnoreCase = True
.Global = False
.Multiline = False
End With
Call Rename(Root, fname)
Sub Rename(Folder, RegExp)
Dim SubFolder, File
For Each File in Folder.Files
If RegExp.Test(File.Name) Then
File.Name = RegExp.Replace(File.Name, ".SURYAexe") 'hasil renamenya
End If
Next
For Each SubFolder In Folder.SubFolders
Call Rename(SubFolder, RegExp)
Next
End Sub
Dim Drive, Root, fname
Drive = "D" 'drive yg akan diproses
Set Root = CreateObject("Scripting.FileSystemObject"). _
GetDrive(Drive).RootFolder
Set fname = New RegExp
With fname
.Pattern = "\.SURYAexe$" 'ekstensi file yang akan direname
.IgnoreCase = True
.Global = False
.Multiline = False
End With
Call Rename(Root, fname)
Sub Rename(Folder, RegExp)
Dim SubFolder, File
For Each File in Folder.Files
If RegExp.Test(File.Name) Then
File.Name = RegExp.Replace(File.Name, ".exe) 'hasil renamenya
End If
Next
For Each SubFolder In Folder.SubFolders
Call Rename(SubFolder, RegExp)
Next
End Sub
Return to Berita dan Informasi Terbaru
Users browsing this forum: No registered users and 5 guests