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 \"//\"
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
