Visual Basic - Cortar y pegar un archivo

Life is soft - evento anual de software empresarial
 
Vista:

Cortar y pegar un archivo

Publicado por yerotos (16 intervenciones) el 13/10/2004 19:19:26
Cada cierto tiempo me dejan un archivo *.txt en una carpeta y quisiera hacer un programa que me mire a ver si existe este archivo, y de ser asi que me lo corte y lo pegue en otra carpeta.
Muchas gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cortar y pegar un archivo

Publicado por Ruri (583 intervenciones) el 14/10/2004 04:20:10
Usa algo así:

Const Loc as string = "C:\...\archivo.txt" 'Ubicación del archivo
Const NewLoc as string = "C:\Nueva\archivo.txt" 'Ubicación donde movés el archivo

if dir$(Loc)="" then exit sub 'Si no existe el archivo salgo
SetAttr Loc, vbNormal 'Cambio los atributos
FileCopy Loc, NewLoc 'Copio el archivo
Kill Loc 'Elimino el archivo original

Este código lo colocás en un programa que lo ejecute de forma automática cada cierto tiempo.

Espero que te sirva
Saludos Ruri
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar