ABRIR DOCUMENTOS....

GUTO 21/11/2006 17:29:16
#185612
Boa tarde Pessoal qual é a instruçao pra abrir a Pasta Mesu Documentos eo o icone Meu Computador , e gostaria ainda mais de saber como limpar a Lixeira do PC, tava com uma instruçao aqui mas nao funciona com o Shell, e gostaria de saber se essas instruçoes mudam dependendo do SO, muito Obrigado
USUARIO.EXCLUIDOS 21/11/2006 17:52:38
#185618
API's da lixeira
Com o link acima vc consegue limpar a lixeira.
USUARIO.EXCLUIDOS 21/11/2006 17:57:19
#185619
Cara, consegui aqui mas na gambia, bem, pra abrir meus documentos não foi gambia, agora meu computador, tive que abrir o C: e voltar um nível acima, não sei se tem outra forma, mas foi a única que encontrei...Veja o arquivo em anexo...

Qto à  lixeira, poste a forma como está usando...flw
USUARIO.EXCLUIDOS 21/11/2006 18:43:52
#185633
Uma dica legal tb seria Vc usar uma pasta como Backup pros seus arquivos mantendo os N últimos arquivos de interesse.

Veja no Código (VB-Excel) que fiz pra abaixo:

*'MACRO PARA BACKUP DE ARQUIVOS
*'DELETAR O MAIS ANTIGO E MANTER 7 ARQUIVOS DE BACKUP
Sub Backup()
'
' BackupData Macro
' Macro gravada em 17/08/2004 por Almir Pires

  Respo = MsgBox("Tem certeza de que deseja efetuar o Backup de Compras Gerais?", _
    vbYesNo + vbCritical + vbDefaultButton1)
    Title = "Aviso!"
    If Respo = vbYes Then
    GoTo Start
    Else:
    GoTo Sai
    End If
    
Start:
  ActiveWorkbook.Save
  hoje = Date
    datarquivo = Format(hoje, "ddmm")
    
'SALVAR no "C:\Backup"
    ActiveWorkbook.SaveAs Filename:="C:\Backup\" & [datarquivo] & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

    'SALVAR no Servidor - \\Maquina3\c\Backup
    ActiveWorkbook.SaveAs Filename:="\\Maquina3\c\Backup\" & [datarquivo] & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    
'Esta Etapa pesquisa por todos os arquivos na pasta que
'terminem com a extensão de arquivo “.xls” e
'exibe o local e o nome de cada arquivo localizado.
'O exemplo também classifica a lista de arquivos retornados
'em ordem alfabética crescente.
 
 'NO PRÓ“PRIO C DA MàQUINA5
Set Pasta = Application.FileSearch
    With Pasta
    .LookIn = "C:\Backup"
    .Filename = "*.xls"
        If .Execute(SortBy:=msoSortByLastModified, _
        SortOrder:=msoSortOrderAscending) > 7 Then
        Kill .FoundFiles(1)
        Else
        For i = 1 To .FoundFiles.Count
        Next i
        MsgBox "Existem " & .FoundFiles.Count & _
            " arquivos *.xls na pasta Backup."
        End If
    End With

End With
    
    'NO SERVIDOR: \\Maquina3\c\Backup
Set Pasta = Application.FileSearch
    With Pasta
    .LookIn = "\\Maquina3\c\Backup"
    .Filename = "*.xls"
        If .Execute(SortBy:=msoSortByLastModified, _
        SortOrder:=msoSortOrderAscending) > 7 Then
        Kill .FoundFiles(1)
        Else
        For i = 1 To .FoundFiles.Count
        Next i
        MsgBox "Existem " & .FoundFiles.Count & _
            " arquivos *.xls na pasta Backup."
        End If
    End With
ActiveWindow.Close
Sai:

End Sub



Qualquer dúvidar, é só entrar em contato!!
Um Abraço!
GUTO 22/11/2006 10:22:56
#185723
MARCELOHF, MATIOLI.......obrigado era isso mesmo , valew mesmo

APJUNIOR....vou tentar fazer isso, valew pela dica cara


Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar