cabezabrc

Como renombrar un Archivo especifico en la maquina y que sea de 8 digitos. Private Sub cmdGo_Click() Dim ListadoFiles() As String Dim lstCount As Long Dim lstIndex As Long Dim nRet As Long Text2.Text = "" Text2.Text = Dir1.Path & "\" Dim n As Integer Dim nombre_enc As String Dim nombre As String cont = 0 For n = 0 To File1.ListCount - 1 cont = Val(cont) + 1 If Len(cont) = 1 Then num_nuevo = Val(cont) num_nuevo = "0000000" & num_nuevo & ".tif" Else If Len(cont) = 2 Then num_nuevo = Val(cont) num_nuevo = "000000" & num_nuevo & ".tif" Else If Len(cont) = 3 Then num_nuevo = Val(cont) num_nuevo = "00000" & num_nuevo & ".tif" Else If Len(cont) = 4 Then num_nuevo = Val(cont) num_nuevo = "0000" & num_nuevo & ".tif" Else If Len(cont) = 5 Then num_nuevo = Val(cont) num_nuevo = "000" & num_nuevo & ".tif" Else If Len(cont) = 6 Then num_nuevo = Val(cont) num_nuevo = "00" & num_nuevo & ".tif" Else If Len(cont) = 7 Then num_nuevo = Val(cont) num_nuevo = "0" & num_nuevo & ".tif" Else If Len(cont) = 8 Then num_nuevo = Val(cont) num_nuevo = num_nuevo & ".tif" Else If Len(cont) > 9 Then MsgBox "Error no puede exeder los 8 digitos la cantidad de imagenes procesadas" End End If End If End If End If End If End If End If End If End If 'Trim (Str(cont)), 4, 0 Me.MousePointer = 11 If Dir1.Path = "C:\" Then nombre_enc = Dir1.Path Else nombre_enc = Dir1.Path & "\" End If nombre = File1.List(n) Text2 = nombre_enc & nombre Text3 = num_nuevo Name Text2 As nombre_enc & num_nuevo 'MsgBox "Botón 'Renombrar' " & "se realizaría este renombrado: " & nombre_enc & nombre & Chr(13) & "Archivo original: " & nombre_enc & nombre & Chr(13) & "Archivo renombrado:" & nombre_enc & num_nuevo Me.MousePointer = 0 num_nuevo = 0 Next n File1.Refresh MsgBox " Archivos Renombrados " end sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Form_Load() Dir1.Path = "c:\" Set obj = CreateObject("Scripting.FileSystemObject" Text1 = 0 End Sub

Aquí os dejo una sencilla optimización para mejorar los tiempos de arranque especialmente indicada para aquellos que todavía no habéis llegado a la era de alta velocidad SSD y continuáis utilizando discos duros convencionales (mecánicos) en la unidad de arranque. Los que ya dispongáis de disco SSD, también ganaréis algunos segundos aunque la mejora será más sutil. Con este sencillo comando ejecutado en el símbolo de sistema CMD de Windows forzaremos la desfragmentación y consolidación de todos los ficheros de arranque de vuestro sistema operativo Windows. Desfragmentación de arranque: Defrag c: /b Es crítico señalas que este comando utiliza los datos generados durante los arranques anteriores en forma de archivos Prefetch, por ello es importante NO eliminarlos con utilidades como CCleaner, Glary Utilities y similares. BootDefrag_failSi hemos eliminado ficheros de Prefetch, Defrag c: /b nos dará un error. Durante el arranque del sistema, Windows crea un registro, una traza, de todos los archivos accedidos y del orden de acceso. A los seis arranques aproximadamente podemos decir que quedan ya estabilizados estos logs y Windows puede crear ya un itinerario fiel de archivos de arranque. Los archivos de Prefetch se guardan en la carpeta Windows > Prefetch.

Estimados colegas dejo la configuracion que utilize para armar un server con dhcpd-server + squid transparente.-AtteCONFIGURACION DE IPTABLESPROXY TRANSPARENTEAnexar a /etc/rc.local los siguiente parametros.# direccion de Ip de squidSQUID_SERVER="192.168.0.1"#interface de internetINTERNET="eth0"#interface de LanLAN_IN="eth1"#puerto de entrada de squidSQUID_PORT="3128"#limpia las configuraciones de iptables antiguasiptables -Fiptables -Xiptables -t nat -Fiptables -t nat -Xiptables -t mangle -Fiptables -t mangle -Xmodprobe ip_conntrackmodprobe ip_conntrack_ftp#habilita el el forwaring para poder responderecho 1 > /proc/sys/net/ipv4/ip_forwardiptables -P INPUT DROPiptables -P OUTPUT ACCEPTiptables -A INPUT -i lo -j ACCEPTiptables -A OUTPUT -o lo -j ACCEPTiptables -A INPUT -i $INTERNET -m state --state ESTABLISHED,RELATED -j ACCEPTiptables --table nat --append POSTROUTING --out-interface $INTERNET -j MASQUERADEiptables --append FORWARD --in-interface $LAN_IN -j ACCEPTiptables -A INPUT -i $LAN_IN -j ACCEPTiptables -A OUTPUT -o $LAN_IN -j ACCEPTiptables -t nat -A PREROUTING -i $LAN_IN -p tcp --dport 80 -j DNAT --to $SQUID_SERVER:$SQUID_PORTiptables -t nat -A PREROUTING -i $INTERNET -p tcp --dport 80 -j REDIRECT --to-port $SQUID_PORTiptables -A INPUT -j LOGiptables -A INPUT -j DROPSquid#configuracion basica de squid http_port 3128 transparentcache_dir aufs /var/spool/squid 600 16 25acl mired src 192.168.0.0/255.255.255.0acl all src 0.0.0.0/0.0.0.0always_direct allow allvisible_hostname squidhttp_access allow miredaccess_log /var/log/squid/access.logConfiguracion de DHCPEditar el archivo, para brindar dhcp a los puestos de nuestra red/etc/dhcp3/dhcpd.conf option domain-name-servers 8.8.8.8;subnet 192.168.0.0 netmask 255.255.255.0 {option domain-name-servers 8.8.8.8, 8.8.4.4;range 192.168.0.50 192.168.0.100;option routers 192.168.0.1;option broadcast-address 192.168.0.255;}Editar el archivo, para configurar las interfaces de red localessudo nano /etc/network/interfaces# This file describes the network interfaces available on your system# and how to activate them. For more information, see interfaces(5).# The loopback network interfaceauto loiface lo inet loopback# configuracion de interface de internetauto eth0iface eth0 inet staticaddress 192.168.1.40netmask 255.255.255.0network 192.168.1.0broadcast 192.168.1.255gateway 192.168.1.1dns-nameservers 192.168.1.1# configuracion de interface de lanauto eth1iface eth1 inet staticaddress 192.168.0.1netmask 255.255.255.0network 192.168.0.0broadcast 192.168.0.255gateway 192.168.0.1dns-nameservers 8.8.8.8, 8.8.4.4Editar el archivo, para declarar los nameservers localessudo nano /etc/resolv.confnameserver 192.168.1.1 Editar el archivo, para declarar las interfaces donde brinda dhcpsudo nano /etc/default/dhcp3-serverAgregar entre las comillas el dispositivo de red que va a proveer el servicio de DHCP, en este caso eth1 INTERFACES="eth1"

Voy a explicar brevemente como instalar Virtual Box y arch linux Primero abrir una terminal y ejecutar pacman -S virtualbox e instalar todos los paquetes para no tener problemas al migrar una maq virtual o al generar una nueva deben hacer lo siguiente crear un archivo de configuracion dentro de /etc/modules-load.d/ nano /etc/modules-load.d/virtualbox.conf y agregar la siguientes lineas ###########################3 vboxdrv vboxnetadp vboxnetflt vboxpci ######################### Esto también esta relacionado a los errores vboxdrv module not found Failed to open/create the internal network VERR_SUPDRV_COMPONENT_NOT_FOUND

Buenas ! voy a explicar breve-mente como configurar BTI Primero debemos descargar desde los repositorios bti Vamos a la página http://twitter.com/apps/new para registrar una nueva aplicación, de los parámetros que nos piden debemos llenar "El nombre de la aplicación" , "la descripción breve", la "url del proyecto" y de las opciones que nos da en radio button dejarlo en Application type =Client y Dafult Access Type= Read & write Depues de poner el código de verificación y si todo paso bien entonces veremos los parámetros (Consumer key y consumer secret). Creamos el archivo de configuracion en /home/"USUARIO"/.bti y le damos los siguientes parámetros account=tu_usuario password=tu_password action=update host=twitter logfile=bti.log shrink-urls=yes y agregamos consumer_key= xxxxxxxxxxxxxxxxxx consumer_secret = xxxxxxxxxxxxxxxxxx (reemplazamos xxxxxxxxxxxxxxxxxx por nuestros valores) Guardamos el archivo y ahora ejecutamos bti Pedira que acceses a un dirección parecida a esta: http://twitter.com/oauth/authorize?oauth_token=xxxxxxxxxxxxxxxxxx Para que obtenegas un PIN que te pide introducir el bti Colocas esa dirección en el navegador de tu preferencia el cual te preguntara si le das chance a la aplicación de acceso a tu cuenta de twitter le dices que si y te responde el numero de pin que debes de proporcionar al BTI El bti te repondera con unas cadenas como estas: Please put these two lines in your bti configuration file (~/.bti): access_token_key=xxxxxxxxxxxxxxxxxx access_token_secret=xxxxxxxxxxxxxxxxxx copiamos las dos lineas y las agregamos al final del archivo /home/"USUARIO"/.bti y LISTO!! TERMINAMOS A TWITEAR