oprette Mappe i VB

\' Sæt en reference til \"Microsoft Scripting Runtime\"
\' Sæt en CommandButton på formen

Option Explicit

Dim myFso As FileSystemObject

Private Sub Command1_Click()
  Set myFso = New FileSystemObject
  If Not myFso.FolderExists(\"C:\\TestFolder\") Then
    myFso.CreateFolder (\"c:\\TestFolder\")
  End If
  Set myFso = Nothing
End Sub

kaffe>>

Hvad skal jeg gøre for at bestemme navnet på mappe selv?

I eksemplet ovenfor har jeg kaldt mappen TestFolder og den ligger på C:\\
Vil du kalde den noget andet skriver du bare det. For eksempel \"D:\\Downloads\\Giffer\"

I eksemplet undersøges først om navnet eksisterer i forvejen. Gør det ikke det opretter den mappen, ellers gør den ingenting.

Håber det hjalp - ellers må du sige til...

Ja, man kan også godt selv ændre det, men hva så hvis programmet er færdigt og kunden skal ændre navnet, så kan han/hun jo ikke bare ændre koden, hva skal man så gøre

Kaffe>>

Jeg har fundet ud af det.

tak for hjælpen

Så sætter du det ind i en variabel.
Jeg udvider eksemplet lidt og sætter en tekstboks ind på formen. Når kunden har skrevet navnet på folderen der skal oprettes og trykker på commandbutton ser koden sådan ud:

Private Sub Command1_Click()
  Dim strNyMappe As String
  strNyMappe = Text1.Text
  If strNyMappe <> \"\" Then
    Set myFso = New FileSystemObject
    If Not myFso.FolderExists(strNyMappe) Then
      myFso.CreateFolder (strNyMappe)
    End If
    Set myFso = Nothing
  End If
End Sub

Håber det hjælper

Tak for pointene :)