ok i able to create folder in asp.
but i need you guys to enlighten me on this.

the folder structure is like this.
Saimatkong >> Saimatkong Sub >> Saimatkong Sub Sub

Saimatkong Sub Sub is a folder in Saimatkong Sub
and Saimatkong Sub is a folder in Saimatkong.

so i need the algo to create all the sub sub folder in the parent folder.

give info.

Folder Name eg. >> Saimatkong Sub Sub
Parent Folder Name >> Saimatkong Sub
Path >> Saimatkong > Saimatkong Sub

with the provided info how could i do some looping to create all the sub sub folder?
i need the algo. i can think of it.
thanks.

i m confused with ur folder name

aiks sorry.
basically, (saimatkong sub = saimatkong subfolder) inside saimatkong.
and (saimatkong sub sub = saimatkong subfolder subfolder) inside saimatkong subfolder.

got the structure ?
hehe

Saimatkong ( Main Folder )
-->Saimatkong ( Saimatkong subfolder )
------>Saimatkong ( Saimatkong subfolder subfolder)



This post has been edited by eggy: Mar 3 2006, 04:50 PM

Didnt test but hope it helps..

Dim foldername
Dim deep As
Dim str As

str = "c:"
foldername = "\saimatkong"
deep = 2

For i = 0 To deep
str = str & foldername
set f=fs.CreateFolder(str)
next

thanks but wat i mean it should be
Saimatkong ( Main Folder )
-->Saimatkong sub( Saimatkong subfolder )
------>Saimatkong sub sub( Saimatkong subfolder subfolder)

for clearer image of the folder structure.

i think u misun my concept.
the concept is like this.

i given the folder name and deep above is just as an example.
but the name and folder level is dynamic base on the info that i get.

Folder Name. Folder Parent. Folder Path.

Folder Name eg. (saimatkong sub sub)
Folder Parent eg. (saimatkong sub)
Folder Path eg. (saimatkong > saimatkong sub > saimatkong sub sub

ps. Folder Path is the full path to the current folder.
hope i have gotten the image clear.
thanks

Do you mean something like this,
C:\saimatkong\saimatkong sub\saimatkong sub sub ?

use the System.Diagnostics.Process function, use the mkdir.exe


or use the directoryInfo function to create new folder.

yup. like this.
but it's depends on the info and it's dynamic.
not necessary saimatkong or not necessary how many folder or sub folder in a folder. the part is kinda hard to think

i'm able to create folder.
just tat i need the algo to create the folder structure.

Dim foldername
Dim deep As Integer
Dim str As String
Dim str2 As String

str = "c:"
str2 = " sub"
foldername = "\saimatkong"
deep = 3

For i = 0 To deep

If i > 0 Then
str = str & foldername & str2
str2 = str2 & str2
Else
str = str & foldername
End If

Next

Try running it and see how it goes. You can pass the drive to str, the sub sub tinggie to str2 and the folder name to foldername. It will generate directory according to the deep.

i think you misun me.
the deep and the folder name is dynamic so it can't be generate this way wor.

Why not? You can change the deep and folder name anytime you want to create a new folder. for example you get the info for folder name "Ali' and the depth = 1 , then you just pass "Ali" to foldername and deep =1.

to delete files
use this one

Option Compare Database
Option Explicit

Public Function DeleteAllFiles(ByVal FolderSpec As String) As Boolean

'Deletes all files in folder specified
'by parameter FolderSpec. Does not delete
'subfolders or files within subfolders

'Returns True if sucessful, false otherwise

'Requires a reference the Microsoft Scripting Runtime

'EXAMPLE: DeleteAllFiles "C:\Test"

Dim oFs As New FileSystemObject
Dim oFolder As Folder
Dim oFile As File


If oFs.FolderExists(FolderSpec) Then
Set oFolder = oFs.GetFolder(FolderSpec)
On Error Resume Next
For Each oFile In oFolder.Files
oFile.Delete True 'setting force to true
'deletes read-only file
Next
DeleteAllFiles = oFolder.Files.Count = 0
End If

End Function




haha currently i m need this

but how would u pass it dynamically ?
anyway i have figure it out how to create the folder sturucture.
thanks

ahah good good