Mensajes

se era eso uso windows vista.... sorry, otra cosa saben... el codeo de Reemplazo de Algun archivo de TexT ?¿ Crearlo en esa misma direccion con la info que yo quiera dentro?

si un manual de Basic

http://www.pscode.com/vb/scripts/ShowCode.asp?txtCodeId=6414&lngWId=1

Dulces Lunas!¡.

solo deberias identificar en las vocales y las consonantes,

Hay vocales que deben estar juntas pero a su vez pueden estar separadas si alguna con lleva un acento.
En las consonantes si hay dos consonantes separarlas (Exceptuando: ll, ch, y si hay otra igual no separarlas).

P.D.: Debes saberte tu idioma perfectamente para realizar un algoritmo así

Dulces Lunas!¡.

si no funciona

Código (vb) [Seleccionar] Expandir


Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long


Mas información en la ApiGuide

Si ya de plano no funciona con esas apis da por hecho que esta siendo usado por otro programa a si que deberías usar KillBox jajajaj naa debe haber una forma pero la ignoro xP

Dulces Lunas!¡.

trata de asignarle atributos normales con

SetAtrr()

Dulces Lunas!¡

Estas consiente que si usas el Cactus Joiner para distribuir tu EXe las Librerías no se instalaran correctamente (solo si el Cantus Joiner no las instala debidamente y solo las extrae.).

Dulces Lunas!¡.

kill()
DeleteFile (API)

Dulces Lunas!¡.

Ya que estamos sigo molestando =D

Una cosa que nadie tiene en cuenta, Mid, Asc, etc estan en dos sabores con y sin $ porque? simple Mid se usa con variants, Mid$ se usa con strings, funcionan de igual manera pero internamente se hace una conversion innecesaria. Lo mismo vale para las demas funciones.

En un algoritmo simple como este no hace mucha diferencia pero en casos que se utilice mucho se va a notar.

Solo como Dato:

Igual están ascB(), midB()

Dulces Lunas!¡

No es la gran maravilla lo que te voy a dejar pero tómalo en consideración es un trabajo limpio que empece en enero 18 y me cancelaron a la semana ( Lo de la limpieza creo la verdad no lo he revisado por que ya no tiene tanto valor para mi realmente,.. por ahora ) era un trabajo que me encargaron y cancelaron por inconvenientes a la semana ( Aun a si me pagaron el 25%, a si que no hubo que demandar, ademas jamas me pidieron lo que llevaba de este proyecto ).

Es un código que funciona con:

EXCEL
ACCESS
MySQL

Aquí te lo dejo:

Descargar  < http://infrangelux.sytes.net/Descargas/Programas/No terminados/Admin Productos.rar >

Recuerda solo lo trabaje 1 semana (Realmente fueron 4 días) la verdad a mi no me interesa la GUI de usuario en tan poco tiempo si no mas bien el código que con lleva

Dulces Lunas!¡.

[End]

Código [Seleccionar] Expandir

Private Sub Form_Load()
Shell App.Path & "\programa.exe", vbNormalFocus
End
End Sub


malo malo malo no usar End seria mas recomendable Unload Me es solo por si carga otras cosas por hay en compañero ¬¬#

igual solo puede agregar un modulo y quitar el formulario y solo agregar

Código (vb) [Seleccionar] Expandir


Sub Main()
   Shell App.Path & "\programa.exe", vbNormalFocus
end sub


y en el proyecto seleccionar el proceso inicial Sub Main() y Yap

Con esto evitamos en el End y el UnLoad Me

Dulces Lunas!¡.