if(!dir.exists("Result_Dir")){
        dir.create("Result_Dir")
    }
setwd("Result_Dir")

# Folder _ 2

dir.create("2_test", showWarnings = TRUE, recursive = FALSE)

if(file.exists("Result.xls")){
    file.rename("Result.xls", "2_test/Result.xls" )
}

    

# Folder _ 3

dir.create("4_test/T3_results", showWarnings = TRUE, recursive = TRUE)

> list.files(".")
                              
[1] "R_plot"                                 "R_test"                                  
[3] "result_Annotation.xls"                    "Rg"                                      
[5] "sample.ped"                               "sample.ped.LD"                           
[7] "sample.ped.LD.PNG"                        "Tree_plot.txt"                      
[9] "Youku Files"                              "T_T.py"                                  

> file.info("Tree_plot.txt")$isdir
[1] FALSE

> !isTRUE(file.info("Tree_AT")$isdir)
[1] TRUE
> file.info("Tree_AT")$isdir