Imports System
Imports System.IO
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim FN As Object 'FN adalah File Name
FN = RGB(Int(256 * Rnd()), Int(256 * Rnd()), Int(256 * Rnd()))
Directory.CreateDirectory(("C:\") & FN) 'Folder di buat di C
End Sub
End Class
Imports System.IO
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim FN As Object 'FN adalah File Name
FN = RGB(Int(256 * Rnd()), Int(256 * Rnd()), Int(256 * Rnd()))
Directory.CreateDirectory(("C:\") & FN) 'Folder di buat di C
End Sub
End Class
0 komentar:
Posting Komentar
Setelah melihat - lihat, Alangkah baiknya memberikan komentar mengenai Blog ini.
Kritik dan Saran teman-teman semua, Saya anggap sebagai masukan buat saya... terima kasih telah berkunjung