![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
#1返信について
返信記載のコードを貼り付け
Sub Test()
Dim fso As Object
Dim FolPath As String
FolPath = CreateObject("WScript.Shell").SpecialFolders("desktop") & "\" & "\あいうえお"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(FolPath) Then
fso.DeleteFolder FolPath '← この行が黄色のハイライトになりました。
fso.CreateFolder (FolPath)
Else
fso.CreateFolder FolPath
End If
End Sub
検証しましたが、エラーは、フォルダが存在しない1度目実行、フォルダが存在する状態2度目実行共にデバッグは発生しませんでした。
再現できないので何とも言えませんが、上記のようなコンパクトなプロシージャで再度ご確認いただけますでしょうか。(コピペでVBEの標準モジュールで)
また、エラーの内容などお知らせください。
失礼、ここまで書いて、気づきました \あいうえお をご質問コピペでコードに入れたので、¥が二つつながってしまっていますね。
私のローカルだと初めにないので、エラーにならないと理解しました。 該当箇所の ¥ どちらかを削除してみてください。
また、そこでエラーになってしまうと下記の提案は意味が無いかもしれませんが、
>一旦削除(もしくは上書き)してが気になり
既存フォルダをリネームして新たに作るやり方も下記に示します。
これは、繰り返しのリネーム時にエラーが出るかもしれません。
(日付を加えていますが、秒単位を名前にすれば回避できます)
Sub Sample()
Dim fso As Object
Dim FolPath As String, tmp
Dim tmpPath As String
Set fso = CreateObject("Scripting.FileSystemObject")
FolPath = CreateObject("WScript.Shell").SpecialFolders("desktop") & "\" & "\あいうえお"
If fso.FolderExists(FolPath) Then
Set tmp = fso.GetFolder(FolPath)
tmpPath = tmp.Path
tmp.Name = tmp.Name & Format(Date, "yyyymmdd")
Set tmp = Nothing
fso.CreateFolder (FolPath)
Else
fso.CreateFolder (FolPath)
End If
Set fso = Nothing
End Sub
No.1
- 回答日時:
こんにちは、
サンプルとして
Dirを使用したものではなく、Scripting.FileSystemObject (FSO)を使用したものを書きます。
同様のプロセスの場合、私的にFSOを使う事が多いのであしからず。
Dim fso As Object
Dim FolPath As String
FolPath = CreateObject("WScript.Shell").SpecialFolders("desktop") & "\" & "\あいうえお"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(FolPath) Then
fso.DeleteFolder FolPath
fso.CreateFolder (FolPath)
Else
fso.CreateFolder (FolPath)
End If
これは、
フォルダの存在を取得しあれば、削除して、新たに作成します。
無ければ、そのまま作成します。
基本的にDirで行う場合も同様な流れになるかと思います。
Qchan1962 様
早々にご教授頂い有難うございました。
早速試しましたが、
Dim fso As Object
Dim FolPath As String
FolPath = CreateObject("WScript.Shell").SpecialFolders("desktop") & "\" & "\あいうえお"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(FolPath) Then
fso.DeleteFolder FolPath ← この行が黄色のハイライトになりました。
fso.CreateFolder (FolPath)
Else
fso.CreateFolder (FolPath)
End If
一部の行でエラーが発生しました。
どの様に対処すれば宜しいのでしょうか?
どうぞ宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
なぜこんな初歩的なVBAのIf文で...
-
ExcelVBA Range クラスの Page...
-
なぜエラーになるのでしょうか...
-
実行時エラー3001「引数が間違...
-
VBAがブレークモードになっ...
-
【Excel VBA】マクロをボタンに...
-
Access:結果は出るがエラー
-
EXCEL VBAマクロ中断でデバッグ...
-
実行時エラー -'-2147417848
-
EXCEL/VBAで、自分のPCだけエラ...
-
エクセルエラー13型が一致しま...
-
ExcelVBAで、ユーザー定義型は...
-
VB6+SQL サーバー 2000 で 実行...
-
マクロについて教えてください...
-
INSERT INTOステートメント構文...
-
VBS実行時エラー オブジェクト...
-
VBからAccessへの接続でエラー
-
日本語環境下で作成したマクロ...
-
VBAのコードがエラーになっ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
VBAがブレークモードになっ...
-
なぜこんな初歩的なVBAのIf文で...
-
【Excel VBA】マクロをボタンに...
-
VBSで変数の宣言はできないので...
-
VBS実行時エラー オブジェクト...
-
実行時エラー3001「引数が間違...
-
ExcelVBA Range クラスの Page...
-
ExcelVBAで、ユーザー定義型は...
-
EXCEL VBAマクロ中断でデバッグ...
-
マクロについて教えてください...
-
プロシージャ名の取得
-
ADODB.Streamを使用してUTF-8を...
-
実行時エラー -'-2147417848
-
Outlook.ApplicationをCreateOb...
-
VBAでのエラー
-
なぜエラーになるのでしょうか...
-
VBAのコードがエラーになっ...
-
[Delphi] データセットは閉じて...
おすすめ情報