Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-11-2011
Paulao Paulao is offline
Miembro
 
Registrado: sep 2003
Ubicación: Rua D 31 Casa 1 - Inhoaíba - Rio de Janeiro - RJ - Brasil
Posts: 637
Poder: 23
Paulao Va por buen camino
Archivos Thumbs.db aparece de rato

Tengo una aplicacion que cria unas carpetas baseado en una regla. Que pasa es que quando me a copiar unos archivos para esas carpetas(son 3 archivos. PDF, TIF y TXT). Quando me voy a copiar los archivos TXT, me lo aparece esses archivos: Thumbs.db. Como la creacion de las carpetas, los nombres de ellas son parte del nombre del archivo, me lo da error, pues los archivos Thumbs.db pertenence a la regla de construcion del nombre. Abajo mi codigo:

Código:
procedure TForm1.DevolveArquivo(Origem, Destino: String);
var
  SR: TSearchRec;
  DDir,SDir,Dir: String;
  I: Integer;
  nm_dir,
  novo_dir,
  str_token,
  novo_cont,
  nm_arq: String;
begin
  SDir := IncludeTrailingPathDelimiter(Origem);
  DDir := IncludeTrailingPathDelimiter(Destino);
  Dir := IncludeTrailingPathDelimiter(Destino);

  I := FindFirst(SDir + '*.*', faAnyFile-faDirectory, SR);
  while I = 0 do
  begin
    nm_dir := fCopia.CriaDirEdicao(SR.Name);// Aqui dá o erro
    if novo_dir = fCopia.CriaDirEdicao(SR.Name) then
      inc(cont)
    else
      cont := 1;
    novo_cont := fCopia.StrZero(cont,4);
    str_token := fCopia.PegaPosicao(SR.Name,3);
    nm_arq := StringReplace(SR.Name,str_token,novo_cont,[rfReplaceAll]);

    ForceDirectories(Dir + IncludeTrailingPathDelimiter(fCopia.CriaDirEdicao(nm_arq)));
    DDir := DDir + IncludeTrailingPathDelimiter(fCopia.CriaDirEdicao(nm_arq));
    ForceDirectories(DDir + IncludeTrailingPathDelimiter(novo_cont));
    DDir := DDir + IncludeTrailingPathDelimiter(novo_cont);
    MoveFile(PChar(SDir+SR.Name),PChar(DDir+nm_arq));
    DDir := IncludeTrailingPathDelimiter(Destino);
    novo_dir := fCopia.CriaDirEdicao(nm_arq);

    I := FindNext(SR);
  end;
  FindClose(SR);

  I :=  FindFirst(SDir + '*', faDirectory, SR);
  while I =0 do
  begin
     if (SR.Attr = faDirectory) and (SR.Name <> '.') and (SR.Name <> '..') then
       DevolveArquivo(SDir + SR.Name, DDir);
     I := FindNext(SR);
  end;
end;
Responder Con Cita
  #2  
Antiguo 10-11-2011
Avatar de javier7ar
javier7ar javier7ar is offline
Miembro
 
Registrado: abr 2006
Ubicación: Argentina
Posts: 124
Poder: 21
javier7ar Va por buen camino
Thumbs.db es un archivo de windows, que lo crea automaticamente para guardar las miniaturas de las imagenes generalmente. Busca en google para que sirve este archivo y vas a encontrar mucha info
Saludos
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Para reir un rato roman Humor 4 03-09-2011 14:12:01
Para que se rian un rato. juliamo28 Humor 0 15-04-2011 21:41:06
pregunta hace rato no programo en delphi? julyus OOP 9 06-08-2010 16:02:11
Algunos videos para pasar el rato Faust Humor 3 24-06-2010 05:09:49


La franja horaria es GMT +2. Ahora son las 23:04:27.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi