Inicio > Visual Fox Pro, Visual Fox Pro (API de Windows) > Ejemplos de Window Scripting en Visual Fox Pro

Ejemplos de Window Scripting en Visual Fox Pro


Cómo obtener información básicos del la computadora

WshNetwork = CreateObject(‘WScript.Network’)
lcMessage=’Dominio = ‘ + WshNetwork.UserDomain + CHR(13)
lcMessage=lcMessage+ ‘Nombre de la Computadora =’ + WshNetwork.ComputerName+CHR(13)
lcMessage=lcMessage+ ‘nombre Usuario = ‘ + WshNetwork.UserName
MESSAGEBOX(lcMessage)

Cómo asignar una unidad de red

oNet = CreateObject(‘WScript.Network’)
oNet.MapNetworkDrive(‘T:’,’\\miservidor\misarchivos’,.T.,’usuario’,’password’)

Cómo eliminar una conexión de red

WshNetwork = CreateObject(‘WScript.Network’)
WshNetwork.RemoveNetworkDrive(‘T’)

Cómo agregar una conexión de impresora

oNet = createobject(‘WScript.Network’)
oNet.AddWindowsPrinterConnection(‘\\NombreServidor\NombreImpresora’)

Cómo establecer una impresora predeterminada de Windows

oNet = CreateObject(‘WScript.Network’)
oNet.SetDefaultPrinter(‘\\NombreServidor\NombreImpresora’)

Cómo comprobar el espacio disponible en una unidad de disco determinado

objFSO = CreateObject(‘Scripting.FileSystemObject’)
objDrive = objFSO.GetDrive(‘C:’)
MESSAGEBOX(‘Available space: ‘ + chr(13)+TRANSFORM(objDrive.AvailableSpace,’999,999,999,999,999’+’ kb’ ))

Cómo copiar un archivo

FSO = CreateObject(‘Scripting.FileSystemObject’)
FSO.CopyFile(‘c:\Archivo.txt’,’c:\x\’)

Cómo crear una carpeta

fso = createobject(‘Scripting.FileSystemObject’)
fldr = fso.CreateFolder(‘C:\NuevaCarpeta’)

Cómo eliminar una carpeta

fso =createobject(‘Scripting.FileSystemObject’)
fldr = fso.DeleteFolder(‘C:\CarpetaEliminar’)

Cómo determinar si existe una carpeta

fso =createobject(‘Scripting.FileSystemObject’)
? fso.FolderExists(‘C:\ExisteCarpeta’)

Cómo crear un archivo

fso = CreateObject(‘Scripting.FileSystemObject’)
f1 = fso.CreateTextFile(‘c:\archivoacrear.txt’, .T.)

Cómo crear un archivo y escribir en el

fso = CreateObject(‘Scripting.FileSystemObject’)
tf = fso.CreateTextFile(‘c:\miarchivo.txt’, .t.)
tf.WriteLine(‘Testing 1, 2, 3.’)
tf.WriteBlankLines(3) && Skip three lines
tf.Write (‘This is a test.’)
tf.Close
MODIFY FILE ‘c:\miarchivo.txt’

  1. Aún no hay comentarios.
  1. No trackbacks yet.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: