Private Sub Opretbibliotek_Click() Dim fso, fldr Set fso = CreateObject("Scripting.FileSystemObject") Set fldr = fso.CreateFolder("C:\MyTest") Response.Write "Created folder: " & fldr.Name End Sub
Hej jogge m.fl., kan godt se jeres pointe, men kan det ikke gøres med en dialogboks??, så brugeren kan se hvilke biblioteker der findes, så der ikke oprettes et bibliotek med samme navn.
Ok, sjh ser rigtigt ud men er ikke så stiv i VBA endnu. Kan se tre filer i zip-filen, men vil gerne lige vide hvordan du får det til at køre ved tryk på min kommandoknap
Måske ved det ikke.. ellers skal du tage det som står i "modDialog.bas" fra "Option Explicit" til bunden, og indsette i et Module..
og det her under din Form :
Private Sub Opretbibliotek_Click() Dim strPath As String strPath = DialogBrowse(Me.hwnd, "Vælg en mappe", "C:\Programmer")
If Len(strPath) Then
MsgBox strPath
Else
MsgBox "Annuller"
End If
End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.