Private Sub Command1_Click() Dim fso As FileSystemObject Dim f As Folder Set fso = New FileSystemObject Set f = fso.CreateFolder(Left(Drive1.Drive, 2) & \"\\hujiiiHeino\") Set f = Nothing Set fso = Nothing End Sub
Private Sub Command1_Click() Dim fso As FileSystemObject Dim f As Folder Set fso = New FileSystemObject Set f = fso.CreateFolder(Dir1.Path & \"\\hujiiiHeino\") Set f = Nothing Set fso = Nothing End Sub
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.