% sub ListFolderContents(path) dim fs, folder, file, item, url set fs = CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(path) 'Display the target folder and info. 'Response.Write("" & folder.Name & " - " _ ' & folder.Files.Count & " files, ") 'if folder.SubFolders.Count > 0 then ' Response.Write(folder.SubFolders.Count & " directories, ") 'end if 'Response.Write(Round(folder.Size / 1024) & " KB total." _ ' & "" & vbCrLf) 'Response.Write("
Thomas Kahn
![]() Songs and sounds<% ListFolderContents(server.MapPath("songs/") & "\") %> Some of the songs I have made. <% ListFolderContents(server.MapPath("sound_sketches/") & "\") %> Silly sound sketches I did years ago (in Swedish). Roland Jupiter 4 stuff<% ListFolderContents(server.MapPath("sas/jupiter4/Jupiter_4_samples/") & "\") %> Some sounds from the Jupter 4. My Jupiter 4 CV/Gate modification; schematic, building description, lots of images and a BOM. <% ListFolderContents(server.MapPath("sas/jupiter4/images/") & "\") %> A couple of images of my Jupiter 4. SAS-Modular and studioImages of my SAS-Modular (work in progress) A schematic drawing showing how to mount the MAT02 and the tempco resistor on the SAS VCO. A schematic drawing showing an example of how one can wire the SAS VCO to a panel (in Swedish). <% ListFolderContents(server.MapPath("sas/studion/") & "\") %> A couple of images from my studio. <% ListFolderContents(server.MapPath("sas/besok_hos_magnus/") & "\") %> Visiting Magnus Danielson to play around with the synths and take a look at a Sequential Circuits Pro One. Vacuum tubes
Telefunken EF41
A collection of fine images of vacuum tubes that I have sold on eBay. If you want to use them, just contact me. MiscellaneousAn article about resistors (in Swedish). FAQ about rules and fees when buying and selling synthesizers abroad (in Swedish). A consumer blog where I try to get some answers from a company called Onzza who bothers me with SPAM. (In Swedish.) <% ListFolderContents(server.MapPath("sas/moog_poorn") & "\") %> Playing around with the Moog-logo. <% ListFolderContents(server.MapPath("x0xb0x/") & "\") %> x0xb0x-stuff. <% ListFolderContents(server.MapPath("DDD1/") & "\") %> Korg DDD-1 stuff. <% ListFolderContents(server.MapPath("trams/") & "\") %> Fun stuff. <% ListFolderContents(server.MapPath("kids/") & "\") %> My daughters, Nora and Iris. This is me when I was 18 years old (the guy with the red hair). The guy with the Robert Smith-hair is my friend Erik. A small film from our vacation och the island Öland, 2006 (The film is 12 Mb, so it requires a broadband connection. Opens with Windows Media Player.) |