Ir para o conteúdo
a3deluxe

NumericUpDown para copiar ficheiros

Mensagens Recomendadas

a3deluxe

Boas,

Queria utilizar o NumericUpDown para copiar ficheiros,

tenho varios ficheiros numerados, queria utilizar o NumericUpDown para copiar esses ficheiros,

alguma sugestão como posso fazer?

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
cdaniel.marques

Escolher um número no NumericUpDown, carregar num botão, e copiar número do ficheiro escolhido no NumericUpDown?

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
cdaniel.marques

Código do botão "Copiar":

Dim FicheiroParaCopiar  As String
Dim FicheiroNovo As String

FicheiroParaCopiar = "C:\Users\Utilizador\Documentos\" & NumericUpDown1.Value & ".txt"
FicheiroNovo = "C:\Users\Utilizador\Documentos\FicheirosCopiados\"  & NumericUpDown1.Value & ".txt"

If System.IO.File.Exists( FicheiroParaCopiar ) = True Then
      System.IO.File.Copy( FicheiroParaCopiar, FicheiroNovo )
      MsgBox("Ficheiro Copiado com Sucesso!")
End If

Por exemplo, para um ficheiro de texto.

Editado por cdaniel.marques

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
a3deluxe

Tentei colocar assim no botao e não funcionou:

//	

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    Dim FileToCopy As String
	Dim NewCopy As String

	FileToCopy = "d:\Bin\1\" & NumericUpDown1.Value & ".cod"
	NewCopy = "d:\" & NumericUpDown1.Value & ".cod"

	If System.IO.File.Exists(FileToCopy) = True Then

		System.IO.File.Copy(FileToCopy, NewCopy)
		MsgBox("File Copied")

	End If
End Sub	  

queria que cada numero da NumericUpDown1 corresponde-se a uma pasta com um ficheiro

com a extensao .cod

como mostra o meu código.

sao 100 pastas, qual é a melhor maneira de fazer,para atribuir cada pasta a um numero daNumericUpDown ?

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
cdaniel.marques
FileToCopy = "d:\Bin\" & NumericUpDown1.Value  & "\" & NumericUpDown1.Value & ".cod" 'Exemplo: d:\Bin\1\1.cod
NewCopy = "d:\"& NumericUpDown1.Value & "\" & NumericUpDown1.Value & ".cod"		  'Exemplo: d:\1\1.cod
Dim NewFileFolder as String = "d:\"& NumericUpDown1.Value

'Verifica se existe o número da pasta para onde vais copiar o novo ficheiro, cria se não existir
If(Not System.IO.Directory.Exists(NewFileFolder)) Then
      System.IO.Directory.CreateDirectory(NewFileFolder)

If System.IO.File.Exists(FileToCopy) = True Then
   System.IO.File.Copy(FileToCopy, NewCopy)
   MsgBox("File Copied")
End If

Editado por cdaniel.marques

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
cdaniel.marques

Faltava um End If. Tenta assim:

    Dim FileToCopy As String
    Dim NewCopy As String
    FileToCopy = "d:\Bin\" & NumericUpDown1.Value & "\" & NumericUpDown1.Value & ".cod" 'Exemplo: d:\Bin\1\1.cod
    NewCopy = "d:\" & NumericUpDown1.Value & "\" & NumericUpDown1.Value & ".cod"			   'Exemplo: d:\1\1.cod
    Dim NewFileFolder As String = "d:\" & NumericUpDown1.Value
    'Verifica se existe o número da pasta para onde vais copiar o novo ficheiro, cria se não existir
    If (Not System.IO.Directory.Exists(NewFileFolder)) Then
	    System.IO.Directory.CreateDirectory(NewFileFolder)
    End If
    If System.IO.File.Exists(FileToCopy) = True Then
	    System.IO.File.Copy(FileToCopy, NewCopy)
	    MsgBox("File Copied")
    End If

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
a3deluxe

Boas,

Ainda não resolvi o problema, ele não esta a copiar o ficheiro.cod

só esta criar a pasta de destino.

tambem não queria que ele cria-se nunhuma pasta de destino, copia-se só o ficheiro para o destino.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Tiago Simões Marques

Boas,

Tens a certeza que o ficheiro decrito no campo 'FiletoCopy', está com o caminho correcto?

Cumprimentos,


Tiago Simões Marques

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
a3deluxe

//	  FileToCopy = "d:\Bin\" & NumericUpDown1.Value & "\" & NumericUpDown1.Value & ".cod"	 

sim esta , não preciso colocar o nome do ficheiro?

ja tentei com o nome do ficheiro e tambem não copia.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
cdaniel.marques

Quando dizes, não está a copiar o ficheiro.cod, como se chama o ficheiro, não será 1.cod, 2.cod, 3.cod, conforme o número selecionado na Numeric Up Down?

Talvez seja + fácil mostrares o código que tens no momento.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
a3deluxe

Não aparece a MsgBox.

o código que tenho é este:

//  

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
	Dim FileToCopy As String
	Dim NewCopy As String
	FileToCopy = "D:\Bin\1\file.cod" & NumericUpDown1.Value & "\" & NumericUpDown1.Value & ".cod" 'Exemplo: d:\Bin\1\1.cod
	NewCopy = "d:\" & NumericUpDown1.Value & "\" & NumericUpDown1.Value & ".cod"						   'Exemplo: d:\1\1.cod
	Dim NewFileFolder As String = "d:\" & NumericUpDown1.Value
			If System.IO.File.Exists(FileToCopy) = True Then
		System.IO.File.Copy(FileToCopy, NewCopy)
		MsgBox("File Copied")
	End If
End Sub

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Tiago Simões Marques

Vai a esta pasta: D:\Bin\1\ e vê se tens lá o ficheiro: "1.Cod" por exemplo.


Tiago Simões Marques

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
a3deluxe

na pasta D:\Bin\1\ tenho lá um ficheiro chamado file.cod

e este ficheiro que quero cópiar para o d:\

existem varias pastas 1, 2 , 3 ,4.... em todas elas o ficheiro existente o ficheiro file.cod

que quero cópiar para o d:\

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Tiago Simões Marques

Se tu colocares o seguinte código antes do ultimo o que te dá?

MsgBox(FileToCopy)


Tiago Simões Marques

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
cdaniel.marques

FileToCopy = "d:\Bin\" & NumericUpDown1.Value  & "\" & NumericUpDown1.Value & ".cod" [b]'Exemplo: d:\Bin\1\1.cod[/b]
NewCopy = "d:\"& NumericUpDown1.Value & "\" & NumericUpDown1.Value & ".cod"		  '[b]Exemplo: d:\1\1.cod[/b]

na pasta D:\Bin\1\ tenho lá um ficheiro chamado file.cod

e este ficheiro que quero cópiar para o d:\

existem varias pastas 1, 2 , 3 ,4.... em todas elas o ficheiro existente o ficheiro file.cod

que quero cópiar para o d:\

Então precisas de adaptar o código.

Onde está:

FileToCopy = "d:\Bin\" & NumericUpDown1.Value & "\" & NumericUpDown1.Value & ".cod"

Substituis para:

FileToCopy = "d:\Bin\" & NumericUpDown1.Value & "\file.cod"

E em:

NewCopy = "d:\" & NumericUpDown1.Value & "\" & NumericUpDown1.Value & ".cod"

Mudas para:

NewCopy = "d:\" & NumericUpDown1.Value & "\file.cod"

Editado por cdaniel.marques

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
a3deluxe

Coloquei assim e tambem não funcionou.

//	 Dim FileToCopy As String
	Dim NewCopy As String
	FileToCopy = "D:\Bin\1\file.cod" & NumericUpDown1.Value & "\" & NumericUpDown1.Value & "file.cod"
	NewCopy = "d:\" & NumericUpDown1.Value & "\" & NumericUpDown1.Value & "file.cod"						  
	Dim NewFileFolder As String = "d:\" & NumericUpDown1.Value
	If System.IO.File.Exists(FileToCopy) = True Then
		System.IO.File.Copy(FileToCopy, NewCopy)
		MsgBox("File Copied")
	End If

nem apareceu a Msgbox,

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
cdaniel.marques

Coloquei assim e tambem não funcionou.

//	 Dim FileToCopy As String
	Dim NewCopy As String
	FileToCopy = "D:\Bin\1\file.cod" & NumericUpDown1.Value & "\" & NumericUpDown1.Value & "file.cod"
	NewCopy = "d:\" & NumericUpDown1.Value & "\" & NumericUpDown1.Value & "file.cod"			

nem apareceu a Msgbox,

Troca as duas linha acima, para que fique assim:

Dim FileToCopy As String
Dim NewCopy As String
FileToCopy = "D:\Bin\" & NumericUpDown1.Value & "\file.cod"  ' O que dará d:\bin\1\file.cod (se o numero selecionado no numeric up down for 1)
NewCopy = "d:\" & NumericUpDown1.Value & "\file.cod"	   'o que dará d:\1\file.cod 	  (se o numero selecionado no numeric up down for 1)
Dim NewFileFolder As String = "d:\" & NumericUpDown1.Value
If System.IO.File.Exists(FileToCopy) = True Then
System.IO.File.Copy(FileToCopy, NewCopy)
   MsgBox("File Copied")
End If

Editado por cdaniel.marques

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
a3deluxe

Obrigado cdaniel.marques

Assim já funcionou, agora queria o inverso

ele esta a copiar do D:\Bin\ para a d:\1\

tenho 100 pastas, todas numeradas de 1 a 100, todas elas com o file.cod

queria selecionar por exemplo 2 (corresponde a pasta 2) e copiar para o d:\

obrigado

Abracos

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
cdaniel.marques

Tudo no mesmo botão?

Se a pasta existir em d:\ copiar para d:\bin

Se a pasta existir em d:\bin copiar para d:\?

Editado por cdaniel.marques

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Tiago Simões Marques

Coloquei assim e tambem não funcionou.

//	
Dim FileToCopy As String
Dim NewCopy As String
FileToCopy = "D:\Bin\1\file.cod" & NumericUpDown1.Value & "\" & NumericUpDown1.Value & "file.cod"
NewCopy = "d:\" & NumericUpDown1.Value & "\" & NumericUpDown1.Value & "file.cod"						  
Dim NewFileFolder As String = "d:\" & NumericUpDown1.Value
If System.IO.File.Exists(FileToCopy) = True Then
  System.IO.File.Copy(FileToCopy, NewCopy)
  MsgBox("File Copied")
End If

nem apareceu a Msgbox,

//
FileToCopy = "D:\Bin\1\file.cod" & NumericUpDown1.Value & "\" & NumericUpDown1.Value & "file.cod"  'Claro que não funcionou porque o que tens aqui é isto: "D:\Bin\1\file.cod11file.cod
NewCopy = "d:\" & NumericUpDown1.Value & "\" & NumericUpDown1.Value & "file.cod"  '"d:\1\1file.cod 'esta a dar problemas porque o caminho não está certo só isso.

Editado por Tiago Simões Marques

Tiago Simões Marques

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
a3deluxe

Sim tudo no mesmo botao.

copiar de D:\bin\pasta1\ para d:\

copiar de D:\bin\pasta2\ para d:\

.....

copiar de D:\bin\pasta89\ para d:\

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.