Avatar billede clausjacobsen Nybegynder
16. november 2002 - 16:55 Der er 4 kommentarer og
1 løsning

Oprettelse af foldere med underfolder i en håndtering

Kan det lade sig gøre at oprette foldere indeholdende underfoldere i en og samme håndtering i vb.

F.eks: C:\test\test1\test2\test3

Det skal bruges i.forb.m. et backup program og derfor kender man ikke på forhånd folder strukturen.

Mvh
Claus
Avatar billede tubber Juniormester
16. november 2002 - 17:35 #1
Du skal vel bare lave en copy på startfolderen.....
Avatar billede sjh Nybegynder
17. november 2002 - 03:42 #2
'Prøv sådan:

Option Explicit

Public Sub CreateFolders(ByVal strPath As String)
Dim fso As Object
Dim strSlash As Integer
Dim strFolderDir As String

Set fso = CreateObject("Scripting.FileSystemObject")
strSlash = 1

  Do While strSlash > 0
    strSlash = InStr(strSlash + 1, strPath, "\")
    If strSlash > 0 Then
      strFolderDir = Left(strPath, strSlash - 1)
      If Not fso.FolderExists(strFolderDir) Then
        fso.CreateFolder strFolderDir
      End If
    End If
  Loop
  If Not fso.FolderExists(strPath) Then
    fso.CreateFolder strPath
  End If

Set fso = Nothing
End Sub

Private Sub Form_Load()
' Call CreateFolders("C:\Test\Test2\Test3")
' eller
' Call CreateFolders("C:\Test\Test2\Test3\")
End Sub
Avatar billede clausjacobsen Nybegynder
17. november 2002 - 10:26 #3
Yooo sjh,

Den sidder lige i skabet :)

Print til dig, tak for hjælpen.

/Claus
Avatar billede clausjacobsen Nybegynder
17. november 2002 - 10:27 #4
Point var nu egentligt det som jeg mente ;-)
Avatar billede sjh Nybegynder
18. november 2002 - 15:47 #5
;)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester



IT-JOB

Netcompany A/S

Network Engineer

ILLUM A/S

IT Manager

Danske Spil A/S

Senior IT-projektleder

Danske Commodities A/S

Senior product designer