Opret mappe - virker ikke

Hej.
Lige revet ud af et projekt, du må selv sortere 'fedtet' fra.

If knap(Index).Index = 11 Then
  '--------------- oprettelse af mappe til dokumenter --------------
    If Len(txtdat(0).Text) >= 5 Then
      On Error GoTo fejldir
      MkDir joursti & "dok" & Left(txtdat(0), 5)
    End If
  End If

M.v.h.  Jørn

Prøv med en BackSlash "\" efter MyTest -> "C:\MyTest\"

Det lyder underligt at det skulle have noget at sige!

Men det er sådan jeg gør det!

//Nolle_K

Det virker fint her.
Hvad får du af fejl?

fso.CreateFolder "C:\MyTest"

Uanset om jeg skriver

fldr = fso.createfolder("C:\Myfolder")

eller

fso.createfolder "C:\MyFolder"

så virker det.
Får du slet ingen fejlmeddelelser??

forumdk - er det snart på tide at lukke ;o)

Set Folder = fso.CreateFolder("C:\Myfolder")

saxtus: har du set på datoen for sidste indlæg - 5/11 2003

;o)

Martin - jo så det godt da jeg havde svaret :)
Kunne jo også være at andre kunne bruge svaret