Mirar la letra del disco duro

[Hendrix]

Para sacar el disco local:

Código (vb) [Seleccionar] Expandir

dim disco as string
disco = environ("HOMEDRIVE")

Un Saludo. 

[nhaalclkiemr]

La funcion "Environ" sirve para conocer el valor de las variables de entorno. Para conocer estas variables de entorno ejecuta "cmd.exe"y escribe "set". Esas son las variables de entorno...son muy utiles para conocer rapidamente por ejemplo la carpeta de Windows.

Yo antes usaba BATCH y para conocer su valor ponía "%windir%", en VB6.0 hay que poner "Environ("windir")"

SAludos

[Sancho.Mazorka]

Código (vb) [Seleccionar] Expandir

MsgBox Left(App.Path, 3)

Talvez te sirva, te dice la letra de la unidad que estas usando con ese programa


Sancho.Mazorka   

[askrator]

Muchas gracias a todos por vuestros codigos, todos me han sido utiles sino en este en otros proyectos 

Ya pero necesitas un objeto drivelistbox...yo te puse akel pork lo tenia para mi troyano y lo necesitaba asi...y no keria añadir un drivelistbox...

Jeje si molesta un poco el drivelistbox... Ademas creo que asi haces el proyecto mas pesado 

Menuda la funcion Environ gracias Hendrix.

Código [Seleccionar] Expandir


MsgBox Left(App.Path, 3)


No conocia eso de left y el numero, muchas gracias Sancho.Mazorka a esto le voy a sacar utilidad creeme   .

Un saludo y muchas gracias a todos, la verda me siento ignorante ante estos codigos.

[nhaalclkiemr]

Trankilo, VB es un lenguaje que se aprende facil, yo en un mes practicando ya he aprendido mucho, antes no sabia absolutamente nada y ahora aún hay muchas cosas k no entiendo, pero lo veo todo mucho mejor. Lo k tienes es k ler un poko e intentar hacer programas, lo k se te ocurra, así aprenderás. Por cierto, la ayuda MSDN es muy buena tenerla instalada, me ayudó mucho a mi.

Por cierto, voy a aprovechar este post para preguntar yo una cosa para no abrir uno nuevo. ¿Como puedo desde VB mover un archivo a la papelera? Yo lo intento moviendo los archivos a una de las subcarpetas de "C:\RECYCLED", el archivo se mueve a la subcarpeta pero no aparece despues ni en la papelera ni con el explorador, solo aparece ejecutando "cmd.exe" y en esa carpeta escribir "dir" (esto es buena idea para ocultar un troyano jejeje)

Weno, pues la pregunta es esa, como puedo mover un archivo a la papelera desded VB?

Ahh, pongo aki mis variables de entorno, para k veais más o menos las k hay y a k rutas representan:

Código [Seleccionar] Expandir

ALLUSERSPROFILE=C:\Documents and Settings\All Users
APPDATA=C:\Documents and Settings\Usuario\Datos de programa
CLIENTNAME=Console
CommonProgramFiles=C:\Archivos de programa\Archivos comunes
COMPUTERNAME=LU
ComSpec=C:\WINDOWS\system32\cmd.exe
FP_NO_HOST_CHECK=NO
HOMEDRIVE=C:
HOMEPATH=\Documents and Settings\Usuario
LOGONSERVER=\\LU
NUMBER_OF_PROCESSORS=1
OS=Windows_NT
Path=C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem
PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH
PROCESSOR_ARCHITECTURE=x86
PROCESSOR_IDENTIFIER=x86 Family 6 Model 9 Stepping 5, GenuineIntel
PROCESSOR_LEVEL=6
PROCESSOR_REVISION=0905
ProgramFiles=C:\Archivos de programa
PROMPT=$P$G
SESSIONNAME=Console
SystemDrive=C:
SystemRoot=C:\WINDOWS
TEMP=C:\DOCUME~1\Usuario\CONFIG~1\Temp
TMP=C:\DOCUME~1\Usuario\CONFIG~1\Temp
USERDOMAIN=Usuario
USERNAME=Usuario
USERPROFILE=C:\Documents and Settings\Usuario
windir=C:\WINDOWS

Saludos

[askrator]

Para eliminar un archivo de texto y enviarlo a la Papelera de Reciclaje

    *

      Utilice el método DeleteFile para eliminar el archivo, especificando SendToRecycleBin para el parámetro recycle. El código siguiente muestra cómo eliminar el archivo denominado test.txt y enviarlo a la Papelera de Reciclaje.
      Visual Basic

      My.Computer.FileSystem.DeleteFile("C:\test.txt", _
      FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)



No lo he probado por falta de tiempo pero mira si te sirve 

[nhaalclkiemr]

No me funciona...

[askrator]

Lo mejor sera que crees un nuevo tema para que si alguien te pueda ayudar te ayude, por que aqui tu duda no la esta viendo mucha gente.

Un saludo.

[nhaalclkiemr]

Lo mejor sera que crees un nuevo tema para que si alguien te pueda ayudar te ayude, por que aqui tu duda no la esta viendo mucha gente.

Un saludo.

Si va a ser mejor. Gracias