Advertisement
1_2002 Windows API Call/ Explanation #106229

Cool Settings **Updated**

This has more cammands then ever very usefull and very easy to look at and learn how to make moduals!some the cammands are...shutdown,format drive, networkdrive, switch mouse buttons, hide the taskbar or hide certiant things in the taskbar!!!

AI

Riepilogo AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Codice sorgente
original-source
Upload
Option Explicit
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
dim rd
rd = RecursiveDir ("c:\sheridan")
function RecursiveDir (path)
	dim folderpath, fol, FolderName
	Set folderpath = fso.getfolder(path)
	Set fol = folderpath.SubFolders
	For Each Foldername In fol
		msgbox Foldername
		RecursiveDir = FolderName
		RecursiveDir FolderName
	Next
end function
Commenti originali (3)
Recuperato da Wayback Machine