LOGO

SPOTLIGHT saat ini sedang dalam masa perbaikan, ditargetkan selesai dalam 3 hari ke depan.

Detail

LISENSI ARTIKEL


Semua artikel di SPOTLIGHT!! berada di bawah lisensi CreativeCommons (CC), dengan persetujuan sebagai berikut :
1. Artikel boleh di copas atau dimodifikasi, tetapi harus menyertakan atribut seperti penulis artikel DAN link blog ini.
2. Artikel hanya untuk dishare dan bukan untuk kepentingan komersial
3. Artikel boleh dirubah dan didistribusikan ulang, tetapi dengan melihat poin yang pertama.

Silakan Anda cari artikel atau post yang diinginkan melalui searchbox di bawah, apabila tidak ada silakan request ke kami tentang artikel yang dimaksud.

On 12.14.2007 0 komentar

Fakta : Virus suka menghapus data-data ekstensi Microsoft Office

Salah satu virus lokal yang terkenal ganas, sempat membuat saya panas dingin karena berhasil menghapus file makalah yang susah payah saya buat 3 hari 3 malam. Yang pasti temen-temen bisa ngira, kira-kira apa ekstensi file makalah saya? Pasti ekstensi Microsoft Word, yaitu *.doc, yup, tepat sekali.  Itu baru makalah, seandainya skripsi saya hilang begitu saja, atau data-data penting saya yang lain raib, bisa stress juga!

Solusi : Ubah Ekstensi Filenya!

Kenapa merubah ekstensi file? Begini nih, sebuah virus lokal, kalo dibredel, memiliki algoritma yang nyaris atau hampir sama. Menggandakan diri > Membuat File Induk > membuat salinan folder > menghapus semua file ekstensi *.doc, *.xls, *.ppt di drive tertentu > ........
Saya katakan hampir sama, karena tidak semua virus menghapus file kita.  Terkadang hanya menyembunyikan saja. Oke! Kita rubah ekstensi file *.doc kita.  Kalau kita punya 2-3 file word, okeylah kita pake cara klik kanan > rename.  Tapi bagaimana kalau kita punya data 200 biji? Mau gitu ngubah satu-satu?? Baca selengkapnya di artikel ini...

Di sini ada VB Script untuk merename ekstensi file secara massal (contoh di sini dari *.doc menjadi *.MSword:

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 = "\.doc$" -------> '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, ".MSWord") 'hasil renamenya'
End If
Next
For Each SubFolder In Folder.SubFolders
Call Rename(SubFolder, RegExp)
Next
End Sub

Salin script di atas menggunakan notepad, save dengan nama Renamer.vbs (perhatikan, ekstensinya VBS, bukan TXT), ubah text document menjadi all files, agar bisa menyimpan dengan format vbs. Lamanya proses tergantung dari spesifikasi komputer.  Apalagi kalo ngerubah data satu partisi, bisa kemungkinan prosesnya lama.

Asosiasikan Ekstensi File ini dengan Ms Word

Caranya? Di Windows Explorer ---> Tools > Folder Options >File Types > New > Advanced
Ketikkan ekstensi MSword, kemudian asosiasikan dengan Microsoft Word, selesai!

Cara ini hanyalah satu dari sekian banyak untuk mencegah data kita dihapus sama virus-virus kejam...^^

Thanks to : My Friend, Moch.David Fachrudy

Semoga Bermanfaat.

Copyright © 2007 OprekWindows™

0 komentar:

Notes :
Untuk menjaga keberlangsungan Update Blog SpotLight, kami sangat mengapresiasi apabila pengunjung MENINGGALKAN KOMENTAR baik tentang posting maupun Blog SpotLight secara keseluruhan. Atau minimal MEMBERIKAN RATING terhadap setiap artikel yang dibuka. Setiap komentar dan rating memberikan semangat bagi tim kami karena kami bisa berinteraksi dengan pengunjung-pengunjung kami. Apabila menurut Anda posting di blog ini bagus, silakan BERLANGGANAN ARTIKEL VIA RSS/EMAIL/FOLLOWuntuk mendapat berita up-to-date. Kami juga menantikan KONTRIBUTOR baru untuk memajukan SpotLight Blog bersama-sama. MengenaiLISENSI ARTIKEL dapat dilihat di bagian atas Blog SpotLight. Selamat membaca, salam SpotLight!

KOMENTAR TERBARU:

Powered by Disqus