Excel VBA質問箱 IV

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

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


29531 / 76732 ←次へ | 前へ→

【52481】Re:フォルダー名の取得
発言  じゅんじゅん  - 07/11/15(木) 14:33 -

引用なし
パスワード
   ▼岳 さん:
>Sub Folder検索()
>
> Dim FolderName As String
> Dim i As Integer
> Dim myFile As String
  Dim myFile As Integer
> 
> i = 1
> 
> FolderName = Dir("C:\My Documents\日本史\", vbDirectory)
> 
> Do While FolderName <> ""
>  myFile = FolderName Like "*.*"
   myFile = InStr(FolderName, ".")
>    If myFile = False Then
     If myFile = 0 Then
>      MsgBox FolderName
>    End If
>  FolderName = Dir()
>  
>  i = i + 1
> Loop
>End Sub
とか?

0 hits

【52479】フォルダー名の取得 07/11/15(木) 14:16 質問
【52481】Re:フォルダー名の取得 じゅんじゅん 07/11/15(木) 14:33 発言
【52486】Re:フォルダー名の取得 07/11/15(木) 15:42 お礼
【52483】Re:フォルダー名の取得 Jaka 07/11/15(木) 14:49 発言
【52487】Re:フォルダー名の取得 07/11/15(木) 15:53 お礼
【52488】Re:フォルダー名の取得 07/11/15(木) 15:58 お礼

29531 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free