PureBasic Forums - English

Arctic Fox wrote:Same problem as this one?
http://www.purebasic.fr/english/viewtop ... =7&t=40415

Fred wrote:You can't, it's old post which are now incompatible with the new phpbb version.

kernadec wrote:hello
in Firefox with the module Erix14 " https://addons.mozilla.org/fr/firefox/addon/12245
take the original code tab and select copy with the mouse to paste in IDE
bye

Arctic Fox wrote:Alternatively you can try BackupUser viewer by luis.
http://www.purebasic.fr/english/viewtop ... 68#p310068

<i>Restored from previous forum. Originally posted by <b>Roxxler</b>.</i><br /><br /> Hi,<br /><br />here a procedure called GetDeviceList(). The procedure is based on the procedure<br />CheckDevice(), just a little extension.<br />With this procedure you can create a list of the devices, directories and volumes<br />which are available in the system. For that the procedure creates a Shared list<br />called MyDev(), so that you can access it from the main program.<br /><br />Parameter: kind.l what we are searching for<br /> 0 = devices<br /> 1 = directories (means assigns)<br /> 2 = volumes<br /> 3 or higher = a complete list (devices + directories + volumes)<br /><br />Return : number of found entries<br /><br />The list MyDev() contains two variables:<br />MyDev()\typedev = long, 0 = the following string is a device<br /> 1 = the following string is a directory<br /> 2 = the following string is a volume<br />MyDev()\namedev = string, the name of the device/directory/volume<br />Before leaving the procedure it sets the List to the first one.<br /><br />The procedure is nearly the same like CheckDevice(), so have a look there if<br />you are need some further infos. For using the procedure just see the example.<br /><br /><br />Procedure.b GetDeviceList(kind.l)<br /> Structure MyList<br /> typedev.l<br /> namedev.s<br /> EndStructure<br /> NewList MyDev.MyList()<br /> Shared MyDev<br /> info.l=PeekL(PeekL(DosBase()+34)+24)*4<br /> devinfo.l=PeekL(info+4)*4<br /> texte.l=PeekL(devinfo+40)*4<br /> type.l=PeekL(devinfo+4)<br /> While devinfo<>0<br /> If kind>=3<br /> AddElement(MyDev())<br /> MyDev()\typedev=type<br /> MyDev()\namedev=PeekS(texte+1)<br /> Else<br /> IF type=kind<br /> AddElement(MyDev())<br /> MyDev()\typedev=type<br /> MyDev()\namedev=PeekS(texte+1)<br /> EndIf<br /> EndIf<br /> If PeekL(devinfo)<br /> devinfo=PeekL(devinfo)*4<br /> texte=PeekL(devinfo+40)*4<br /> type=PeekL(devinfo+4)<br /> Else<br /> devinfo=0<br /> EndIf<br /> Wend<br /> FirstElement(MyDev())<br /> ProcedureReturn CountList(MyDev())<br />EndProcedure<br /><br /><br /><br />PrintN("First we search for Devices:")<br />zahl.l=GetDeviceList(0)<br />Print("We have found "):PrintNumber(zahl):PrintN(" Devices. Here the list:")<br />For i.b=1 To zahl<br /> PrintNumber(MyDev()\typedev):Print(" means Device. The name is "):PrintN(" "+MyDev()\namedev)<br /> NextElement(MyDev())<br />Next<br />PrintN("press mousebutton"):PrintN("")<br />MouseWait()<br /><br />PrintN("Now we search for Directories:")<br />zahl.l=GetDeviceList(1)<br />Print("We have found "):PrintNumber(zahl):PrintN(" Directories. Here the list:")<br />For i=1 To zahl<br /> PrintNumber(MyDev()\typedev):Print(" means Directory. The name is "):PrintN(" "+MyDev()\namedev)<br /> NextElement(MyDev())<br />Next<br />PrintN("press mousebutton"):PrintN("")<br />MouseWait()<br /><br />PrintN("Next we search for Volumes:")<br />zahl.l=GetDeviceList(2)<br />Print("We have found "):PrintNumber(zahl):PrintN(" Volumes. Here the list:")<br />For i=1 To zahl<br /> PrintNumber(MyDev()\typedev):Print(" means Volume. The name is "):PrintN(" "+MyDev()\namedev)<br /> NextElement(MyDev())<br />Next<br />PrintN("press mousebutton"):PrintN("")<br />MouseWait()<br /><br />PrintN("Now we get the hole list:")<br />zahl.l=GetDeviceList(3)<br />Print("We have found "):PrintNumber(zahl):PrintN(" entries. Here the list:")<br />For i=1 To zahl<br /> PrintNumber(MyDev()\typedev):PrintN(" "+MyDev()\namedev)<br /> NextElement(MyDev())<br />Next<br />End<br /><br /><br />Greetings ..<br />Roxxler<br /><br /><br />

Restored from previous forum. Originally posted by Roxxler.

Hi,

here a procedure called GetDeviceList(). The procedure is based on the procedure
CheckDevice(), just a little extension.
With this procedure you can create a list of the devices, directories and volumes
which are available in the system. For that the procedure creates a Shared list
called MyDev(), so that you can access it from the main program.

Parameter: kind.l what we are searching for
0 = devices
1 = directories (means assigns)
2 = volumes
3 or higher = a complete list (devices + directories + volumes)

Return : number of found entries

The list MyDev() contains two variables:
MyDev()\typedev = long, 0 = the following string is a device
1 = the following string is a directory
2 = the following string is a volume
MyDev()\namedev = string, the name of the device/directory/volume
Before leaving the procedure it sets the List to the first one.

The procedure is nearly the same like CheckDevice(), so have a look there if
you are need some further infos. For using the procedure just see the example.


Procedure.b GetDeviceList(kind.l)
Structure MyList
typedev.l
namedev.s
EndStructure
NewList MyDev.MyList()
Shared MyDev
info.l=PeekL(PeekL(DosBase()+34)+24)*4
devinfo.l=PeekL(info+4)*4
texte.l=PeekL(devinfo+40)*4
type.l=PeekL(devinfo+4)
While devinfo<>0
If kind>=3
AddElement(MyDev())
MyDev()\typedev=type
MyDev()\namedev=PeekS(texte+1)
Else
IF type=kind
AddElement(MyDev())
MyDev()\typedev=type
MyDev()\namedev=PeekS(texte+1)
EndIf
EndIf
If PeekL(devinfo)
devinfo=PeekL(devinfo)*4
texte=PeekL(devinfo+40)*4
type=PeekL(devinfo+4)
Else
devinfo=0
EndIf
Wend
FirstElement(MyDev())
ProcedureReturn CountList(MyDev())
EndProcedure



PrintN("First we search for Devices:")
zahl.l=GetDeviceList(0)
Print("We have found "):PrintNumber(zahl):PrintN(" Devices. Here the list:")
For i.b=1 To zahl
PrintNumber(MyDev()\typedev):Print(" means Device. The name is "):PrintN(" "+MyDev()\namedev)
NextElement(MyDev())
Next
PrintN("press mousebutton"):PrintN("")
MouseWait()

PrintN("Now we search for Directories:")
zahl.l=GetDeviceList(1)
Print("We have found "):PrintNumber(zahl):PrintN(" Directories. Here the list:")
For i=1 To zahl
PrintNumber(MyDev()\typedev):Print(" means Directory. The name is "):PrintN(" "+MyDev()\namedev)
NextElement(MyDev())
Next
PrintN("press mousebutton"):PrintN("")
MouseWait()

PrintN("Next we search for Volumes:")
zahl.l=GetDeviceList(2)
Print("We have found "):PrintNumber(zahl):PrintN(" Volumes. Here the list:")
For i=1 To zahl
PrintNumber(MyDev()\typedev):Print(" means Volume. The name is "):PrintN(" "+MyDev()\namedev)
NextElement(MyDev())
Next
PrintN("press mousebutton"):PrintN("")
MouseWait()

PrintN("Now we get the hole list:")
zahl.l=GetDeviceList(3)
Print("We have found "):PrintNumber(zahl):PrintN(" entries. Here the list:")
For i=1 To zahl
PrintNumber(MyDev()\typedev):PrintN(" "+MyDev()\namedev)
NextElement(MyDev())
Next
End


Greetings ..
Roxxler