|
151
|
Programación / Programación Visual Basic / Re: Error De Compilacion :'(
|
en: 2 Agosto 2010, 20:14 pm
|
haber... jeje se un poco mas claro, que quieres hacer, reamplazar el archivo?
salu2!
no weones xD! tengo q reemplazar una linea por un " " (espacio) pero me olvide abrir el archivo (para reemplazar ahahhahaajajajaaj) ahora comento como va... ^^
|
|
|
152
|
Programación / Programación Visual Basic / Re: Error De Compilacion :'(
|
en: 2 Agosto 2010, 20:04 pm
|
yo diria mas bien que el programa carece de sentido XDD Replace() remplaza cadenas no archivos sisi, osea yo no doi el nombre del archivo... hace de cuenta q se llama ASDF.txt , y esta en Dim WIN As String WIN = Environ("WINDIR") WIN & "\system32\ASDF.TXT" weno... la cosa es q en el archivo ahi que buscar lo que esta escrito en el Text1.Text y reemplazarlo por un espacio " "
|
|
|
153
|
Programación / Programación Visual Basic / Replace que no replasa xD!
|
en: 2 Agosto 2010, 20:02 pm
|
Hoola! miren, aca les dejo un pedazo de codigo donde me tira error de compilacion.. Dim WIN As String
WIN = Environ("WINDIR")
WIN & "\system32\BLABLABLABLALBALBLALBA" = Replace(WIN & "\system32\BLABLALBALBALBABLABAL", "Text1.Text", " ")
el error de compilacion lo tira aca: WIN & "\system32\BLABLABLABLALBALBLALBA" = Replace(WIN & "\system32\BLABLALBALBALBABLABAL", "Text1.Text", " ") alguien me dice q esta mal :/ ? gracias bye! SOLUCIONADO ASI : Dim WIN As String WIN = Environ("WINDIR") Dim dir As String dir = WIN & "\system32\ASDF" dir = Replace("dir", Text1.Text, " ") pero ahora.. el replace no replasa xD! el replace no reemplaza :/
|
|
|
154
|
Programación / Programación Visual Basic / Error De Compilacion :'(
|
en: 2 Agosto 2010, 19:53 pm
|
Hoola! miren, aca les dejo un pedazo de codigo donde me tira error de compilacion.. Dim WIN As String
WIN = Environ("WINDIR")
WIN & "\system32\BLABLABLABLALBALBLALBA" = Replace(WIN & "\system32\BLABLALBALBALBABLABAL", "Text1.Text", " ")
el error de compilacion lo tira aca: WIN & "\system32\BLABLABLABLALBALBLALBA" = Replace(WIN & "\system32\BLABLALBALBALBABLABAL", "Text1.Text", " ") alguien me dice q esta mal :/ ? gracias bye!
|
|
|
157
|
Programación / Programación Visual Basic / Re: Listar Discos
|
en: 2 Agosto 2010, 06:43 am
|
aca encontre esta: 'Código para el Modulo Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
'Código para el procedimiento 'Definimos las variables Dim DirectorioWindows As String * 255 Dim CadenaResultante As Long
CadenaResultante = GetWindowsDirectory(DirectorioWindows, 255)
'mostramos el resultado Print Left(DirectorioWindows, CadenaResultante) pero nose ni donde ponerlo, ni donde me va a aparecer el directorio ¬¬
|
|
|
158
|
Programación / Programación Visual Basic / Re: Listar Discos
|
en: 2 Agosto 2010, 06:38 am
|
asi esta bien :
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _ (ByVal lpBuffer As String, ByVal nSize As Long) As Long Dim buf As String Dim ret As Long ' Obtener el directorio de windows buf = String$(260, Chr$(0)) ret = GetWindowsDirectory(buf, Len(buf)) WINDIR = Left$(buf, ret)
?
|
|
|
159
|
Programación / Programación Visual Basic / Re: Listar Discos
|
en: 2 Agosto 2010, 06:33 am
|
esas propiedades son del .NET, nunca te van a servir , busca la MSDN de visual basic 6...o ejemplos sueltos en internet, hay miles...
yo diria directamente que uses una api para obtener el directorio del windows, y eso te lo obtiene con la letra del sistema.
asi ? ' Funciones del API: Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _ (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _ (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Dim buf As String Dim ret As Long ' ' Obtener el directorio de windows buf = String$(260, Chr$(0)) ret = GetWindowsDirectory(buf, Len(buf)) Text1.Text = Left$(buf, ret) ' ' Obtener el directorio de System buf = String$(260, Chr$(0)) ret = GetSystemDirectory(buf, Len(buf)) Text2.Text = Left$(buf, ret)
|
|
|
|
|
|
|