Visual Basic - Dolor de cabeza con un ejercicio de VBS

Life is soft - evento anual de software empresarial
   
Vista:

Dolor de cabeza con un ejercicio de VBS

Publicado por Arlanduskus (5 intervenciones) el 27/05/2015 00:00:43
Hola buenas. Nuestro profesor de VBS nos ha mandado un ejercicio para hacer y llevo dándole muchas vueltas y aun no he conseguido hacerlo. Os lo paso para a ver si alguno sabe hacerlo... porque ya no se que hacer.

"Se trata de hacer un programa que *cree carpetas a partir de un fichero que contiene nombres de usuarios. El programa pedirá la ruta donde crearemos las carpetas (C:\USUARIOS, C:\ALUMNOS, C:\CLIENTES, o lo que sea). Después el programa tiene que pedir el nombre del fichero con los nombres, y después tiene que crear la carpeta correspondiente a cada nombre dentro de esta ruta. Cómo siempre se tiene que controlar la existencia del fichero y la de la ruta propuesta.
Mientras hace el trabajo, el programa tiene que ir tirando un archivo de informe (INFORME.TXT o similar) donde diga la hora y fecha de hoy, el número de carpetas creadas y el nombre de las mismas."
Estoy un poco desesperado, cuento con vuestra ayuda muchísimas gracias.
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

Dolor de cabeza con un ejercicio de VBS

Publicado por Juan Gilberto (278 intervenciones) el 27/05/2015 19:31:03
Parte el problema en pedacitos

-Como pido el nombre del archivo donde estan los nombres
(Puedes utilizar una ventana de dialogo o un simple inputbox)

-Como Abrir archivos de texto

-Como Leer archivos de texto

-Como Comprobar que exista una Carpeta o un Archivo

-Como Crear una carpeta

-Como Crear un archivo

-Como Escribir en un archivo de text

-Como Cerrar un archivo de texto

Ya que sepas cada instruccion en particular, las vas acomodando segun lo que necesites
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

Dolor de cabeza con un ejercicio de VBS

Publicado por LUIS A. FRANCO R. FRANCO_LUIS776@YAHOO.ES (72 intervenciones) el 27/05/2015 23:57:57
Buenas tardes Arlanduskus

sigue las instrucciones de juan Gillermo. Si no das con lo que necesitas escribe un correo especificando lo que llevas adelantado.

Sin mas por el Momento se Despide.

LUIS A FRANCO R
INGENIERO DE SISTEMAS
EMAIL: FRANCO_LUIS776@YAHOO.ES
TLF: 0426-5821929
PIN: 79F120E2
INSTAGRAM: FRANCO776
TWITTER: @FRANCO776
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

Dolor de cabeza con un ejercicio de VBS

Publicado por Arlanduskus (5 intervenciones) el 28/05/2015 00:15:44
Hola mira de momento llevo esto, pero no consigo avanzar. Muchas gracias, a ver si me puedes hechar una mano.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
'VARIABLES (fs se utiliza para trabajar con archivos y carpetas, obligatorio siempre)
Dim f,fs
 
'PEDIR DATOS
ruta = Inputbox("Introduce la ruta donde crear las carpetas: ")
archivo = Inputbox("Introduce el archivo con la lista de nombres a utilizar: ")
 
'LEER ARCHIVO(S) Y CARPETA
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const Leer = 1
Set objFile1 = objFSO.OpenTextFile(archivo, Leer)
Set objFile2 = objFSO.OpenTextFile(archivo, Leer)
Set objFile3 = objFSO.OpenTextFile(archivo, Leer)
 
'LINEA Nº1 DEL ARCHIVO DE TEXTO EN EL FOR, Y ASI SUCESIVAMENTE..
 
For i = 1 To 0
    objFile1.ReadLine
Next
 
'LINEA Nº2 ETC...
 
For i = 1 To 1
    objFile2.ReadLine
Next
 
For i = 1 To 2
    objFile3.ReadLine
Next
 
linea1 = objFile1.ReadLine
linea2 = objFile2.ReadLine
linea3 = objFile3.ReadLine
 
'CERRAR ARCHIVOS
 
objFile1.Close
objFile2.Close
objFile3.Close
 
'CREAR CARPETAS Y CARPETA RAIZ LLAMADA CON LA VARIABLE "RUTA"
 
Set fs = CreateObject("Scripting.FileSystemObject")
Set carpeta1=fs.CreateFolder(ruta)
Set carpeta2=fs.CreateFolder(linea1)
Set carpeta3=fs.CreateFolder(linea2)
Set carpeta4=fs.CreateFolder(linea3)
 
'INFORME DE DATOS (REGISTRO)
fecha=date
hora=time
 
Set objTextFile = objFSO.OpenTextFile("C:\" & "INFORME.txt", 8,True) 'ruta y archivo donde se guarda
objTextFile.Writeline(fecha & ":" & hora)
objTextFile.close
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