seen from Thailand
seen from China
seen from Thailand
seen from Israel
seen from Switzerland
seen from France
seen from United States
seen from France
seen from Türkiye
seen from China
seen from Ireland
seen from United States
seen from China
seen from China
seen from United States
seen from Australia
seen from China
seen from Spain
seen from United States
seen from United States
FileSystemObjectを使って、フォルダがあるかの確認とフォルダ作成
例えばフォルダになんらかのファイルを保存するマクロを作るとして、そのフォルダがないからといってマクロが止まってしまっては不便です。
そこで、今回はフォルダがあるかを調べ、なければ追加するコードを、売上表のマクロに追加していきます。
さっそくコードです。
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(folder_path) Then fso.CreateFolder (folder_path) End If
まず最初に、外部ライブラリを使用するために、FileSystemObjectを生成します。
そしてそれを使って、FolderExistsでフォルダがあるかを確認し、なければ作成するようにしています。
ということで、これでフォルダがなくてもしっかりマクロが動くようになりました。
Anya is live and ready to show you everything. Watch her strip, dance, and perform exclusive shows just for you. Interact in real-time and make your fantasies come true.
Free to watch • No registration required • HD streaming
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
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
Come Together [Excel Workbooks]
I like music – lots of different kinds of music, including The Beatles pictured here. These days,…
View Post
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
Anya is live and ready to show you everything. Watch her strip, dance, and perform exclusive shows just for you. Interact in real-time and make your fantasies come true.
Free to watch • No registration required • HD streaming
FileSystemObjectって何？ Windowsでファイルシステムを簡単に扱えるようにするためのコンポーネント。最近のWindowsなら最初から標準で入ってる。 VB6やVBA、あとJScript/VBScript(WSHやASP)でよく使う。JScript/VBScriptでファイルシステムを扱いたい場合、通常はこれを使うしかないと思う。VB6は標準でファイルシステムを扱う関数とかがあるけど、使いにくいので(Openとか使いにくいよね？)FileSystemObjectを使った方がいい。VC++は知らない。.NETには標準で便利なクラスがあるのでFileSystemObjectは使わない。
