Danleonhart

O que é que separa as informações ? assim, tem algum caractére que fica entre "DADOS" e "DADOS" ou é apenas um "espaço" ( ) ? acho que usando a função Split(), e jogando o texto em um array, e dando um For To com LBound & UBound pode resolver... basta saber o caractére que há (se é que há), entre as informações... :huh: *** EDITADO *** Aqui só um exemplo: Private Sub cmd1_Click() Dim Vtr() As String, Texto As String, I As Integer Texto = Txt1.Text Vtr() = Split(Texto, " ") ' Assim ele vai separar as palavras onde for encontrado "espaço" For I = LBound(Vtr) To UBound(Vtr) MsgBox Vtr(I) Next End Sub Com um TexBox (Txt1) e um CommandButton (cmd1) pode ser feito este exemplo...configure a propriedade do TextBox "Multiline = True", digite um texto com espaço separando as palavras e serão apresentadas as mesmas em caixas de mensagem...;)

Cara...testei no Win7 Ultimate e foi de boa... concordo com o Kuroi, será se realmente este arquivo está em seu usuário ou no Desktop de "All Users" ??? Outra possibilidade...o formato do arquivo é realmente txt ??? foi você mesmo que criou ??? só para lembrar... outro dia teclando com um amigo, ele estava querendo "excluir" um arquivo no formato ".log", só que ele colocava ".txt"... aí não dá... :D Seguinte... Criei um aplicativo aqui para renomear...ele abre a busca no Desktop...testa aí no seu PC... download: AppRenamer

Olá Serginho ! Seguinte... Algumas observações...da maneira que você declarou as variáveis elas estão automáticamente com o tipo "Variante"...ou seja, você não determinou nenhum "Tipo" para as variáveis, o correto seria setar como "String". Ví também que nos formatos você renomeia de "Texto" (.txt) para um formato que desconheço (.OLD)... Bem, fora as observações fiz um teste aqui e funcionou beleza com diferentes usuários...ficou assim: Private Sub cmd1_Click() Dim Dsk As String, nAnt As String, nNovo As String Dsk = Environ("USERPROFILE") & "\Desktop\" nAnt = Dsk & txt_Antigo.Text nNovo = Dsk & txt_Novo.Text Name nAnt As nNovo MsgBox "Alteração bem sucedida !", vbInformation, "Administrador" End Sub Onde existem 2 caixas de Texto (txt_Antigo e txt_Novo), mais um Botão de comando (cmd1). Criei um arquivo com o nome "Teste.txt" no Desktop e com a aplicação rodando, coloquei o nome na primeira caixa...detalhe, coloquei o nome completo,ou seja, com o formato = "Teste.txt" Na segunda caixa coloquei o nome para renomear...também com o formato = "Novo Teste.txt" E cliquei no botão...BINGO !!! nome alterado com sucesso ! Adapte ao seu código o exemplo acima e veja se funciona aí também, beleza ?! FUIII !!!

Seguinte... Eu deixei a parte do script: Set MyFiles = Folder.files If Right(myfiles.name,3) = tipo And DateDiff("d",myfiles.DateLastModified,now) > strData Then pois deduzí que é ele que dá a condição de filtrar o que deve e quando ser deletado...pois para excluir a pasta em definitivo (não importando o quanto ou o quê tenha dentro), basta usar a linha: objFSO.DeleteFolder strPasta, True então, como não tenho o seu código completo, não tenho como testar...somente chutar ;) por isso a parte de exclusão que você necessita tá aí...basta só adaptar...que só vai ser possível por você mesmo que tem o código full

Nelson... Se você não vai precisar "contar" o número de arquivos na pasta, então elimina o código... :ninja: Vamos ver... :unsure: vamos por parte então... tenta assim: strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set objFSO = CreateObject("Scripting.FileSystemObject") 'Diretorio onde vamos apagar strPasta = "C:\vários" 'Ultima modificação strData = 60 If (objFSO.FolderExists(strPasta) = True) Then Set Folder = ObjFSO.GetFolder(strPasta) Set MyFiles = Folder.files If Right(myfiles.name,3) = tipo And DateDiff("d",myfiles.DateLastModified,now) > strData Then objFSO.DeleteFolder strPasta, True End If End if wscript.quit Comenta o que deu... Valeu !

Olá... posta o código para verificarmos se há algo errado no script... :rolleyes:

Olá... Só de passagem ;)... já passei por isso e tentei via script MS-DOS...mas a solução é o FSO mesmo... Bem, utilizando suas variáveis (já que você tem o caminho setado em uma variavel), basta fazer assim: objFSO.DeleteFolder strPasta, True Acho que basta colocar onde está a linha: "objFSO.Deletefile(strPasta & "\" & myfiles.name)" e retire do ciclo a contagem de arquivos...pois não é preciso...o que tiver na pasta vai embora. Se não der certo, comenta o erro que foi apresentado.

Valeu Kuroi, vou analisar o link :closedeyes:

Na verdade o que quero é criar uma tela, tipo aquelas de Cyber Cafe onde o usuário só tem acesso ao sistema se digitar uma senha...mas irei usá-la como um tipo de bloqueio...tipo, se o usuário estiver logado e precisar sair por um pequeno tempo, então ele aciona a tela, e somente ele poderá desbloquear... entende ?! :unsure:

Estou aberto a opiniões... :rolleyes:

Ok ! :D Sinceramente, nunca que iria imaginar ter de usar também o evento MouseUp para isto :rolleyes: Mais uma vez, VALEU !

Aê Kuroi... não rolou :blink:

Seguinte... Utilizo o mesmo script em um FlexGrid para apresentar um PopUpMenu e funciona 100%... agora se utilizo na ListBox, o PopUpMenu aparece,mas o ítem não recebe o foco...ou seja, tenho de primeiro selecionar o ítem com o botão esquerdo e depois apertar o botão direito para ser apresentado o PopUpMenu...como faço para o ítem receber o foco igual quando se pressiona o botão esquerdo ? :mellow: Meu script: Private Sub Lst1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next With Lst1 If Button = 2 Then .SetFocus PopupMenu FrmPrincipal.M_Oculto, , .Left + X, .Top + Y End If End With End Sub

Seguinte: Tenho uma ImageList com 6 imagens "JPG"...gostaria de apresentá-las sequencialmente em um objeto Image...mas não tá rolando <_< Uso o seguinte script em um objeto "Timer" com o "Interval" setado em 1000, para que troque a imagem a cada segundo: Private Sub Timer2_Timer() Dim I As Integer, Img As Variant Dim Ln As New Collection For I = 1 To IL1.ListImages.Count - 1 Ln.Add I Next For Each Img In Ln Ima1.Picture = IL1.ListImages(Img).Picture Next End Sub O que me intriga é que se coloco uma Mensagem (MsgBox) logo após a setagem da imagem no objeto "Image", o script funciona ! Private Sub Timer2_Timer() Dim I As Integer, Img As Variant Dim Ln As New Collection For I = 1 To IL1.ListImages.Count - 1 Ln.Add I Next For Each Img In Ln Ima1.Picture = IL1.ListImages(Img).Picture MsgBox Img ' <=== Com isso o script funciona ! Next End Sub Ajudinha pessoal !!!

Ou carregá-la em uma variável do tipo "String"... tipo: Dim vShl As String, sCam As String vShl = "xcopy \\servidor\pasta\. " sCam = "C:\Documents and Settings\administrador\Meus documentos\" sCam = sCam & " /yo" Shell vShl & sCam ... :rolleyes: Não testei mas acho que funciona !

NOOOSSSAAA ! O fórum tá paradão... :blink: Bem, conseguí... fica o exemplo: Sub Procurar_Arquivos() Dim Arquivos() As String, I As Integer CD.DialogTitle = "Informe o caminho:" CD.InitDir = Environ("HOMEDRIVE") CD.Filter = "Tipos (*.dll), (*.ocx) e (*.tlb)|*.dll; *.ocx;*.tlb|Todos " & "Arquivos. (*.*)|*.*" CD.FilterIndex = 1 CD.MaxFileSize = &H7FFF ' 32KB buffer ' Commom Dialog configurado para selecionar mais de um arquivo: CD.Flags = cdlOFNHideReadOnly Or cdlOFNPathMustExist Or cdlOFNLongNames Or cdlOFNAllowMultiselect Or cdlOFNExplorer CD.ShowOpen If IsEmpty(CD.FileName) = True Then Exit Sub Else If CD.FileName <> "" Then If InStr(CD.FileName, Chr(0)) Then 'Selecionado vários arquivos: Arquivos = Split(CD.FileName, Chr(0)) For I = 1 To UBound(Arquivos) Lst1.AddItem Arquivos(0) & "\" & Arquivos(I) Next CD.FileName = Empty Else 'Selecionado um único arquivo: Lst1.AddItem CD.FileName End If End If End If CD.FileName = Empty End Sub Uso o exemplo acima para carregar varios arquivos (bibliotecas) em uma ListBox... :D

Pessoal... Alguém sabe um script para se carregar em uma ListBox vários arquivos utilizando o Commom Dialog ? Assim... o usuário escolhe se quer carregar apenas um ou vários... tentei este script mas só carrega vários... e se configuro o script para carregar apenas um arquivo, o nome aparece duplicado no ListBox: Sub MultiSel() On Error GoTo TErro Dim File_Name() As String, I As Integer 'Must set these flags in order to allow 'multiple selection Dialog.Flags = cdlOFNExplorer Or cdlOFNAllowMultiselect Dialog.ShowOpen File_Name() = Split(Dialog.FileName, vbNullChar) For I = LBound(File_Name) + 1 To UBound(File_Name) '<= Aqui eu retiro o "+ 1" para carregar um só arquivo, mas duplica... List1.AddItem File_Name(0) & File_Name(I) Next Exit Sub TErro: If Err.Number = 20476 Then MsgBox "Número excessivo de arquivos selecionados...", vbCritical, App.Title MsgBox "Ação cancelada para evitar sobrecarga no sistema.", vbExclamation, App.Title End If End Sub

:blink: Sem ver o código fica dificil ajudar cara... :huh:

".mht" ou ".mhtml"...é o mesmo :) Ah ! e funcionou beleza com o componente WebBrowser

Reabrindo tópico... :rolleyes: Como capturo as teclas Alt, Tab, Ctrl, Delete e Windows ? Pretendo criar uma função para ao abrir determinado Form, o usuário não saia dele até ter permissão... Tipo, bloquear o Ctrl + Alt + Del...Alt + Tab... evitar aparecer as opções da Janela do Windows e por aí vai... Achei um código para bloquear o Ctrl + Alt + Del mas não funfou: Private Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long Private Sub Form_Load() DisabelCtrlAltDel (True) End Sub Sub DisabelCtrlAltDel(bdisabled As Boolean) Dim X As Long X = SystemParametersInfo(97, bdisabled, CStr(1), 0) End Sub Private Sub Form_Unload(Cancel As Integer) DisabelCtrlAltDel (False) End Sub

Este arquivo é aberto por padrão pelo Navegador configurado no PC (Internet Explorer, Firefox, Google Chrome...), então, vou desenvolver um mini aplicativo que "abra" este tipo de arquivo no Form...uma especie de navegador off-line :rolleyes:

Seguinte... Baixei uma página de Internet completa no formato ".mht"...como proceder para abrir esta página em um Form do VB-6 ?

Tens MSN ??? Via MSN fica melhor de ajudar :D

Já viu este tópico ? http://scriptbrasil.com.br/forum/index.php?showtopic=159981 Fala sobre registro... EDITADO: Achei mais : http://scriptbrasil.com.br/forum/index.php?showtopic=9452 http://scriptbrasil.com.br/forum/index.php?showtopic=46416 http://scriptbrasil.com.br/forum/index.php?showtopic=47605 http://scriptbrasil.com.br/forum/index.php?showtopic=25412 http://scriptbrasil.com.br/forum/index.php?showtopic=35631

Rapidamente passando (e me metendo...:D)... Será que não rola um "SELECT DISTINCT" aí ??? Pelo que deu para entender: rs2.Open "SELECT DISTINCT nºvenda FROM dinheiro", con, adOpenKeyset, adLockOptimistic Só uma opinião... :rolleyes: Minhas dúvidas: "x" = vez ? "dinheiro" é o nome da "Tabela" ? "nºvenda" é o campo de referência da filtragem ?