Dialogboks til oprettelse af bibliotek

mkdir

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

se mere her: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/sgprogrammingfilesystemobject.asp

Eller bare søg på filesystemobject i din MSDN altså hjælp til VB.

/hiks

Dim Bibliotek as string

Bibliotek = inputbox("Skriv navnet")

mkdir "C:\" & Biblioteket

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.

jow du kan smide en drivelistbox og en dirlistbox på din form og lade dem styre det.

/hiks

derved kan du jo også lade brugeren sammensætte den sti han vil indtil at der skal oprettes bib.

/hiks

Det er nok den her du mener ;)
http://hjem.get2net.dk/sjh/eksperten/539154/vbBrowse.zip

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

Private Sub Opretbibliotek_Click()

??


End Sub

har du ikke visual basic 4/5/6 ??

Jeg har ikke installeret hverken 4/5/eller 6, men kan jeg ikke køre under VBA? Jeg kører Office 2000.

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