17. januar 2002 - 15:11Der er
2 kommentarer og 1 løsning
Mapper 2
Dim myFso As FileSystemObject Dim FileName As String Private Sub Command1_Click() FileName = Text1.Text Set myFso = New FileSystemObject If Not myFso.FolderExists(Left(Drive1.Drive, 2) & Dir1.Path & \"\\\" & FileName) Then //myFso.CreateFolder (Left(Drive1.Drive, 2) & Dir1.Path & \"\\\" & FileName) Else MsgBox \"Folder exists!\", vbInformation + vbOKOnly End If Set myFso = Nothing
End Sub
Den gider ikke oprette mappen, som jeg ønsker...Jeg kan simpelhen ikke lige fatte hvorfor..Så hvad siger i?? Fejlen ligger nok ved det market område \"//\"
Når du bruger Left(Drive1.Drive,2) & Dir1.Path & \"\\\" & FileName får du: C:C:\\Bibliotek\\filnavn
Prøv dette:
Dim myFso As FileSystemObject Dim FileName As String Private Sub Command1_Click() FileName = Text1.Text Set myFso = New FileSystemObject If Not myFso.FolderExists(Dir1.Path & \"\\\" & FileName) Then myFso.CreateFolder (Dir1.Path & \"\\\" & FileName) Else MsgBox \"Folder exists!\", vbInformation + vbOKOnly End If Set myFso = Nothing
Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub
Så virker det
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.
