Why is being a nerd bad? Saying I notice you’re a nerd is like saying, ‘Hey, I notice that you’d rather be intelligent than be stupid, that you’d rather be thoughtful than be vapid, that you believe that there are things that matter more than the arrest record of Linsey Lohan. Why is that?

John Green
Read more

If you like nerds, raise your hand. If you don’t, raise your standards.

Violet Haberdasher
Read more

In fact, the world needs more nerds.

Ben Bernanke, Former Fed Chair
Read more
From the Archive: MTG Tuck Boxes and Storage Dividers

From the Archive: MTG Tuck Boxes and Storage Dividers

Introduction

A bunch of couple of years ago my oldest kid (who is turning 18 this year) was introduced to Magic: The Gathering at the after-school activity program at his middle school. At home, being the oldest, his siblings were just a hair too young to be able to fully comprehend the nuances of the game, and so they were quickly defeated and quickly demoralized. That’s when I got involved.

A couple decks later, a few tutorial sessions with an adult friend who had played since the beginning, and several e-bay bulk lot orders and I suddenly found myself with WAY more decks and cards than I knew what to do with. So what does an autistic nerd do? Obviously not save both time and sanity ordering a couple of deck cases and some bulk storage boxes online. Instead I designed custom tuck boxes and custom dividers for the bulk storage boxes (that, at least was something I had quite a few of).

As part of the From the Archive series, I am reposting the files (printable pdfs are below – ai files, fonts, and other resources can be found in the .zip file at the bottom of this post.

Tuck Boxes

These are intended to be printed duplex on heavy card stock. The trim and fold lines end up on the inside, with the colorful graphics on the outside. After cutting out each box with a hobby knife and a ruler, I used the ruler and a semi-sharp tool (I think I actually used the pocket clip of the cap of one of those blue Bic pens) to score the fold lines so that I got nice clean edges and corners. After that was just a glue stick and some assembly.

60-Card Boxes

60-Card Side-Load

60-card side-load box with no card sleeves (inside)

60-card side-load rainbow (outside)

60-Card Top-Load

60-card top-load box with no card sleeves (inside)

60-card side-load rainbow (outside)

60-card side-load tree (outside)

75-Card Boxes

75-Card Side-Load

75-card side-load box with no card sleeves (inside)

75-Card Top-Load

75-card top-load box with no card sleeves (inside)

75-card top-load rainbow

75-card top-load red

75-card top-load green

75-card top-load blue

75-card top-load black

75-card top-load teal-ish

Bulk Storage Dividers

These are also intended to be printed on heavy card stock (although not duplexed). I used a hobby knife and a straight edge to cut all the straight lines and then very carefully trimmed the radii of the tabs. These are separated into files by color. Each color has the following dividers:

  • Land
  • Creatures
  • Artifacts
  • Sorcery
  • Enchantments
  • Instants

The Files

MTG bulk storage dividers: all colors

MTG bulk storage dividers: white

MTG bulk storage dividers: black

MTG bulk storage dividers: blue

MTG bulk storage dividers: colorless

MTG bulk storage dividers: green

MTG bulk storage dividers: red

MTG bulk storage dividers: master

MTG bulk storage dividers: all files combined

Resource Files

.ai files for the tuck boxes and dividers, various vectors, and fonts.

Resource Files.zip

Disclaimer

As always with these types of things, I have to state that MTG is the intellectual property of Wizards of the Coast. I do not own the copyright or trademark to any of the branded materials in the files. These files are made available for educational purposes. And anything else I should have said.

Nerds get caught up in minutiae, because there is a tremendous and fulfilling sense of control in understanding every single detail of a thing more than any other living creature.

Chris Hardwick
Read more

I get obsessed by little nerdy things in my corner that no one else is interested in.

Bjork
Read more

If you torture the data long enough, it will confess.

Ronald H. Coase
Read more

What I’m Listening to at the Moment

Now that I have gone from 80%+ of my day on the phone to something hovering around 0%, I have a lot more time to have my headphones on (or stream into my hearing aids, which is my default solution). I often go for lofi playlists without any words, but my default is always, always Bach.

Last night, however, instead of Bach’s two- and three-hand inventions (what I find myself humming when there is no music), I listened to this delight from Max Davies. And I was not disappointed.

List Files (Including Extended Windows File Attributes) with Sub-Directories in MS Excel using VBA

List Files (Including Extended Windows File Attributes) with Sub-Directories in MS Excel using VBA

What it’s All About

The be clear and straight-forward from the beginning, I do not know VBA. My coding experience outside of HTML and SQL is entirely Python, R, and C/C++ (and C/C++ was long enough ago as to be another lifetime). But when I needed to make a list of all of my Bureau’s data files while still working without software beyond the basic build (I have browsers and MS Office), and without access to any useful utilities or the ability to install anything, I turned to VBA as a possible solution.

The most important nuance of my task is that I needed the authors attribute from the extended Windows file information (this is different from the normal author/owner file attribute that, in my case, showed a generic account for the Bureau that provisions the servers, and not the creator of the file like I needed. I found lots of examples online of code that made a list of all of the files in a folder. A few of them accessed the attributes I needed. I found a couple working examples of VBA that listed all of the files in a folder and all of its sub-folders. What I wasn’t able to find was an example of code that lists out all of the files in a folder and its subdirectories AND accessed the attributes I wanted.

I know enough about coding, in general, and I have access to Google, so I was able to put together something that mostly works, using bits from all of the various examples I found. I apologize to all those on Stack Exchange and elsewhere that contributed code that I absorbed into my mess: it didn’t occur to me to track authors for attribution until I had already long lost track of what pieces came from where.

Like I said, the whole thing is a mess, and breaks in strange places. And there is a weird “feature” that makes the list start back at the beginning of the spreadsheet once it reaches 65k records. But in case someone out there is struggling to accomplish the same thing that I was, here is the code I came up with:

Sub file_list()

Call ListFilesInFolder("Z:\Test_Folder", True)

End Sub

Sub ListFilesInFolder(ByVal SourceFolderName As String, ByVal IncludeSubfolders As Boolean)

Dim FSO As Object
Dim SourceFolder As Object
Dim SubFolder As Object
Dim ObjectFolder As Object
Dim ObjectShell As Object
Dim FileItem As Object
Dim ObjectFolderItem As Object
Dim i As Long
Dim ws As Worksheet
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ObjectShell = CreateObject("Shell.Application")
Set SourceFolder = FSO.GetFolder(SourceFolderName)
r = Range("A65536").End(xlUp).Row + 1

Range("A1:G1").Value = Array("File Name", "Extension", "Path", "Date Created", "Date Modified", "Author", "Size")

For Each FileItem In SourceFolder.Files

  Set ObjectFolder = ObjectShell.Namespace(SourceFolder.Path)
  Set ObjectFolderItem = ObjectFolder.ParseName(FileItem.Name)
  
  Cells(r, 1).Value = ObjectFolder.GetDetailsOf(ObjectFolderItem, 0) 'File Name
  Cells(r, 2).Value = FSO.GetExtensionName(ObjectFolderItem) 'Extension
  Cells(r, 3).Value = SourceFolder.Path 'Path
  Cells(r, 4).Value = ObjectFolder.GetDetailsOf(ObjectFolderItem, 4) 'Date Created
  Cells(r, 5).Value = ObjectFolder.GetDetailsOf(ObjectFolderItem, 3) 'Date Modified
  Cells(r, 6).Value = ObjectFolder.GetDetailsOf(ObjectFolderItem, 20) 'Author
  Cells(r, 7).Value = ObjectFolder.GetDetailsOf(ObjectFolderItem, 1) 'Size
  r = r + 1
  X = SourceFolder.Path
Next FileItem

If IncludeSubfolders Then
  For Each SubFolder In SourceFolder.SubFolders
    ListFilesInFolder SubFolder.Path, True
  Next SubFolder
End If

Set FileItem = Nothing
Set SourceFolder = Nothing
Set FSO = Nothing

End Sub

So you’re a little weird? Work it! A little different? Own it! Better to be a nerd than one of the herd!

Mandy Hale
Read more