1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Imports System.IO Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim folderPath As String = "C:\PDFs\" If Not Directory.Exists(folderPath) Then Directory.CreateDirectory(folderPath) End If End Sub |
沒有留言:
張貼留言