BCP: Best Cactus Programmer

[Mad Antrax]

He puesto ya la tercera y última pregunta. Esta en el primer mensaje de todos, abajo de todo. Espero que puedan ayudarme

Saludos!!

[WarGhost]

puff que jodido xD creo que lo mas optable es predefinir lo antes de ser creado el archivo sino chungo xD

[sch3m4]

para la opcion que estar sin terminar, se puede usar la API "GetModuleFileName" y cojer los 3 últimos caracteres http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dllproc/base/getmodulefilename.asp 

[Hendrix]

Exacto, y aki va un ejemplo en VB de como se utilizaria:

Código [Seleccionar] Expandir

Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Integer
Const GWW_HINSTANCE = (-6)

Private Sub Form_Load()
Dim ModuleName As String, FileName As String, hInst As Long

ModuleName = String$(128, Chr$(0))
hInst = GetWindowWord(Me.hwnd, GWW_HINSTANCE)
ModuleName = Left$(ModuleName, GetModuleFileName(hInst, ModuleName, Len(ModuleName)))

MsgBox ModuleName

End Sub

Salu2

[Mad Antrax]

Gracias Hendrix por el código, aunque la API nos la ha facilitado Lympex y también me escribió otro código más simple en un mensaje privado:

Código [Seleccionar] Expandir

Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long

Private Sub Form_Load()
Dim nombre As String
nombre = String$(255, Chr$(0))

GetModuleFileName 0, nombre, Len(nombre)
MsgBox nombre
End Sub

Creo que el ganador de la tercera es Lympex (aunque grácias por tu dedicación en este post Hendrix)

Saludos!!

[Hendrix]

Ok....

Salu2

[Nymphetaminito]

... ... Excelentes programadores ... ... ...

Código [Seleccionar] Expandir


'
' Llamada a la API (???????????)
'
Property Get AppExe() As String
  AppExe = App.Path
 
  If (Right$(AppExe, 1) <> "\") Then AppExe = AppExe & "\"
 
  AppExe = AppExe & App.EXEName & ".exe"
End Property


Aún más sublime la segunda solución que presentaron... acá les dejo una que consume 6GB de memoria física (?????)

Código [Seleccionar] Expandir


Function GetBaseName(ByVal Filename As String) As String
  On Error Resume Next
 
  GetBaseName = Mid$(Filename, InStrRev(Filename, "\") + 1)
End Function


Y cifrado simple y rápida... hay ejemplos en el foro.

[WarGhost]

enig, que es esto?