Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

wilnet

Manipulação de arquivos FSO

Recommended Posts

Pessoal, peguei um trabalho já existente para reformular.

 

Ele usa muito álbum de Fotos "Título" e "Galeria de Fotos" ( Titulo irá para o BD, Pasta por FSO )

 

O que preciso é:

 

1) Cadastrar o Título e as Fotos, porém cada TÍTULO criado, será o mesmo nome da Pasta Criada. ( Titulo irá para o BD, Pasta por FSO )

 

2) Sempre que for Cadastrar mais Fotos para este TÍTULO já existente, como faço para recuperar essa Pasta na ora de upar?

 

Ontem, passei pesquisando sobre FSO, mais não achei nada do que preciso, por isso resolvi postar em busca de ajuda.

 

Grato

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.