Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

21441 / 76732

←次へ　｜　前へ→


	【60689】FileSystemObject

初心者 - 09/3/9(月) 9:39 -


	引用なし

	パスワード

現在ファイルを作成してすぐにクローズするというものを作りました。
問題なく処理は動くのですが、WITHステートメントを使用しております。
このWITHを使用しないで作ろうとするとうまくいきません。

何か方法を知っている方がいましたら教えてください。
よろしくお願いします。

■ソース

Public Sub CreateLogFile(ByVal strFileName As String)
　 Dim objFS
　 Dim strFilePath As String
　
　 strFilePath = c_FilePath & strFileName & c_Extension
　 Set objFS = CreateObject("Scripting.FileSystemObject")
　　　
　 If Not objFS.FolderExists(c_FilePath) Then
　　　objFS.CreateFolder "c_FilePath"
　 End If
　
　 With objFS.CreateTextFile(strFilePath)
　　.Close
　 End With
　
　 Set objFS = Nothing
　　　
End Sub

0 hits

▼

【60689】FileSystemObject 初心者 09/3/9(月) 9:39

≪