Skip to content

Instantly share code, notes, and snippets.

@vbcupu

vbcupu/filesistemobject.vb

Created June 29, 2021 03:44
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save vbcupu/b4c48d130005bc7f7344f4e48de5db94 to your computer and use it in GitHub Desktop.
Save vbcupu/b4c48d130005bc7f7344f4e48de5db94 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
filesistemobject.vb
Private Sub Command1_Click()
Dim sfc As New FileSystemObject 'Inisialisasi komponen file system object
If sfc.FolderExists(App.Path & "\folderku") = False Then 'Cek apakah folderku ada di folder aplikasi
sfc.CreateFolder (App.Path & "\folderku") 'Jika Tidak Ada, Maka Buat folder dengan nama folderku di folder aplikasi
Call MsgBox("Folderku Sudah Di Buat")
End If
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment