Rilis XCODE ezine #15 [15 Maret 2010] + mirror link

[hitamputihku]

isin sedoooottttt

[rhecizen]

pengen nanya,klu misalny mau nyumbang artikel, kirimny kmn y,,

[c3p3ru6]

ijin sedot :love:

[Tool3]

:love: halo yf tercinta nupang absen ui.....

[nauki1]

weleh... script iseng nya ngak bisa d balikin semula???


udah bisa @_@

[nauki1]

kok ga bisa dibalikin lagi sih kk, dah coba bikin reverseIsenk.vbs. gmn caranyaaa ???? tolong di bls y kk

coba pake ini kk moga2 membantu

Code: Select all

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

[heppyputra]

wah materinya Patut untuk di pelajari nie....

dengan segenap jiwa raga saya akan berusaha untuk bisa....

makasih ya....

[heppyputra]

Setelah saya download, saya menemui ttg permintaan seminar di sebuah daerah tuh... ma pihak yogyafree kan disuruh membuat proposal perizinan tempat dulu... KLo gag salah di Sekolah.... nah sekarang pertanyaannya...

Bolehkah mengirim proposal di tempat selain sekolah, misalnya di bupatinya... gitu.....

mohon bimbingannya ya....

[rohmanfree]

om...alo'....kode untuk semua ektensi apaan yaaaa...biar sxgus ngerubah semua ekstensi...gitu.. printf [nanya]

[harex]

ke TKP gan....