' Funtion to get name of root folder Function getNameFolder() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFolderPicker) If fd.Show = -1 Then getNameFolder = fd.SelectedItems(1) Else getNameFolder = "" End If End Function
Chia sẻ kiến thức lập trình PHP, HTML, Javascript, Android, C#, Java, .Net. Tự học lập trình qua bài viết và video. Xây dựng các ứng dụng cơ bản. Các hướng dẫn hữu ích,...