• Menghapus Sebuah File Menggunakan Macro VBA

    delete file dengan macro Pada kondisi tertentu ketika file yang ada dikomputer telah banyak dan file-file tersebut sudah tidak berguna lagi maka yang dilakukan oleh user adalah menghapus file tersebut. Cara menghapus file yang ada dikomputer pun terbilang sangat mudah, dimana penguna dapat melakukannya dengan cara memilih file tersebut kemudian tekan tombol del atau delete pada keyboard maka file tersebut akan terhapus dari komputer anda.

    Secara default ketika sebuah file dihapus dari komputer akan tertampung terlebih dahulu di Recycle bin yang nantinya jika anda bermaksud untuk mengembalikan dan menggunakan file tersebut, anda bisa merestore kembali, atau mungkin ingin menghapus file secara permanen dengan cara menekan tombol Empty Recycle Bin.

    Tutorial kali ini excelive tidak akan membahas tentang bagaimana cara menghapus sebuah file yang ada dikomputer menggunakan tombol yang terdapat dalam keyboard, melainkan menggunakan sebuah kode yang kita sebut dengan Macro VBA.

    Syntax umum untuk menghapus file adalah:
    Kill NamaFile
    Untuk catatan, menghapus file menggunakan perintah kode di atas tidak akan menghapus file dan memindahkannya ke dalam Recycle Bin, melainkan akan menghapusnya secara permanen. Jadi, diperlukan kehatian-hatian sebelum mengeksekusi perintah ini.

    Secara umum, tutorial kali ini menggabungkan baris kode yang terdapat di tutorial Mengecek Keberadaan Sebuah File Dengan Macro VBA yang berfungsi untuk mengecek sebuah file dan menghapusnya dengan menggunakan perintah di atas. Jadi, sebelum Anda belajar tutorial Menghapus File Mengunakan MAcro VBA, ada baiknya Anda baca terlebih dahulu tutorial sebelumnya.
    1. Sebelum memulai tutorial ini, seperti biasanya buka jendela Microsoft Visual Basic editor dengan menekan tombol Alt + F11
    2. Setelah jendela Visual Basic Editor berhasil terbuka, selanjutnya adalah buat sebuah Module baru
    3. Ketikkan baris kode berikut di Module yang sudah Anda buat di langkah sebelumnya
      Sub HapusFile()
      Dim NamaFile As String
      NamaFile = ThisWorkbook.Path & "\1.jpg"
      If Dir(NamaFile) <> "" Then
         Select Case MsgBox("Mau hapus file " & vbCr & NamaFile, vbCritical + vbYesNo)
         Case vbYes
           Kill NamaFile
         End Select
         Else
         MsgBox "Maaf, file yang Anda cari tidak ada.", vbInformation
      End If
      End Sub
      Baris kode diatas akan dieksekusi jika file dengan nama 1.Jpg yang terdapat dalam satu folder dengan file Excel ini ada. Tentu saja, Anda bisa mengganti lokasi file yang ingin dihapus.
      Sebelum melakukan perintah penghapusan sebuah file, kode akan mengeksekusi terlebih dahulu baris kode untuk menampilkan sebuah pesan peringatan apakah file ini ingin di hapus atau tidak. Hal ini terlihat di baris kode:
      Select Case MsgBox("Mau hapus file " & vbCr & NamaFile, vbCritical + vbYesNo)
      Jika tombol yang dipilih adalah Yes, maka file akan dihapus secara permanen tanpa sebuah peringatan (khan, pesan peringatan sudah ditampilkan sebelumnya...), dan jika tidak yakin pilih saja perintah No, sehingga tidak ada file yang akan dihapus.
      download


    Sekarang Anda sudah berhasil mempelajari bagaimana cara untuk menghapus sebuah file menggunakan Macro VBA. Semoga Anda menyukai tutorial dari excelive untuk edisi ini.
    Kunjungi kami lain waktu untuk mengetahui kehebatan Microsoft Excel lainnya.

    Artikel Terkait

  • Still haven't found what are you looking for

    We have provided a complete list of articles on this site to make it easier for you and giving the best solution for your excel issues

    VISIT LINK
    DMCA.com Protection Status

    excelive.com
    is a blogger resources site who provides best excel tutorial based on daily needs. The main mission of excelive is to share our little experience in excel to deliver best time killer for your excel issues.
    T.O.S
    Term of service

    Read More
    Download Area
    to complete all excel lessons, we have provided a download link for you Find Here
    Copyright © 2016 - excelive.com. Some rights reserved.
    Menyalin sebagian atau keseluruhan materi situs hanya diperbolehkan dengan tautan balik terbuka ke sumbernya.
    equipped with by blogger