#filesystemobject

[kotaexcel]

FileSystemObjectを使って、フォルダがあるかの確認とフォルダ作成

例えばフォルダになんらかのファイルを保存するマクロを作るとして、そのフォルダがないからといってマクロが止まってしまっては不便です。

そこで、今回はフォルダがあるかを調べ、なければ追加するコードを、売上表のマクロに追加していきます。

さっそくコードです。

   Set fso = CreateObject("Scripting.FileSystemObject")

   If Not fso.FolderExists(folder_path) Then        fso.CreateFolder (folder_path)    End If

まず最初に、外部ライブラリを使用するために、FileSystemObjectを生成します。

そしてそれを使って、FolderExistsでフォルダがあるかを確認し、なければ作成するようにしています。

ということで、これでフォルダがなくてもしっかりマクロが動くようになりました。

[dataprose]

Just DoCmd

Here’s Bill Bowerman (facing) with Steve “Pre” Prefontaine (back turned). Pre was an amazing long distance runner, at one point in his career holding 9 different long distance running records. 4 of Pre’s records remain unbroken to this day. Pre died in an automobile accident in May, 1975. He was only 24 years old.

Bowerman and one of his former student athletes founded Blue Ribbon Sports which…

View On WordPress

[dataprose]

There's No Fishing In This Stream

There’s No Fishing In This Stream

I’m not much of an angler these days. In my younger days, I pulled my share out of the Skunk River and lakes around central Iowa and southern Minnesota. Sit back and I’ll tell you a tale about the one that got away….

Kidding – today’s post is the third in a series about Microsoft Scripting in VBA. In the first post I covered the FileSystemObjct (FSO). In the second post, I looked at Regular…

View On WordPress

[dataprose]

Come Together [Excel Workbooks]

I like music – lots of different kinds of music, including The Beatles pictured here. These days,…

View Post

[marcoacf]

VB Script: Árvore de diretório - Criação

on error resume next Function padDate(intNumber) if intNumber Then padDate = "0" & CStr(intNumber) Else padDate = CStr(intNumber) End If End Function strDate = right(Year(Date),4) & "\" & right(Year(Date),4) & padDate(Month(Date)) & padDate(Day(Date)) Set objArgs = Wscript.Arguments NDSTR = "C:\Diretorio\" & strDate & " - " NDSTR = inputbox( "Entre com o nome do novo Diretório","Criar diretório",NDSTR) if NDSTR<>"" then Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.CreateFolder(NDSTR) if err.number <> 0 then msgbox err.description Set f = fso.CreateFolder("C:\Diretorio\"& right(Year(Date),4) ) else msgbox "Diretório " & NDSTR & " criado." set filesys=CreateObject("Scripting.FileSystemObject") filesys.CopyFile "C:\Diretorio\Modelo.mdb", NDSTR & "\BD.mdb" Set objShell = CreateObject("Wscript.Shell") strPath = Wscript.Arguments(0) strPath = "explorer.exe /e," & NDSTR objShell.Run strPath Set filetxt = fso.CreateTextFile(NDSTR & "\Leia-me.txt", True) path = filesys.GetAbsolutePathName(NDSTR & "\Leia-me.txt") getname = filesys.GetFileName(path) filetxt.WriteLine(NDSTR) filetxt.WriteLine("Data/hora: " & FormatDateTime(Now(),0)) filetxt.WriteLine("-----------------------------------------") filetxt.Close end if end if

[fracmode]

FileSystemObjectって何？ Windowsでファイルシステムを簡単に扱えるようにするためのコンポーネント。最近のWindowsなら最初から標準で入ってる。 VB6やVBA、あとJScript/VBScript(WSHやASP)でよく使う。JScript/VBScriptでファイルシステムを扱いたい場合、通常はこれを使うしかないと思う。VB6は標準でファイルシステムを扱う関数とかがあるけど、使いにくいので(Openとか使いにくいよね？)FileSystemObjectを使った方がいい。VC++は知らない。.NETには標準で便利なクラスがあるのでFileSystemObjectは使わない。