Oprettelse af Directory/Bibliotek

oprettet = opretter, selvfølgelig.......lige en lille stavefejl..

HorsMark ASP-Regel nr. 1:
\"Alt er muligt spørgsmålet er bare hvordan!\"

Du kan lave et stykke kode der først checker om der eksistere et sådant bibliotek og hvis ikke så opret nyt bibliotek. Men prøv lige og beskriv hvad du vil lidt mere præcist

\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
\' BuildTestDirectory
\' Purpose:
\'    Builds a directory hierarchy to demonstrate the FileSystemObject.
\'    We\'ll build a hierarchy in this order:
\'      C:\\Test
\'      C:\\Test\\ReadMe.txt
\'      C:\\Test\\Beatles
\'      C:\\Test\\Beatles\\OctopusGarden.txt
\'      C:\\Test\\Beatles\\BathroomWindow.txt
\' Demonstrates the following
\'  - FileSystemObject.DriveExists
\'  - FileSystemObject.FolderExists
\'  - FileSystemObject.CreateFolder
\'  - FileSystemObject.CreateTextFile
\'  - Folders.Add
\'  - Folder.CreateTextFile
\'  - TextStream.WriteLine
\'  - TextStream.Close
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'

Function BuildTestDirectory(FSO)

  Dim TestFolder
  Dim SubFolders
  Dim SubFolder
  Dim TextStream

  \' Bail out if (a) the drive does not exist, or if (b) the directory is being built
  \' already exists.

  If Not FSO.DriveExists(TestDrive) Then
      BuildTestDirectory = False
      Exit Function
  End If

  If FSO.FolderExists(TestFilePath) Then
      BuildTestDirectory = False
      Exit Function
  End If

  Set TestFolder = FSO.CreateFolder(TestFilePath)

  Set TextStream = FSO.CreateTextFile(TestFilePath & \"\\ReadMe.txt\")
  TextStream.WriteLine(\"My song lyrics collection\")
  TextStream.Close

  Set SubFolders = TestFolder.SubFolders
  Set SubFolder = SubFolders.Add(\"Beatles\")
  CreateLyrics SubFolder 
  BuildTestDirectory = True

End Function

Hej Horsmark,

Det jeg vil er at jeg via en formular, kan indtaste et nyt navn på et subdir, så det fx kommer til at hedde: c:\\log\\Tommy hvor \"tommy\" er det nye subdir.

Jeg har prøvet at rode lidt med det script du har sendt, men kan ikke rigtig få det til at virke...

hmm prøv evt. lige at sende det til mig så kan jeg lige på dæt *s*

mvh.
Jesper
HorsMark@tdc.dk

dæt = se på det *GG*

Jeg har sendt dig en mail :o)

har bygget det og sendt det tilbage.

Jeg har bygget det med submitform i HTML og et check for om folderen allerede eksisterer i /log/

MEN du kan jo selv rette det til hvordan det skal være ;-)

Mvh.
Jesper HorsMark