| Public Sub CreateDirectoryOnDesktop(ByVal directoryName As String)
Dim DesktopPathD As String = Environment.GetFolderPath (Environment.SpecialFolder.DesktopDirectory)
My.Computer.FileSystem.CreateDirectory (DesktopPathD & "\" & directoryName)
End Sub |
| By Renfield |