PEGAR NOME DEPOIS DA BARRA \

USUARIO.EXCLUIDOS 15/09/2005 02:27:19
#104269
Como faço para que quando eu encontre esse arkivo através desse código:
no módulo:
Public Sub getFiles(pasta As Folder)
Dim pst As Folder
Dim item As FolderItem
Dim itens As FolderItems
Dim arquivo$, extensão$

Set itens = pasta.Items
For Each item In itens
If item.IsFolder Then
Set pst = item.GetFolder
getFiles pst
Else
arquivo = item.Path
extensão = Right$(arquivo, 4)
If LCase$(extensão) = ".mp3" Then
Debug.Print arquivo
DoEvents
End If
End If
Next
End Sub

no botão:

Dim sh As New Shell, pasta As Folder
Set pasta = sh.BrowseForFolder(Me.hWnd, "Selecionar Pasta", 0)
If Not pasta Is Nothing Then
getFiles pasta

End If

Quero pegar todo o nome do arquivo que terminar com .mp3 e pegar apenas o nome depois da ultima barra, como faço isso?
WEBMASTER 15/09/2005 03:09:10
#104273
vc pode usar o commando mid

é uma boa

Mid

Devolve parte de uma string. Ao contrário de Left e Right, o MID pode pegar qualquer parte da String.

sai = Mid("Vamos lá programar", 7, 8) os numero significam q ele vai começar no carcter 7 e termina no 8

sai vai ficar com "lá"

ve se isso te ajuda..

Falou cara até mais

"O MAIS INTELIGENTE é AQUELE QUE SABE Q NÃO SABE!" [S67]
WEBMASTER 15/09/2005 08:32:17
#104286 Resposta escolhida
Use o instrrev junto com mid...
Veja esta função, msgbox("c:\musicas
acionais\musica01.mp3")

Private Function GetFileTitle(Filename As String) As String
Dim I As Integer, C As String, Pos As Integer
If Trim(Filename) = "" Then
  GetFileTitle = ""
Else
  For I = 1 To Len(Filename) Step 1
    C = Mid(Filename, I, 1)
    If C = "\" Then Pos = I + 1
  Next
  GetFileTitle = Mid(Filename, Pos, (Len(Filename)+1-Pos))
End If
End Function
LIONHEART 15/09/2005 15:16:52
#104414
ISSO AQUI FUNCIONA Q EU TESTEI!!

SÓ“ TROCA TEXT1 PELO NOME DO ARQUIVO QUE VC QUISER


    Dim x As String, ApenasNome As String, NomeSemExtencao As String
    Dim iPos As Integer
    
    x = StrReverse(Text1) 'inverte string    ex. 3pm.acisum\89BV\oidutS lausiV tfosorciM\seliF
    iPos = InStr(x, "\") 'procura pela primeira "\"
    x = Mid(x, 1, iPos - 1) 'aqui vc já tem o nome assim  -->  3pm.acisum
    
    ApenasNome = StrReverse(x) 'aqui vc tem o nome do arquivo, tipo "musica.MP3"
    
    iPos = InStr(x, ".")   'ai vc pega o ponto da extencao
    NomeSemExt = StrReverse(Mid(x, iPos - 1)) 'e recebe agora só o nome do arquivo arrumado ..  musica
    
    MsgBox ApenasNome & "---" & NomeSemExt ' e exibe ambos
USUARIO.EXCLUIDOS 15/09/2005 15:31:21
#104425
LION, eu preciso pegar o nome da pasta que está o arquivo
O nome dele, jah consigo pegar
GANDA.NICK 15/09/2005 15:52:53
#104436
se tiveres usando o codigo k te dei com a dirfilelist, é apenas assim

Label1.Caption = Dir1.Path ' label1 ou uma variavel k tu keiras
USUARIO.EXCLUIDOS 15/09/2005 16:35:19
#104457
Soh preciso do nome da pasta
Por exemplo:
C:\Musicas\ACDC\Please Don't Go.mp3
Quero que ele pegue o ACDC apenas
outro exemplo:
C:\Musicas\Hammerfall\The templar flame.mp3
Quero que ele pegue o hammerfall, que é a ultima pasta.
LIONHEART 15/09/2005 16:43:46
#104460
da pasta? blz.

declara essas suas duas funcoes que eu AMO DE PAIXÃO!!!

e chama assim

nome_da_pasta = Piece( campo, NumberOfCaracter(campo,"\"), "\")


resolvido


Private Function Piece(Texto As String, Pedaco As Double, Optional Delimitador As String = " ") As String
    'Extrai um pedaco de uma String de acordo com o Delimitador
    'AVISO: usei a função NumberOfCaracter que eu mesmo criei!!
    
    Dim Str     'Não sei que tipo de variavel declarar :(
    
    Pedaco = Pedaco \ 1
    Str = Split(Texto, Delimitador)
    
    If Pedaco > (NumberOfCaracter(Texto, Delimitador) + 1) Then Piece = "": Exit Function
    Piece = Str(Pedaco - 1)
End Function

Private Function NumberOfCaracter(Texto As String, Caracter As String) As Double
'Retorna o Nº de Caracteres dentro de uma String
    Dim Contador As Double
    Dim iPos As Double
    
    iPos = 1: Contador = 0
    While Not iPos = 0
        iPos = InStr(iPos, Texto, Caracter)
        If Not iPos = 0 Then Contador = Contador + 1: iPos = iPos + 1
    Wend
    
    NumberOfCaracter = Contador
End Function
Tópico encerrado , respostas não são mais permitidas
Voltar