Se esse nome de arquivo for fixo com variação somente da data, acredito que
isso funciona. Veja se é o que precisa:
Procedure TForm1.CapturaNomeArquivo();
var strNomeArq, strNewNomeArq : String;
Begin
strNomeArq := '[Diretório]\trocador20002112.jpg';
If ( FileExists( strNomeArq ) ) Then //Verifica se arquivo existe...
strNewNomeArq := Copy( ExtractFileName( strNomeArq ), 9, Length(
ExtractFileName( strNomeArq ) ) );
End;
Espero ter ajudado.
[]'s
"A ideia da vida nao é a esperanca de chegar a ser perfeito mas sim a
vontade de ser cada dia melhor."
----------------------------------------------------------------------------
--
Filipe Pereira Colaneri
[EMAIL PROTECTED]
MSN: [EMAIL PROTECTED]
Cel: (11)96956409
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Arthur Souza
Enviada em: segunda-feira, 20 de fevereiro de 2006 09:27
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Capturando arquivo!
Olá pessoal , to com uma encrenca aqui com respeito a captura de nome de
arquivo, pois acredito que isso seja possível...por exemplo:
Possuo um arquivo jpg cuja o nome é: --> trocador20002112.jpg
Gostaria através do meu programa capturar o nome deste arquivo, porém
removendo a palavra "trocador" restando só os números, portanto sobrando
20002112 e armazenaria ele em minha varíavel é possível isso?
Agradeço seu alguém souber...
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
<http://br.ard.yahoo.com/SIG=12fth34v1/M=396547.7942355.8848059.2369893/D=br
clubs/S=2137111264:HM/Y=BR/EXP=1140445626/A=3310604/R=2/id=noscript/SIG=1540
fueht/*http://lt.dell.com/lt/lt.aspx?CID=11377&LID=314739&DGC=BA&DGSeg=DHS&D
URL=http://www1.la.dell.com/content/products/category.aspx/desktops?c%3dbr%2
6l%3dpt%26s%3ddhs>
_____
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
