Manipulação de arquivos FSO

eu uso assim para pegar nome de arquivo. Você pode mudar para pegar a pasta

Public function GetFilename(ByVal strGetPath)
 Dim nPos, strFilename
 Dim strDir
 strFilename = ""
 strGetPath = cstr(strGetPath)
 if Not len(strGetPath) = 0 Then
 nPos = InStrRev(strGetPath, "\", Len(strGetPath))
 if nPos > 0 Then
 strFilename = Right(strGetPath, Len(strGetPath) - nPos)
 'Response.Write strFilename
 End if
 nPos = InstrRev(strGetPath, "\", Len(strGetPath) - nPos)
 if nPos > 0 Then
 strDir = Right(strGetPath, Len(strGetPath) - nPos)
 Else
 strDir = ""
 End if
 End if
 GetFilename = strFilename
 End function

mude para FolderName.

Estas rotinas podem retirar um nome de arquivo de um caminho, um diretório de um caminho, e uma extensão de um caminho. Eles também podem determinar o caminho do diretório pai. Eles são bastante simples que eu uso em varios lugares.

Function ParentDirectory(ByVal asDirectory)
If Len(asDirectory) = 0 Then Exit Function
asDirectory = Replace(asDirectory, "/", "\")
If Right(asDirectory, 1) = "\" Then
asDirectory = Left(asDirectory, Len(asDirectory) - 1)
End If
If asDirectory = "" Then Exit Function
If InStr(1, asDirectory, "\") = 0 Then Exit Function
asDirectory = Left(asDirectory, InStrRev(asDirectory, "\"))
ParentDirectory = asDirectory
End Function

' ---------------------------------------
Function CurrentDirectory()
CurrentDirectory = StripDirectory(Request.ServerVariables("PATH_TRANSLATED"))
' CurrentDirectory = Server.MapPath("/")
'
End Function

' ---------------------------------------
Function StripDirectory(ByVal asPath)
If asPath = "" Then Exit Function
asPath = Replace(asPath, "/", "\")
If InStr(1, asPath, "\") = 0 Then Exit Function
asPath = Left(asPath, InStrRev(asPath, "\"))
StripDirectory = asPath
End Function
'---------------------------------------

Function StripFileName(ByVal asPath)
If asPath = "" Then Exit Function
asPath = Replace(asPath, "/", "\")
If InStr(asPath, "\") = 0 Then Exit Function
If Right(asPath, 1) = "\" Then Exit Function

StripFileName = Right(asPath, Len(asPath) - InStrRev(asPath, "\"))
End Function
'---------------------------------------

Function StripFileExt(sFileName)
If sFileName = "" Then Exit Function
If InStr(1, sFileName, ".") = 0 Then Exit Function
StripFileExt = Right(sFileName, Len(sFileName) - InStrRev(sFileName, ".") + 1)
End Function

vlw xanburzum pelas dicas.

Não consegui fazer por FSO, estava gastando muito tempo nisso e com poucos resultados devido a falta de conhecimentos.

Acabei partindo para algo que não queria, que é deixar Todas as Fotos em uma única pasta mesmo, ( são centenas de fotos ).

Nesse caso, estou renomeando cada foto, e inserindo a referencia delas no BD e depois chamando por código inserido.

São três tabelas de cadastro, 2 com campos de opção de escolhas e a Terceira onde armazeno todas as informações passadas: CodTabela1, CodTabela2, e os nomes de cada foto cadastrada.

Depois para listar o conteúdo, eu monto a SQL com os dados dessas tabelas.

Por ora ta dando certo, embora eu queria fazer pelo FSO, pois assim ele iria cadastrar as Fotos em suas pastas criadas de forma distinta.

Mas vlw pela sua atenção como sempre.

dá uma olhada no fórum pois eu coloquei um sisteminha de thumbnails, ou pode usar componentes como o csImageFile, AspJpeg, ASPThumb, ou na maioria das vezes para um maior efeito e beleza nos thumbnails usar jQuery